580-STRING-DATE-MMDD

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

Example

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