7.51.2 GOTOの使用例

LANSA

7.51.2 GOTOの使用例


例1:フィールド#Xが10未満の場合、制御をラベルL10に渡します。

IF     COND('#X *LT 10')
GOTO   LABEL(L10)
ENDIF
 

例2:フィールド#Xが10未満の場合、制御をラベルL10に渡します。それ以外の場合は、制御をラベルL11に渡します。

IF     COND('#X *LT 10')
GOTO   LABEL(L10)
ELSE
GOTO   LABEL(L11)
ENDIF