IDENTIFICATION DIVISION.
       PROGRAM-ID. LOAD-FEED.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT FEED-FILE ASSIGN "FEEDSTCK.TXT"
           ORGANIZATION LINE SEQUENTIAL.

           SELECT STOCK-FILE ASSIGN "STOCK.IT"
           ORGANIZATION INDEXED
           ACCESS DYNAMIC
           RECORD KEY STOCK-CODE.

       DATA DIVISION.
       FILE SECTION.
       FD  FEED-FILE.
       01  FEED-ITEM.
           02  FEED-CODE               PIC X(4).
           02  FEED-DESC               PIC X(24).
           02  FEED-SIZE               PIC 9(4).
       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.
       77  END-OF-FILE                 PIC 9.

       PROCEDURE DIVISION.
           OPEN INPUT FEED-FILE.
           OPEN OUTPUT STOCK-FILE.
           MOVE ZERO TO END-OF-FILE.
           PERFORM READ-LINE THRU READ-LINE-EXIT
               UNTIL END-OF-FILE = 1.
           CLOSE FEED-FILE, STOCK-FILE.
           STOP RUN.
       READ-LINE.
           READ FEED-FILE AT END
                 MOVE 1 TO END-OF-FILE
                 GO TO READ-LINE-EXIT.
           MOVE FEED-ITEM TO STOCK-ITEM.
           DISPLAY "LOADING: " STOCK-CODE.
           WRITE STOCK-ITEM INVALID KEY
                DISPLAY " -- FAILED".
       READ-LINE-EXIT.
           EXIT.