COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

• Its description cannot include a RENAMES clause.
• Its description (and the descriptions of its subordinate data items, if any) cannot include
an OCCURS clause with a DEPENDING phrase.
The maximum number of receivers in an INITIALIZE statement is 127.
replacement
specifies the category of elementary item in receiver to which the INITIALIZE operation is
to assign a value. The default replacement is ZEROS for each NUMERIC or NUMERIC-EDITED
receiver and SPACES for each ALPHABETIC, ALPHANUMERIC, or ALPHANUMERIC-EDITED
receiver. The receiver is in one of these categories whether you specify replacement
or not (see PICTURE Clause (page 191)).
ALPHABETIC, ALPHANUMERIC, NUMERIC, ALPHANUMERIC-EDITED, NUMERIC-EDITED
are categories defined in PICTURE Clause (page 191). The category you specify must be
permitted for a receiving operand in a MOVE statement where the corresponding sending
operand is sender or literal. You cannot specify a category more than once in a
single INITIALIZE statement.
sender
is the identifier of a data item from which the INITIALIZE statement obtains a value to store
into the elementary items specified by receiver. The sender cannot be a national or
index data item.
literal
is the representation of a value that the INITIALIZE statement stores into the elementary item
specified by receiver. literal cannot be a national literal.
The INITIALIZE statements in Example 104 assign initial values to data structures composed of
counters and pointers that a program uses for UNSTRING and INSPECT statements. In the first
statement, the REPLACING phrase can be omitted if UNSTRING-COUNTERS and
INSPECT-COUNTERS are numeric.
INITIALIZE 343