Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 000100 IDENTIFICATION DIVISION.
- 000200 PROGRAM-ID. MENU03.
- 001100 ENVIRONMENT DIVISION.
- 001200 DATA DIVISION.
- 001300 WORKING-STORAGE SECTION.
- 01 MENU-PICK PIC X VALUE "N".
- 88 PICK-IS-EXIT VALUE "Y".
- 01 THE-LENGTH2 PIC 9(5).
- 01 THE-WIDTH PIC 9(5).
- 01 PRICEPURCHASE PIC 9(5).
- 01 FINALPRICE PIC 9(5).
- 01 PRICE PIC 9(5).
- PROCEDURE DIVISION.
- PROGRAM-BEGIN.
- MOVE 1 TO MENU-PICK.
- PERFORM GET-AND-DO-PICK
- UNTIL PICK-IS-EXIT.
- PROGRAM-DONE.
- STOP RUN.
- GET-AND-DO-PICK.
- PERFORM GET-THE-MENU-PICK.
- PERFORM DO-THE-MENU-PICK.
- DISPLAY"CONTINUE SHOPPING? Y/N".
- ACCEPT MENU-PICK.
- GET-THE-MENU-PICK.
- PERFORM DISPLAY-THE-MENU.
- PERFORM GET-THE-PRICE.
- DO-THE-MENU-PICK.
- IF MENU-PICK = 1
- MOVE 5 TO PRICE
- ELSE IF MENU-PICK = 2
- MOVE 10 TO PRICE
- ELSE IF MENU-PICK = 3
- MOVE 13 TO PRICE
- ELSE IF MENU-PICK = 4
- MOVE 18 TO PRICE
- ELSE
- DISPLAY"INVALID KEYWORD".
- GO TO GET-THE-MENU-PICK.
- PERFORM KIRA.
- GET-THE-PRICE.
- ACCEPT MENU-PICK.
- DISPLAY-THE-MENU.
- DISPLAY "Pricing".
- DISPLAY " ".
- DISPLAY "1. Clear Glass RM5.00/square meter ".
- DISPLAY "2. Frosted Glass RM10.00/square meter".
- DISPLAY "3. Sheet Glass RM13.00/square meter".
- DISPLAY "4. Patterned Glass RM18.00/square meter".
- KIRA.
- DISPLAY "ENTER LENGTH: ".
- ACCEPT THE-LENGTH2.
- DISPLAY "ENTER WIDTH: ".
- ACCEPT THE-WIDTH.
- PERFORM FINAL-BILL.
- FINAL-BILL.
- COMPUTE PRICEPURCHASE = (THE-LENGTH2*THE-WIDTH) * PRICE.
- MOVE PRICEPURCHASE TO FINALPRICE.
- DISPLAY "TOTAL BILL RM: " FINALPRICE.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement