LEAVESR (サブルーチンから抜け出す)

自由形式構文

LEAVESR

コード	演算項目 1	演算項目 2	結果フィールド	標識
LEAVESR

LEAVESR 命令は、サブルーチン内の任意のポイントからそのサブルーチンを終了します。制御は、そのサブルーチンの ENDSR 命令に渡されます。 LEAVESR はサブルーチンの中からしか使用できません。

制御レベル項目 (7 から 8 桁目) は SR またはブランクにすることができます。条件付け標識項目 (9 から 11 桁目) は指定できます。

詳細については、サブルーチン命令を参照してください。

図 1. LEAVESR 命令

CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq...
 *
C     CheckCustName BEGSR
C     Name          CHAIN     CustFile
 *
 * Check if the name identifies a valid customer
 *
C                   IF        not %found(CustFile)
C                   EVAL      Result = CustNotFound
C                   LEAVESR
C                   ENDIF
 *
 * Check if the customer qualifies for discount program
C                   IF        Qualified = *OFF
C                   EVAL      Result = CustNotQualified
C                   LEAVESR
C                   ENDIF
 *
 * If we get here, customer can use the discount program
C                   EVAL      Result = CustOK
C                   ENDSR