Skip to content

Instantly share code, notes, and snippets.

/bug-norman.cbl

Created April 20, 2013 20:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/5427201 to your computer and use it in GitHub Desktop.
Save anonymous/5427201 to your computer and use it in GitHub Desktop.
Download ZIP
My first COBOL program
Raw
bug-norman.cbl
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TIME-STORAGE.
03 CURRENT-TIME-NUMERIC PIC 9(8).
03 ETA-NUMERIC PIC 9(8) REDEFINES CURRENT-TIME-NUMERIC.
03 CURRENT-TIME REDEFINES CURRENT-TIME-NUMERIC.
05 CURRENTHOUR PIC 99.
05 CURRENTMINUTE PIC 99.
05 FILLER PIC 9(4).
03 ARIVAL-TIME-NUMERIC PIC 9(8).
03 ARIVAL-TIME REDEFINES ARIVAL-TIME-NUMERIC.
05 ARRIVALHOUR PIC 99.
05 ARRIVALMINUTE PIC 99.
05 FILLER PIC 9(4).
PROCEDURE DIVISION.
BEGIN-BUG-NORMAN.
DISPLAY "when will you be ariving?"
DISPLAY "HH [enter]"
ACCEPT ARRIVALHOUR
DISPLAY "MM [enter]"
ACCEPT ARRIVALMINUTE
ACCEPT CURRENT-TIME FROM TIME.
SUBTRACT ARIVAL-TIME-NUMERIC
FROM CURRENT-TIME-NUMERIC
GIVING ETA-NUMERIC.
DISPLAY "RESULTING ETA:"
DISPLAY ETA-NUMERIC.
DISPLAY "HOURS:"
DISPLAY CURRENTHOUR
DISPLAY "MINUTES:"
DISPLAY CURRENTMINUTE
STOP RUN.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment