/*
* Создано: 13 октября 2004 г.
*
* TODO Для изменения шаблона этого сгенерированного файла выберите пункт меню
* Окно - Параметры - Java - Стиль кода - Шаблоны кода
*/
package sample.ims;
/**
* @author ivyho
*
* TODO Для изменения шаблона этого сгенерированного типа выберите пункт меню
* Окно - Параметры - Java - Стиль кода - Шаблоны кода
* @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 Коннектор для Java, Пример многосегментного вывода
*
*********************************************************************/
* */
* (c) Авторское право Корпорации IBM 1998 */
* Авторские права защищены */
* Лицензионный материал - собственность IBM */
* */
* Заявление об ограничении ответственности. */
* */
* Следующий код (закрытый) предоставляется исключительно для помощи */
* в разработке приложений. Код предоставляется "КАК ЕСТЬ". IBM НЕ */
* ДАЕТ НИКАКИХ ГАРАНТИЙ, ЯВНЫХ ИЛИ ПОДРАЗУМЕВАЕМЫХ, ВКЛЮЧАЯ (НО */
* НЕ ОГРАНИЧИВАЯСЬ ИМИ) ПОДРАЗУМЕВАЕМЫЕ ГАРАНТИИ КОММЕРЧЕСКОЙ */
* ЦЕННОСТИ И ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННОЙ ЦЕЛИ В ЧАСТИ ФУНКЦИЙ */
* ИЛИ ИСПОЛНЕНИЯ НАСТОЯЩЕГО КОДЕКСА. */
* IBM не несет ответственности за любой ущерб, вытекающий из */
* использования сгенерированного вами кода, даже если фирма была */
* предупреждена о возможности таких убытков. */
* */
* РАСПРОСТРАНЕНИЕ. */
* */
* Этот сгенерированный код можно свободно распространять, */
* копировать, изменять и включать в другое программное обеспечение, */
* при условии, что: */
* - он сопровождается вышеприведенным уведомлением об авторских */
* правах и ОТКАЗОМ от неповрежденности */
* - программное обеспечение не перепродается */
* */
*********************************************************************/
*
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.
РАЗДЕЛ ПРОЦЕДУРЫ.
| Параметр | Значение |
|---|---|
| Имя платформы | Z/OS |
| Кодовая страница | IBM-037 |
| Идентификатор формата с плавающей точкой | IBM® Hexadecimal |
| Внешний десятичный знак | EBCDIC |
| Идентификатор endian | Big |
| Идентификатор удаленного целого endian | Big |
| Идентификатор quote | DOUBLE |
| Идентификатор trunc | STD |
| Идентификатор Nsymbol | DBCS |
| Параметр | Значение |
|---|---|
| Имя платформы | Z/OS |
| Кодовая страница | IBM-037 |
| Идентификатор формата с плавающей точкой | IBM Hexadecimal |
| Внешний десятичный знак | EBCDIC |
| Идентификатор endian | Big |
| Идентификатор удаленного целого endian | Big |
| Идентификатор quote | DOUBLE |
| Идентификатор trunc | STD |
| Идентификатор Nsymbol | DBCS |
| Параметр | Значение |
|---|---|
| Имя платформы | Z/OS |
| Кодовая страница | IBM-037 |
| Идентификатор формата с плавающей точкой | IBM Hexadecimal |
| Внешний десятичный знак | EBCDIC |
| Идентификатор endian | Big |
| Идентификатор удаленного целого endian | Big |
| Идентификатор quote | DOUBLE |
| Идентификатор trunc | STD |
| Идентификатор Nsymbol | DBCS |
| Параметр | Значение |
|---|---|
| Имя платформы | Z/OS |
| Кодовая страница | 037 |
| Идентификатор формата с плавающей точкой | IBM 390 Hexadecimal |
| Внешний десятичный знак | EBCDIC |
| Идентификатор endian | Big |
| Идентификатор удаленного целого endian | Big |
| Идентификатор quote | DOUBLE |
| Идентификатор trunc | STD |
| Идентификатор Nsymbol | DBCS |