520-STRING-LITERAL

520-STRING-LITERAL strings the input area, character by character, to the output area for whichever is shorter: input length, maximum input length, or maximum output length.

Library STRRTNS
Input

WS-STRFLD-IN

WS-STRFLD-IN-LIT-LEN

Output

WS-STRFLD-IN-GRP (all input control fields are reinitialized)

WS-STRFLD-OUT (with input data added)

WS-STRFLD-PNTR (set to next available character position in output)

Programming Example

    PERFORM 510-START-STRING.
    MOVE WS-BLK-STRFLD-IN-18         TO WS-STRFLD-IN.
    MOVE 18                          TO WS-STRFLD-IN-LIT-LEN.
    PERFORM 520-STRING-LITERAL.