/*
* Created on Oct 13, 2004
*
* TODO To change the template for this generated file go to
* Window - Preferences - Java - Code Style - Code Templates
*/
package sample.ims;
/**
* @author ivyho
*
* TODO To change the template for this generated type comment go to
* Window - Preferences - Java - Code Style - Code Templates
* @type-descriptor.message-buffer
*/
public class CCIBuffer implements javax.resource.cci.Record,
javax.resource.cci.Streamable, com.ibm.etools.marshall.RecordBytes {
private byte[] buffer_ = null;
/**
* @generated
*/
public CCIBuffer() {
return;
}
/**
* @generated
* @see javax.resource.cci.Record#getRecordShortDescription()
*/
public String getRecordShortDescription() {
return (this.getClass().getName());
}
/**
* @generated
* @see javax.resource.cci.Record#hashCode()
*/
public int hashCode() {
return (super.hashCode());
}
/**
* @generated
* @see javax.resource.cci.Streamable#write(OutputStream)
*/
public void write(java.io.OutputStream outputStream)
throws java.io.IOException {
outputStream.write(buffer_);
}
/**
* @generated
* @see javax.resource.cci.Record#setRecordShortDescription(String)
*/
public void setRecordShortDescription(String shortDescription) {
return;
}
/**
* @generated
*/
public int getSize() {
if (buffer_ != null)
return (buffer_.length);
else
return (0);
}
/**
* @generated
* @see java.lang.Object#toString
*/
public String toString() {
StringBuffer sb = new StringBuffer(super.toString());
sb.append("\n");
com.ibm.etools.marshall.util.ConversionUtils.dumpBytes(sb, buffer_);
return (sb.toString());
}
/**
* @generated
* @see javax.resource.cci.Record#getRecordName()
*/
public String getRecordName() {
return (this.getClass().getName());
}
/**
* @generated
*/
public byte[] getBytes() {
return (buffer_);
}
/**
* @generated
* @see javax.resource.cci.Record#clone()
*/
public Object clone() throws CloneNotSupportedException {
return (super.clone());
}
/**
* @generated
* @see javax.resource.cci.Record#setRecordName(String)
*/
public void setRecordName(String recordName) {
return;
}
/**
* @generated
* @see javax.resource.cci.Record#equals()
*/
public boolean equals(Object object) {
return (super.equals(object));
}
/**
* @generated
* @see javax.resource.cci.Streamable#read(InputStream)
*/
public void read(java.io.InputStream inputStream)
throws java.io.IOException {
byte[] input = new byte[inputStream.available()];
inputStream.read(input);
buffer_ = input;
}
/**
* @generated
*/
public void setBytes(byte[] bytes) {
buffer_ = bytes;
}
}
IDENTIFICATION DIVISION.
program-id. pgm1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
*
* IMS TOC Connector for Java, Multi-segment Output Example
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 1998 */
* All Rights Reserved */
* Licensed Materials - Property of IBM */
* */
* DISCLAIMER OF WARRANTIES. */
* */
* The following (enclosed) code is provided to you solely for the */
* purpose of assisting you in the development of your applications. */
* The code is provided "AS IS." IBM MAKES NO WARRANTIES, EXPRESS OR */
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF */
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, REGARDING */
* THE FUNCTION OR PERFORMANCE OF THIS CODE. */
* IBM shall not be liable for any damages arising out of your use */
* of the generated code, even if they have been advised of the */
* possibility of such damages. */
* */
* DISTRIBUTION. */
* */
* This generated code can be freely distributed, copied, altered, */
* and incorporated into other software, provided that: */
* - It bears the above Copyright notice and DISCLAIMER intact */
* - The software is not for resale */
* */
*********************************************************************/
*
LINKAGE SECTION.
01 INPUT-MSG.
02 IN-LL PICTURE S9(3) COMP.
02 IN-ZZ PICTURE S9(3) COMP.
02 IN-TRCD PICTURE X(5).
02 IN-DATA1 PICTURE X(6).
02 IN-DATA2 PICTURE X(6).
01 OUTPUT-MSG.
02 OUT-ALLSEGS PICTURE X(99) VALUE SPACES.
01 OUTPUT-SEG1.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-DATA1 PICTURE X(12) VALUE SPACES.
01 OUTPUT-SEG2.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-DATA1 PICTURE X(13) VALUE SPACES.
02 OUT-DATA2 PICTURE X(14) VALUE SPACES.
01 OUTPUT-SEG3.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-DATA1 PICTURE X(15) VALUE SPACES.
02 OUT-DATA2 PICTURE X(16) VALUE SPACES.
02 OUT-DATA3 PICTURE X(17) VALUE SPACES.
PROCEDURE DIVISION.
| Parameter | Value |
|---|---|
| Platform Name | Z/OS |
| Codepage | IBM-037 |
| Floating point format name | IBM® Hexadecimal |
| External decimal sign | EBCDIC |
| Endian name | Big |
| Remote integer endian name | Big |
| Quote name | DOUBLE |
| Trunc name | STD |
| Nsymbol name | DBCS |
| Parameter | Value |
|---|---|
| Platform Name | Z/OS |
| Codepage | IBM-037 |
| Floating point format name | IBM Hexadecimal |
| External decimal sign | EBCDIC |
| Endian name | Big |
| Remote integer endian name | Big |
| Quote name | DOUBLE |
| Trunc name | STD |
| Nsymbol name | DBCS |
| Parameter | Value |
|---|---|
| Platform Name | Z/OS |
| Codepage | IBM-037 |
| Floating point format name | IBM Hexadecimal |
| External decimal sign | EBCDIC |
| Endian name | Big |
| Remote integer endian name | Big |
| Quote name | DOUBLE |
| Trunc name | STD |
| Nsymbol name | DBCS |
| Parameter | Value |
|---|---|
| Platform Name | Z/OS |
| Codepage | 037 |
| Floating point format name | IBM 390 Hexadecimal |
| External decimal sign | EBCDIC |
| Endian name | Big |
| Remote integer endian name | Big |
| Quote name | DOUBLE |
| Trunc name | STD |
| Nsymbol name | DBCS |