Skip to content

Instantly share code, notes, and snippets.

@pdemby

pdemby/DateFuncPR.cbl

Created July 21, 2015 16:46
Show Gist options
  • Save pdemby/6cb1cbf5c2b2d52c6992 to your computer and use it in GitHub Desktop.
Save pdemby/6cb1cbf5c2b2d52c6992 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
DateFuncPR.cbl
ADD-DAYS.
MOVE 0 TO WS-DATE-TEMP.
MOVE FUNCTION INTEGER-OF-DATE (WS-DATE-IN-NUM) TO WS-DATE-TEMP.
COMPUTE WS-DATE-TEMP = WS-DATE-TEMP + WS-DAYS.
MOVE FUNCTION DATE-OF-INTERGER (WS-DATE-TEMP) TO WS-DATE-OUT-NUM.
ADD-DAYS-EXIT.
EXIT.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment