条件が成立したときは,ELSEの前のTDコマンド群を実行します。条件が成立しないときは,ELSEのあとのTDコマンド群を実行します。
SET QUALIFICATION (#PROG(社員))
SET BREAK ST(8700) DO
IF CONDITION(R-CODE(I) = 0)
DISPLAY COM('**TEST OK **')
ELSE
IF CONDITION(R-CODE(I) NOT= 8)
DISPLAY COMMENT ('??? TEST NG')
DISPLAY DATA(R-CODE(I)) HEX
ASSIGN DATA(R-CODE(I)) VALUE(8)
ELSE
DISPLAY COMMENT ('**ERROR TEST OK**')
ENDIF
ENDIF
GO
ENDDO
GO