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

ELSE
NEXT SENTENCE
ELSE
DISPLAY "0 RECORDS DELETED"
MOVE 0 TO FLAG
ELSE
NEXT SENTENCE
ELSE
MOVE 1 TO FLAG.
Example 103 shows the equivalent delimited-scope IF statement with delimited-scope statements
marked.
Example 103 Delimited-Scope IF Statement
INITIALIZE
INITIALIZE sets selected types of data items to predetermined values; for example, numeric data
to zeros or alphanumeric data to spaces.
receiver
is the identifier of an elementary item or data structure. These restrictions apply to the data
item:
• It cannot be an index data item or a pointer data item.
• It cannot be a special register.
342 Procedure Division Verbs