590-STRING-YYYY

590-STRING-YYYY moves a four-digit year value preceded by a forward slash to the output area without any error checking.

Library STRRTNS
Input

WS-STRFLD-PNTR

WS-STRFMT-DATE

Output

WS-STRFLD-OUT (always set)

WS-STRFLD-PNTR (always set)