/*
* 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、複数セグメント出力の例
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 1998 */
* All Rights Reserved */
* Licensed Materials - Property of IBM */
* */
* 保証の不適用。 */
* */
* 以下の「同封された」コードは、専らお客様のアプリケーション開発 */
* の補助を目的としてのみ提供されるものです。 */
* このコードは、現存するままの状態で提供されます。*/
* IBM は、このコードの機能または */
* 性能に関して、明示的にも黙示的にも、法律上の瑕疵担保責任、 */
* 商品性の保証および特定目的適合性の保証についての暗黙の保証を含め */
* (ただし、これらに限定されない) いかなる保証も提供しません。 */
* IBM は、このサンプル・コードの使用から生ずるいかなる損害 */
* に対しても、その予見の有無を問わず、 */
* 責任を負いません。 */
* */
* 配布。 */
* */
* 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.
| パラメーター | 値 |
|---|---|
| プラットフォーム名 | Z/OS |
| コード・ページ | IBM-037 |
| 浮動小数点フォーマット名 | IBM® Hexadecimal |
| 外部 10 進符号 | EBCDIC |
| エンディアン名 | Big |
| リモート整数エンディアン名 | Big |
| Quote 名 | DOUBLE |
| Trunc 名 | STD |
| Nsymbol 名 | DBCS |
| パラメーター | 値 |
|---|---|
| プラットフォーム名 | Z/OS |
| コード・ページ | IBM-037 |
| 浮動小数点フォーマット名 | IBM Hexadecimal |
| 外部 10 進符号 | EBCDIC |
| エンディアン名 | Big |
| リモート整数エンディアン名 | Big |
| Quote 名 | DOUBLE |
| Trunc 名 | STD |
| Nsymbol 名 | DBCS |
| パラメーター | 値 |
|---|---|
| プラットフォーム名 | Z/OS |
| コード・ページ | IBM-037 |
| 浮動小数点フォーマット名 | IBM Hexadecimal |
| 外部 10 進符号 | EBCDIC |
| エンディアン名 | Big |
| リモート整数エンディアン名 | Big |
| Quote 名 | DOUBLE |
| Trunc 名 | STD |
| Nsymbol 名 | DBCS |
| パラメーター | 値 |
|---|---|
| プラットフォーム名 | Z/OS |
| コード・ページ | 037 |
| 浮動小数点フォーマット名 | IBM 390 Hexadecimal |
| 外部 10 進符号 | EBCDIC |
| エンディアン名 | Big |
| リモート整数エンディアン名 | Big |
| Quote 名 | DOUBLE |
| Trunc 名 | STD |
| Nsymbol 名 | DBCS |