Enterprise COBOL for z/OS V4.2 Programming Guide

particular exception does not occur, such as NOT ON SIZE ERROR. The NOT phrasecannot be used with the ON OVERFLOW phrase of the CALL statement, but it can beused with the ON EXCEPTION phrase.Do not nest conditional statements. Nested statements must be imperativestatements (or delimited scope statements) and must follow the rules forimperative statements.The following statements are examples of conditional statements if they are codedwithout scope terminators:v Arithmetic statement with ON SIZE ERRORv Data-manipulation statements with ON OVERFLOWv CALL statements with ON OVERFLOWv I/O statements with INVALID KEY, AT END, orAT END-OF-PAGEv RETURN with AT ENDRELATED CONCEPTS“Imperative statements” on page 21“Scope terminators”RELATED TASKS“Selecting program actions” on page 89RELATED REFERENCESConditional statements (Enterprise COBOL Language Reference)Compiler-directing statementsA compiler-directing statement causes the compiler to take specific action about theprogram structure, COPY processing, listing control, or control flow.A compiler-directing statement is not part of the program logic.RELATED REFERENCESChapter 18, “Compiler-directing statements,” on page 363Compiler-directing statements (Enterprise COBOL Language Reference)Scope terminatorsA scope terminator ends a verb or statement. Scope terminators can be explicit orimplicit.Explicit scope terminators end a verb without ending a sentence. They consist ofEND followed by a hyphen and the name of the verb being terminated, such asEND-IF. An implicit scope terminator is a period (.) that ends the scope of allprevious statements not yet ended.Each of the two periods in the following program fragment ends an IF statement,making the code equivalent to the code after it that instead uses explicit scopeterminators:IF ITEM = "A"DISPLAY "THE VALUE OF ITEM IS " ITEMADD 1 TO TOTALMOVE "C" TO ITEMDISPLAY "THE VALUE OF ITEM IS NOW " ITEM.IF ITEM = "B"ADD 2 TO TOTAL.22 Enterprise COBOL for z/OS V4.2 Programming Guide