CHR_APPND

Copy one string into another, ignoring trailing blanks

Description:

The string STR1 (or as much of it as there is room for) is copied into the part of STR2 beginning at position IPOSN+1. IPOSN is updated to indicate the final length of STR2 after this operation. Trailing blanks in STR1 are ignored.

Invocation

CALL CHR_APPND( STR1, STR2, IPOSN )

Arguments

STR1 = CHARACTER ( ) (Given)
The string to be copied.
STR2 = CHARACTER ( ) (Given and Returned)
The string to be updated.
IPOSN = INTEGER (Given and Returned)
The position in STR2 at which STR1 is to be appended. This value is returned updated to be the position of the last non-blank character in STR2 after the copy.