500-STRING-ALPHA

500-STRING-ALPHA skips leading and trailing spaces when concatenating WS-STRFLD-IN to WS-STRFLD-OUT . No error indication is given when the results are truncated.


`Library`	STRRTNS
Input	`WS-STRFLD-IN` `WS-STRFLD-IN-LIT-LEN` (optional) `WS-STRFLD-PARENS-FLAG` `WS-STRFLD-PERCENT-FLAG` `WS-STRFLD-PNTR`
Output	`WS-STRFLD-IN-GRP` (all input control fields are reinitialized) `WS-STRFLD-OUT` (always set)

Programming Example

`* Set negative amount in parentheses. No zero suppress. MOVE 1 TO WS-STRFLD-PNTR. MOVE negative-amount TO WS-STRFLD-IN. MOVE 15 TO WS-STRFLD-IN-LIT-LEN. SET STRFLD-NEEDS-PARENS TO TRUE. PERFORM 500-STRING-ALPHA.`

*      Set negative amount in parentheses. No zero suppress.
       MOVE 1                        TO WS-STRFLD-PNTR.
       MOVE negative-amount          TO WS-STRFLD-IN.
       MOVE 15                       TO WS-STRFLD-IN-LIT-LEN.
       SET STRFLD-NEEDS-PARENS       TO TRUE.
       PERFORM 500-STRING-ALPHA.