チュートリアルに戻る

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.

チュートリアルに戻る