自由形式構文 | LEAVESR |
コード | 演算項目 1 | 演算項目 2 | 結果フィールド | 標識 | ||
---|---|---|---|---|---|---|
LEAVESR |
LEAVESR 命令は、サブルーチン内の任意のポイントからそのサブルーチンを 終了します。 制御は、そのサブルーチンの ENDSR 命令に渡されます。 LEAVESR はサブルーチンの中からしか使用できません。
制御レベル項目 (7 から 8 桁目) は SR または ブランクにすることができます。条件付け標識項目 (9 から 11 桁目) は指定できます。
詳細については、サブルーチン命令を参照してください。
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
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.