580-DATE-MMYYYY

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

Example

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