IDENTIFICATION DIVISION.
       PROGRAM-ID. LIST-FEED.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT STOCK-FILE ASSIGN "FEEDSTCK.TXT"
           ORGANIZATION LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD  STOCK-FILE; RECORD CONTAINS 32 CHARACTERS.
       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-LINE THRU READ-LINE-EXIT
               UNTIL END-OF-FILE = 1.
           CLOSE STOCK-FILE.
           DISPLAY "---- ------------------------ ----".
           STOP RUN.
       READ-LINE.
           READ STOCK-FILE AT END
                 MOVE 1 TO END-OF-FILE
                 GO TO READ-LINE-EXIT.
           MOVE STOCK-CODE TO DI-CODE.
           MOVE PRODUCT-DESC TO DI-DESC.
           MOVE UNIT-SIZE TO DI-SIZE.
           DISPLAY DISP-ITEM.
       READ-LINE-EXIT.
           EXIT.