COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-258
STRING
delimiter
is an alphanumeric literal or the identifier of a DISPLAY data item. It specifies the
portion of part-1 that is moved. It also specifies that all characters up to but not
including the value of delimiter are moved.
If the literal is a figurative constant, it represents the equivalent one-character
nonnumeric literal.
If the data item is numeric, it must be described as an integer whose PICTURE
character-string does not include P.
SIZE
specifies that all the characters in part-1 are moved.
result
is an identifier for an alphanumeric data item where the characters chosen from the
part-1 s are stored. If result is an elementary item, its PICTURE character-string
must not contain editing symbols or a JUSTIFIED clause. Reference modification
is not permitted.
Storing begins at the position identified by the initial value of pointer. When
pointer is not used, the leftmost position is the beginning place. An internal
index keeps track of the next available position in result. result cannot
reference a special register.
pointer
is the identifier of an integer data item whose PICTURE character-string does not
include P. The initial value of pointer (which you must set) is the position in
result to which the first character of data will be moved. The value of the first
position is 1. At the conclusion of STRING, pointer ’s value is its initial value plus
the total number of characters moved. pointer cannot reference a special
register.
imperative-stmt-1
is an imperative statement to be executed when the internal index points past the
end of result. OVERFLOW also occurs if the initial value of pointer is less
than 1 or greater than the length of result. If no OVERFLOW statement is given,
control passes to the next statement after STRING.
imperative-stmt-2
is an imperative statement to be executed when the internal index does not point
past the end of result.