510-START-STRING

510-START-STRING re-initializes the string area input control fields and resets the result area to spaces.

Library STRRTNS
Input No input required.
Output

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

WS-STRFLD-OUT (reset to spaces)

Programming Example

     PERFORM 510-START-STRING.
     MOVE GDT-ACCOUNT-DESC       TO WS-STRFLD-IN.
     PERFORM 500-STRING-ALPHA.
     MOVE WS-STRFLD-OUT          TO GDT-SHORT-DESC.