580-STRING-DATE-MMDDYYYY

The 580-STRING-DATE-MMDDYYYY routine strings the given date into the output area as MM/DD/YYYY. No error indication is given for an invalid date.

Library STRRTNS

Required Input

Field Type and length Definition
WS-STRFMT-DATE N 8 Given date.

Optional Output

Field Type and length Definition
WS-STRFLD-OUT A 301 MM/DD/YYYY format.
WS-STRFLD-PNTR N 4 Optional.

Example

*       Edit date as MM/DD/YYYY.
        MOVE input-date            TO WS-STRFLD-DATE.
        PERFORM 580-STRING-DATE-MMDDYYYY.