7.75.3 IF_STATUS の使用例

例1：IF_STATUSコマンドを使用して、「見つからない」状態のレコードをトラップし、ファンクションを異常終了してエラーを発行します。
FETCH     FIELDS(#NAMEINFO) FROM_FILE(NAMES) WITH_KEY(#CUSTNO) IF_STATUS IS_NOT(*OKAY) ABORT     MSGTXT('Customer name details not found') ENDIF  
これは以下の例と同じです。
FETCH     FIELDS(#NAMEINFO) FROM_FILE(NAMES) WITH_KEY(#CUSTNO) IF        COND('#IO$STS *NE OK') ABORT     MSGTXT('Customer name details not found') ENDIF  
例2：上記の例を、(レコードが見つかった場合は)詳細を表示し、それ以外の場合はファンクションを異常終了するよう変更します。
FETCH     FIELDS(#NAMEINFO) FROM_FILE(NAMES) WITH_KEY(#CUSTNO) IF_STATUS IS(*OKAY) DISPLAY   FIELDS(#NAMEINFO) ELSE ABORT     MSGTXT('Customer name details not found') ENDIF  
これは以下の例と同じです。
FETCH     FIELDS(#NAMEINFO) FROM_FILE(NAMES) WITH_KEY(#CUSTNO) IF        COND('#IO$STS = OK') DISPLAY   FIELDS(#NAMEINFO) ELSE ABORT     MSGTXT('Customer name details not found') ENDIF