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