InEqualsOut.cbl

Este es el código de InEqualsOut.cbl:

InEqualsOut.cbl

        IDENTIFICATION DIVISION.   
        program-id. pgm1.                                        
        ENVIRONMENT DIVISION.                                             
        CONFIGURATION SECTION.                                            
        DATA DIVISION. 

        LINKAGE SECTION.

       01  IN-OUT-MSG.
           05  WS-LL                      PIC S9(3) COMP VALUE +0.
           05  WS-ZZ                      PIC S9(3) COMP VALUE +0.
           05  WS-TRCD                    PIC X(5).          
           05  INDX                       PIC 99.
           05  WS-CUSTOMER     OCCURS 1 TO 8 TIMES 
               DEPENDING ON INDX.
               15  WS-CUST-NUMBER         PIC  X(5).
               15  WS-CUST-NAME           PIC  X(20).
           05  WS-FUNC-CODE               PIC  X(6).

        PROCEDURE DIVISION.    
.
Tareas relacionadas
Lección 1.1: Seleccionar el adaptador de recurso