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.