COBOL 2000- Change In Perform

A new concept introduced in COBOL 2000. That is EXIT PERFORM.
EXIT [TO TEST OF] PERFORM

This statement can be used in the body of an in-line PERFORM statement either to exit the statement completely or go to the next iteration. For example, you might use EXIT PEFORM like this:

PERFORM VARYING IX FROM 1 BY 1 UNTIL IX > 12

IF SALARY(IX) IS ZERO

EXIT PERFORM 

END-IF

other statements

END-PERFORM

Advertisements

Author: Srini

Experienced software developer. Skills in Development, Coding, Testing and Debugging. Good Data analytic skills (Data Warehousing and BI). Also skills in Mainframe.