学习

CHECK <Condition>

CHECK 之后条件成立才继续往下子程序叙述

  Example:

          PERFORM  SUB1.

              CHECK  NUM1 < 10.

              WRITE  /  NUM1.

               NUM1 = NUM1 + 1. 

           ENDFORM.

EXIT

强迫结束子程序执行, 返回上一层程序叙述