/*
* 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, Exemplo de Saída Multissegmentos
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 1998 */
* Todos os direitos reservados */
* Materiais Licenciados - Propriedade da IBM */
* */
* RENÚNCIA DE RESPONSABILIDADE DE GARANTIAS. */
* */
* O código (incluso) a seguir é fornecido exclusivamente com o */
* propósito de ajudá-lo no desenvolvimento de seus aplicativos. */
* O código é fornecido "NO ESTADO EM QUE SE ENCONTRA. A IBM NÃO OFERECE NENHUMA
GARANTIA, SEJA EXPRESSA OU */
* IMPLÍCITA, INCLUINDO, MAS A ELAS NÃO SE LIMITANDO, AS GARANTIAS IMPLÍCITAS DE
*/
* COMERCIALIZAÇÃO E ADEQUAÇÃO A UM DETERMINADO PROPÓSITO REFERENTES */
* À FUNÇÃO OU AO DESEMPENHO DESTE CÓDIGO. */
* A IBM não poderá ser responsabilizada por nenhum dano derivado da utilização
*/
* do código gerado, mesmo que tenha sido advertida sobre a */
* possibilidade de ocorrência de tais danos. */
* */
* DISTRIBUIÇÃO. */
* */
* Este código gerado pode ser livremente distribuído, copiado, alterado */
* e incorporado a outro software, contanto que: */
* - Ele mantenha o aviso de Copyright e a RENÚNCIA DE RESPONSABILIDADE acima intactos */
* - O software não seja revendido */
* */
*********************************************************************/
*
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.
| Parâmetro | Valor |
|---|---|
| Nome da Plataforma | Z/OS |
| Página de Códigos | IBM-037 |
| Nome do formato do ponto flutuante | IBM® Hexadecimal |
| Sinal decimal externo | EBCDIC |
| Nome endian | Big |
| Nome endian de número inteiro remoto | Big |
| Nome das aspas | DOUBLE |
| Nome trunc | STD |
| Nome nsymbol | DBCS |
| Parâmetro | Valor |
|---|---|
| Nome da Plataforma | Z/OS |
| Página de Códigos | IBM-037 |
| Nome do formato do ponto flutuante | IBM Hexadecimal |
| Sinal decimal externo | EBCDIC |
| Nome endian | Big |
| Nome endian de número inteiro remoto | Big |
| Nome das aspas | DOUBLE |
| Nome trunc | STD |
| Nome nsymbol | DBCS |
| Parâmetro | Valor |
|---|---|
| Nome da Plataforma | Z/OS |
| Página de Códigos | IBM-037 |
| Nome do formato do ponto flutuante | IBM Hexadecimal |
| Sinal decimal externo | EBCDIC |
| Nome endian | Big |
| Nome endian de número inteiro remoto | Big |
| Nome das aspas | DOUBLE |
| Nome trunc | STD |
| Nome nsymbol | DBCS |
| Parâmetro | Valor |
|---|---|
| Nome da Plataforma | Z/OS |
| Página de Códigos | 037 |
| Nome do formato do ponto flutuante | IBM 390 Hexadecimal |
| Sinal decimal externo | EBCDIC |
| Nome endian | Big |
| Nome endian de número inteiro remoto | Big |
| Nome das aspas | DOUBLE |
| Nome trunc | STD |
| Nome nsymbol | DBCS |