7.56.2 IF_MODEの使用例
以下は、IF_MODEコマンドの例です。
NAMESというファイルに対して単純な照会/追加/更新/削除を行うファンクションを作成します。IF_MODEコマンドを使用して、[OK]キーが押されたときの画面のモードを検査します。
GROUP_BY NAME(#NAMEINFO) FIELDS(#CUSTNO #NAME #ADD1 #ADD2 #POSTCD)
L10: CHANGE FIELD(#CUSTNO) TO(*DEFAULT)
MESSAGE MSGTXT('Specify customer to review or use ADD key to add one')
L15: SET_MODE TO(*DISPLAY)
REQUEST FIELDS(#CUSTNO) ADD_KEY(*YES)
*
* Add a new customer to the file ......
*
IF_MODE IS(*ADD)
REQUEST FIELDS(#NAMEINFO)
INSERT FIELDS(#NAMEINFO) TO_FILE(NAMES)
*
* Else review / change / delete an existing customer
*
ELSE
FETCH FIELDS(#NAMEINFO) FROM_FILE(NAMES) WITH_KEY(CUSTNO) NOT_FOUND(L15) ISSUE_MSG(*YES)
DISPLAY FIELDS(#NAMEINFO) CHANGE_KEY(*YES) DELETE_KEY(*YES)
IF_MODE IS(*CHANGE)
UPDATE FIELDS(#NAMEINFO) IN_FILE(NAMES)
ENDIF
IF_MODE IS(*DELETE)
DELETE FROM_FILE(NAMES)
ENDIF
ENDIF
*
* Go back and request next customer
*
GOTO LABEL(L10)