InEqualsOut

   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.