Got an iPhone or iPad? We have a brand new Pastebin App for both devices, and it's totally free! Click here to download the new Pastebin App for iOS.
Public Pastes
Guest

Untitled

By: a guest on Feb 26th, 2010  |  syntax: None  |  size: 0.47 KB  |  hits: 118  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  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
create a new version of this paste RAW Paste Data