Skip to content

Instantly share code, notes, and snippets.

@pdemby

pdemby/DateFunc

Last active August 29, 2015 14:25
Show Gist options
  • Save pdemby/a34df006de99f4c63f55 to your computer and use it in GitHub Desktop.
Save pdemby/a34df006de99f4c63f55 to your computer and use it in GitHub Desktop.
Download ZIP
DateFunc
Raw
DateFunc
01 WS-DATE-IN PIC X(8).
01 WS-DATE-IN-NUM REDEFINES WS-DATE-IN PIC 9(8).
01 WS-DATE-OUT.
05 WS-DATE-OUT-CC PIC XX.
05 WS-DATE-OUT-YY PIC XX.
05 WS-DATE-OUT-MM PIC XX.
05 WS-DATE-OUT-DD PIC XX.
01 WS-DATE-OUT-NUM REDEFINES WS-DATE-OUT PIC 9(8).
01 WS-DATE-TEMP PIC 9(8) VALUE 0.
01 WS-DAYS PIC 9(3) VALUE 0.
01 WS-CCYYMMDD PIC 9(8).
01 OUTPUT-DATE PIC 9(8).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment