PRICE LIST

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRICELIST.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT OUTFILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD INFILE
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID IS "IN.TXT".
       01 INREC.
           02 ID PIC X(4).
           02 DESC PIC X(20).
           02 PRICE PIC 9(6).
       FD OUTFILE
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID IS "OUT.TXT".
       01 OUTREC PIC X(80).
       WORKING-STORAGE SECTION.
       01 H1.
           02 F PIC X(35) VALUE SPACES.
           02 F PIC X(10) VALUE "PRICE LIST".
       01 H2.
           02 F PIC X(2) VALUE SPACES.
           02 F PIC X(10) VALUE "PRODUCT-ID".
           02 F PIC X(2) VALUE SPACES.
           02 F PIC X(15) VALUE "PRODUCT-DESC".
           02 F PIC X(2) VALUE SPACES.
           02 F PIC X(5) VALUE "PRICE".
       01 H3.
           02 F PIC X(2) VALUE SPACES.
           02 OID PIC X(10) VALUE SPACES.
           02 F PIC X(2) VALUE SPACES.
           02 ODESC PIC X(15) VALUE SPACES.
           02 F PIC X(2) VALUE SPACES.
           02 OPRICE PIC $Z,ZZ,ZZ.99.
       01 H4.
           02 F PIC X(80) VALUE ALL "=".
       01 H5.
           02 F PIC X(20) VALUE SPACES.
           02 F PIC X(20) VALUE "NO.OF RECORDS".
           02 NOR PIC ZZZ.
       01 CH PIC X VALUE "Y".
       01 RC PIC 9(4) VALUE 0.
       PROCEDURE DIVISION.
       PARA.
           OPEN OUTPUT INFILE.
           PERFORM INPARA UNTIL CH = "N".
           CLOSE INFILE.
           OPEN INPUT INFILE OUTPUT OUTFILE.
           PERFORM WRITEPARA.
           PERFORM APARA.
           MOVE RC TO NOR.
           WRITE OUTREC FROM H4.
           WRITE OUTREC FROM H5.
       INPARA.
           DISPLAY " ENTER ID".
           ACCEPT ID.
           DISPLAY " ENTER DESC".
           ACCEPT DESC.
           DISPLAY " ENTER PRICE"
           ACCEPT PRICE.
           ADD 1 TO RC.
           DISPLAY " CONTINUE?"
           ACCEPT CH.
       WRITEPARA.
           WRITE OUTREC FROM H1.
           WRITE OUTREC FROM H4.
           WRITE OUTREC FROM H2.
       APARA.
           READ INFILE AT END GO TO CPARA.
           MOVE ID TO OID.
           MOVE ODESC TO ODESC.
           MOVE PRICE TO OPRICE.
           WRITE OUTREC FROM H3.
           GO TO APARA.
       CPARA.
           CLOSE INFILE OUTFILE.
           STOP RUN.

No comments:

Related Posts with Thumbnails