COBOL2002 使用の手引 操作編


5.4.16 IF(データの値比較)

条件が成立したときは,ELSEの前のTDコマンド群を実行します。条件が成立しないときは,ELSEのあとのTDコマンド群を実行します。

形式

[図データ]

使用例

文番号8700で中断し,R-CODE(I)の値によって,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