000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. REVIEW1B.
000030 AUTHOR. DAVID VOORHEES.
000040
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080     SELECT FILE1
000090         ASSIGN TO "REVIEW1.DAT"
000100         ORGANIZATION IS LINE SEQUENTIAL.
000110     SELECT FILE10
000120         ASSIGN TO "REVIEW1B-OUTPUT.DAT"
000130         ORGANIZATION IS SEQUENTIAL.
000140
000150 DATA DIVISION.
000160 FILE SECTION.
000170 FD  FILE1.
000180 01  RECORD10.
000190     05  INPUT-DEPARTMENT PIC X(10).
000200     05  INPUT-ITEM PIC X(20).
000210     05  INPUT-PRICE PIC 9(6)v99.
000220     05  INPUT-QUANTITY PIC 9(4).
000230
000240 FD  FILE10.
000250 01  RECORD1 PIC X(120).
000260
000270 WORKING-STORAGE SECTION.
000280 01  WS-FIELDS.
000290     05 SWITCH                   PIC X VALUE SPACE.
000300     05 YES-YES-YES              PIC X VALUE "N".
000310     05 WS-PRICE                 PIC 9(8)V99.
000320     05 TOTAL-EXTENDED           PIC 9(9)V99 VALUE ZEROS.
000330 01  LINE-1.
000340     05                          PIC X(54) VALUE SPACES.
000350     05 TL-EXT-PRICE             PIC 9(9).99.
000360 01  OUTPUT-LINE-1.
000370     05 PIC X(4) VALUE SPACES.
000380     05 D.
000390        10 D-0 PIC X.
000400        10 D-1 PIC X.
000410        10 D-2 PIC X.
000420        10 D-3 PIC X.
000430        10 D-4 PIC X.
000440        10 D-5 PIC X.
000450        10 D-6 PIC X.
000460        10 D-7 PIC X.
000470        10 D-8 PIC X.
000480        10 D-9 PIC X.
000490     05 PIC X(2) VALUE SPACES.
000500     05 NAME-OF-ITEM PIC X(20).
000510     05 PIC X(2) VALUE SPACES.
000520     05 AMOUNT PIC 9(6).99.
000530     05 PIC X(2) VALUE SPACES.
000540     05 AMOUNT1 PIC 9999.
000550     05 PIC X(2) VALUE SPACES.
000560     05 PP PIC 9(8).99.
000570 01  LINE-100.
000580     05                          PIC X(20) VALUE SPACES.
000590     05 PIC X(09) VALUE "Purchases".
000600
000610 PROCEDURE DIVISION.
000620 M500.
000630     PERFORM C2.
000640     PERFORM CZ
000650         UNTIL SWITCH = YES-YES-YES.
000660     PERFORM A1B.
000670     STOP RUN.
000680 A1A.
000690     OPEN INPUT FILE1
000700         OUTPUT FILE10.
000710 A1B.
000720     MOVE TOTAL-EXTENDED TO TL-EXT-PRICE.
000730     WRITE RECORD1
000740         FROM LINE-1
000750         AFTER ADVANCING 2 LINES.
000760     CLOSE FILE1
000770         FILE10.
000780 B5.
000790     READ FILE1
000800         AT END
000810             MOVE YES-YES-YES TO SWITCH
000820     END-READ.
000830 C-HELLO-STUDENT.
000840     COMPUTE WS-PRICE = INPUT-PRICE * INPUT-QUANTITY.
000850 C2.
000860     PERFORM A1A.
000870     WRITE RECORD1
000880         FROM LINE-100
000890         AFTER ADVANCING PAGE.
000900     PERFORM B5.
000910 CA.
000920     WRITE RECORD1
000930         FROM OUTPUT-LINE-1
000940         AFTER ADVANCING 2 LINES.
000950 CZ.
000960     PERFORM C-HELLO-STUDENT.
000970     MOVE INPUT-QUANTITY TO AMOUNT1.
000980     MOVE INPUT-ITEM TO NAME-OF-ITEM.
000990     ADD WS-PRICE TO TOTAL-EXTENDED.
001000     MOVE WS-PRICE TO PP.
001010     MOVE INPUT-PRICE TO AMOUNT.
001020     MOVE INPUT-DEPARTMENT TO D.
001030     PERFORM CA.
001040     PERFORM B5.