Regresar a la guía de aprendizaje
IDENTIFICATION DIVISION. ENVIRONMENT DIVISION. CONFIGURATION SECTION. DATA DIVISION. * * IMS Connector for Java, COBOL Transaction Message Source * *********************************************************************/ * */ * (c) Copyright IBM Corp. 2003 */ * 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(10). 02 IN-CMD PICTURE X(8). 02 IN-NAME1 PICTURE X(10). 02 IN-NAME2 PICTURE X(10). 02 IN-EXTN PICTURE X(10). 02 IN-ZIP PICTURE X(7). 01 OUTPUT-MSG. 02 OUT-LL PICTURE S9(3) COMP VALUE +0. 02 OUT-ZZ PICTURE S9(3) COMP VALUE +0. 02 OUT-MSG PICTURE X(40) VALUE SPACES. 02 OUT-CMD PICTURE X(8) VALUE SPACES. 02 OUT-NAME1 PICTURE X(10) VALUE SPACES. 02 OUT-NAME2 PICTURE X(10) VALUE SPACES. 02 OUT-EXTN PICTURE X(10) VALUE SPACES. 02 OUT-ZIP PICTURE X(7) VALUE SPACES. 02 OUT-SEGNO PICTURE X(4) VALUE SPACES. PROCEDURE DIVISION.