7.105.2 RETURN の使用例
以下の例のサブルーチンは、複雑なIF-ELSE構造の代わりに、RETURNコマンドを使用しています。
SUBROUTINE NAME(MATHS) PARMS(#F1 #OP #F2 #RS) DEFINE FIELD(#F1) TYPE(DEC) LENGTH(7) DECIMALS(0) DEFINE FIELD(#OP) TYPE(*CHAR) LENGTH(1) DEFINE FIELD(#F2) TYPE(*DEC) LENGTH(7) DECIMALS(0) DEFINE FIELD(#RS) TYPE(*DEC) LENGTH(15) DECIMALS(5) IF COND('#OP = ''''') CHANGE FIELD(#RS) TO('#F1 #F2') RETURN ENDIF IF COND('#OP = ''''') CHANGE FIELD(#RS) TO('#F1 #F2') RETURN ENDIF IF COND('#OP = ''''') CHANGE FIELD(#RS) TO('#F1 #F2') RETURN ENDIF IF COND('#OP = ''/''') CHANGE FIELD(#RS) TO('#F1 / #F2') RETURN ENDIF MESSAGE MSGTXT('Operation specified is not +,-, or /') ENDROUTINE