IDENTIFICATION DIVISION.
       PROGRAM-ID. LIST-STOCK.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT STOCK-FILE ASSIGN "STOCK.IT"
           ORGANIZATION INDEXED
           ACCESS DYNAMIC
           RECORD KEY STOCK-CODE.
       DATA DIVISION.
       FILE SECTION.
       FD  STOCK-FILE.
       01  STOCK-ITEM.
           02  STOCK-CODE              PIC X(4).
           02  PRODUCT-DESC            PIC X(24).
           02  UNIT-SIZE               PIC 9(4).
       WORKING-STORAGE SECTION.
       01  DISP-ITEM.
           02  DI-CODE                 PIC X(4).
           02  FILLER                  PIC X VALUE " ".
           02  DI-DESC                 PIC X(24).
           02  FILLER                  PIC X VALUE " ".
           02  DI-SIZE                 PIC 9(4).
       77  END-OF-FILE                 PIC 9.
       PROCEDURE DIVISION.
           OPEN INPUT STOCK-FILE.
           DISPLAY "CODE DESCRIPTION              SIZE".
           DISPLAY "---- ------------------------ ----".
           MOVE ZERO TO END-OF-FILE.
           PERFORM READ-RECORD THRU READ-RECORD-EXIT
               UNTIL END-OF-FILE = 1.
           CLOSE STOCK-FILE.
           DISPLAY "---- ------------------------ ----".
           STOP RUN.
       READ-RECORD.
           READ STOCK-FILE NEXT RECORD AT END
                 MOVE 1 TO END-OF-FILE
                 GO TO READ-RECORD-EXIT.
           MOVE STOCK-CODE TO DI-CODE.
           MOVE PRODUCT-DESC TO DI-DESC.
           MOVE UNIT-SIZE TO DI-SIZE.
           DISPLAY DISP-ITEM.
       READ-RECORD-EXIT.
           EXIT.