000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. LIST-FEED.
000030 ENVIRONMENT DIVISION.
000040 CONFIGURATION SECTION.
000050 SOURCE-COMPUTER. NPS MICRO-COBOL.
000060 OBJECT-COMPUTER. CP/M 2.2.
000070 INPUT-OUTPUT SECTION.
000080 FILE-CONTROL.
000090     SELECT STOCK-FILE ASSIGN FEEDSTCK.TXT
000100     ORGANIZATION SEQUENTIAL.
000110 DATA DIVISION.
000120 FILE SECTION.
000130 FD  STOCK-FILE RECORD 32 TO 80.
000140 01  STOCK-ITEM.
000150     02  STOCK-CODE              PIC X(4).
000160     02  UNIT-SIZE               PIC 9(4).
000170     02  PRODUCT-DESC            PIC X(24).
000180 WORKING-STORAGE SECTION.
000190 01  DISP-ITEM.
000200     02  DI-CODE                 PIC X(4).
000210     02  FILLER                  PIC X VALUE ' '.
000220     02  DI-DESC                 PIC X(24).
000230     02  FILLER                  PIC X VALUE ' '.
000240     02  DI-SIZE                 PIC 9(4).
000250 77  END-OF-FILE                 PIC 9.
000260 PROCEDURE DIVISION.
000270 STARTIT.
000280     OPEN INPUT STOCK-FILE.
000290     DISPLAY 'CODE DESCRIPTION              SIZE'.
000300     DISPLAY '---- ------------------------ ----'.
000310     MOVE ZERO TO END-OF-FILE.
000320     PERFORM READ-LINE THRU READ-LINE-EXIT
000330         UNTIL END-OF-FILE EQUAL 1.
000340     CLOSE STOCK-FILE.
000350     DISPLAY '---- ------------------------ ----'.
000360     STOP RUN.
000370 READ-LINE.
000380     READ STOCK-FILE END
000390           MOVE 1 TO END-OF-FILE.
000400     IF END-OF-FILE EQUAL 1
000410           GO READ-LINE-EXIT END-IF.
000420     MOVE STOCK-CODE TO DI-CODE.
000430     MOVE PRODUCT-DESC TO DI-DESC.
000440     MOVE UNIT-SIZE TO DI-SIZE.
000450     DISPLAY DISP-ITEM.
000460 READ-LINE-EXIT.
000470     EXIT.