Pages

Total Pageviews

Monday, May 9, 2011

SALES REPORT GENERATION IN COBOL

       IDENTIFICATION DIVISION.
       PROGRAM-ID. EX1.
       AUTHOR  GANESH.    
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SALES-FILE ASSIGN TO DISK
           ORGANIZATION IS SEQUENTIAL
           ACCESS MODE IS SEQUENTIAL.
                   
       DATA DIVISION.
       FILE SECTION.
       FD SALES-FILE
           LABEL RECORDS ARE STANDARD
           RECORD CONTAINS 79 CHARACTERS
           VALUE OF FILE-ID  "SALESREPORT.DAT"
           DATA RECORD IS SALES-REC.
       01 SALES-REC.
           02   FILLER      PIC   X(7).
           02   ITEM-NO     PIC   Z(3).
           02   FILLER      PIC   X(10).
           02   ITEM-NAME   PIC   A(8).
           02   FILLER      PIC   X(10).
           02   QUANTITY    PIC   9(3).
           02   FILLER      PIC   X(10).
           02   PRICE       PIC   9(3).
           02   FILLER      PIC   X(10).
           02   TOTAL       PIC   9(5).
           02   FILLER      PIC   X(9).
       WORKING-STORAGE SECTION.
           77   N           PIC   9(3).
       01  REC1.
           02   FILLER      PIC   X(30)  VALUE ALL "*".
           02   FILLER      PIC   X(12)  VALUE "SALES-REPORT".
           02   FILLER      PIC   X(37)  VALUE ALL "*".
       01  REC2.
           02   FILLER      PIC   X(79)  VALUE  SPACES.
       01  REC3.
           02   FILLER      PIC   X(79)  VALUE  ALL "*".
       01  REC4.
           02   FILLER      PIC   X(5).
           02   FILLER      PIC   X(7)   VALUE "ITEM-NO".
           02   FILLER      PIC   X(5).
           02   FILLER      PIC   X(9)   VALUE "ITEM-NAME".
           02   FILLER      PIC   X(8).
           02   FILLER      PIC   X(8)   VALUE "QUANTITY".
           02   FILLER      PIC   X(8).
           02   FILLER      PIC   X(5)   VALUE "PRICE".
           02   FILLER      PIC   X(10).
           02   FILLER      PIC   X(5)   VALUE "TOTAL".

           02   FILLER      PIC   X(15).
       01 REC5.
           02   FILLER      PIC   X(50).
           02   FILLER      PIC   X(15)  VALUE "NET-TOTAL = ".
       
           02   G-TOTAL     PIC   9(5)  VALUE ZERO.
       PROCEDURE DIVISION.
       OPEN-PARA.
           OPEN OUTPUT SALES-FILE.
          
           WRITE SALES-REC FROM REC1.

           WRITE SALES-REC FROM REC2.

           WRITE SALES-REC FROM REC4.

           WRITE SALES-REC FROM REC2.
          
           DISPLAY "ENTER NUMBER OF ITEMS".
           ACCEPT N.

           PERFORM READ-PARA N TIMES.

           WRITE SALES-REC FROM REC3.
           WRITE SALES-REC FROM REC5.
           WRITE SALES-REC FROM REC3.
           CLOSE SALES-FILE.
           STOP RUN.
       READ-PARA.
           DISPLAY "ENTER ITEM-NO : ".
           ACCEPT ITEM-NO.

           DISPLAY "ENTER ITEM-NAME : ".
           ACCEPT ITEM-NAME.
          
           DISPLAY "PRICE OF ITEM : ".
           ACCEPT PRICE.

           DISPLAY "ENTER QUANTITY : ".
           ACCEPT QUANTITY.

           COMPUTE TOTAL = QUANTITY * PRICE .

           COMPUTE G-TOTAL = G-TOTAL + TOTAL.

           WRITE SALES-REC.


No comments:

Post a Comment