580-STRING-DATE-MMDDYY

The 580-STRING-DATE-MMDDYY routine strings the given date into the output area as MM/DD/YY. 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/YY format.
WS-STRFLD-PNTR N 4 Optional.

Example

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