Recent Posts
None | 25 sec ago
HTML | 39 sec ago
None | 1 min ago
None | 1 min ago
None | 1 min ago
None | 2 min ago
None | 2 min ago
PHP | 2 min ago
What is pastebin?
Pastebin is a website that hosts all your text & code on dedicated servers for easy sharing.
learn more...
Domain Reports
Please check out our new and improved Firefox Add-on. hide message
By Anonymous on the 26th of Feb 2010 03:25:56 PM Download | Raw | Embed | Report
  1. -----COBOL------
  2.  
  3. IDENTIFICATION DIVISION
  4. PROGRAM ID. ERRORS-EXAMPLE.
  5. DATA DIVISION
  6. 77 ITEM-DESC PIC X20.
  7. 77 ITEM COST PIC 999V99.
  8. 77 VAT 999V99.
  9. 77 TOTAL PIC 999V99.
  10. PROCEDURE-DIVISION.
  11. BILL-SEQ
  12. MOVE 0 TO TOTAL.
  13.         INPUT ITEM-DESC
  14.         INPUT ITEM-COST.
  15. INPUT-ITER.
  16.         IF ITEM-COST = 0 GOTO INPUT-END
  17.                 ADD ITEM-COST TO TOTAL
  18.                 ACCEPT ITEM-DESC
  19.                 ACCEPT ITEM-COST
  20.                 GO TO INPUT ITER.
  21.         VAT = 0.15 X TOTAL
  22.         ADD VAT TO TOTAL
  23.         DISPLAY OUTPUT TOTAL
  24.         STOP-RUN.
  25. BILL-END
Submit a correction or amendment below. Make A New Post
To highlight particular lines, prefix each line with @h@
Syntax highlighting:
Post expiration:
Post exposure:
Name / Title:
Email: