Rational Developer para System z, Versión 7.6

queryAccount.cbl

Este programa COBOL de ejemplo contiene una estructura CUSTOMERINFO que puede seleccionar como el patrón para el mensaje de entrada de la interfaz de servicio y una estructura ACCOUNTINFO que puede seleccionar como patrón para la el mensaje de salida de la interfaz de servicio.

Para crear un archivo COBOL llamado queryAccount.cbl a partir de este programa COBOL:
  1. Cree un archivo de texto llamado queryAccount.cbl.
  2. Copie y pegue el texto de Figura 1 en queryAccount.cbl.
  3. Guarde y cierre el archivo queryAccount.cbl.
Figura 1. Parte 1 del texto para queryAccount.cbl
 * (c) Copyright IBM Corp. 2005,2009  Reservados todos los derechos.
       *
       * Este programa de ejemplo es propiedad de International Business Machines
       * Corporation o una de sus filiales ("IBM") y es un programa bajo licencia
       * pero no está a la venta.
       *
       * Puede copiar, modificar y distribuir los programas de ejemplo de cualquier forma
       * sin tener que pagar a IBM, con intención de desarrollar, utilizar,
       * comercializar o distribuir programas que incluyan o que sean
       * trabajos derivados del programa de ejemplo.
       *
       * El programa de ejemplo se proporciona "TAL CUAL", sin
       * garantía de tipo alguno.  IBM POR LA PRESENTE DECLINA TODAS LAS GARANTÍAS,
       * EXPRESAS NI IMPLÍCITAS, INCLUYENDO PERO NO LIMITÁNDOSE A ELLAS, LAS GARANTÍAS IMPLÍCITAS
       * DE COMERCIALIZACIÓN, ADECUACIÓN PARA UN PROPÓSITO DETERMINADO.
       * Algunas jurisdicciones no permiten la exclusión o limitación de
       * las garantías implícitas, por lo que las limitaciones o exclusiones
       * anteriores puede que no se apliquen.  IBM no será responsable de los daños derivados
       * como resultado de la utilización, modificación o distribución del programa
       * de ejemplo y sus derivados.
       *
       IDENTIFICATION DIVISION.
       PROGRAM-ID.   QUERYACC.
       Data division.
       Working-Storage section.
       01 MYVARIABLES.
           03 subscript PIC 9.
       01 ACCOUNTINFO.
           03 userName pic x(10) value spaces.
           03 department pic x(10) value spaces.
           03 itemNumber pic x(4) value spaces.
           03 quantity pic x(4) value spaces.
           03 returnCode pic 9(5).
       01 CUSTOMERINFO.
            03 accountNumber pic x(45).
       01 errormsg pic x(31) value
              'This is a comm area application'.
       Linkage section.
         01 DFHCOMMAREA.
            03 filler pic x(45).
Figura 2. Parte 2 del texto para queryAccount.cbl
       procedure division.
       Mainprogram.
           if eibcalen = 0
             move eibtrnid to errormsg(1:4)
             EXEC CICS SEND TEXT FROM(ERRORMSG) END-EXEC
             EXEC CICS RETURN END-EXEC
           end-if.
           move dfhcommarea to CUSTOMERINFO.
           display eibtrnid " account Number '" accountNumber(1:6) "'" .
           evaluate accountNumber(1:6)
             when '100356'
                Move 'cindy' to username
                Move 't35' to department
                Move '0010' to itemNumber
                Move '1' to quantity
                Move 0 to returnCode
             when '104444'
                Move 'user1' to username
                Move 't35' to department
                Move '0130' to itemNumber
                Move '1' to quantity
                Move 0 to returnCode
             when other
                Move 'user2' to username
                Move 't35' to department
                Move '0020' to itemNumber
                Move '1' to quantity
                Move 0 to returnCode
           end-evaluate.
           Move ACCOUNTINFO to dfhcommarea.
           EXEC CICS RETURN END-EXEC.
           Exit.

Términos de uso | Comentarios

Este Information Center está basado en tecnología Eclipse. (http://www.eclipse.org)