Page History
7.72.2 IF_MODE Examples
The following example applies to the IF_MODE command.
Create a simple inquire/add/update/delete function on a file called NAMES. Use the IF_MODE command to test the mode that the screen was in at the time the enter key was pressed:
...
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
...
* 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
*
...
* Go back and request next customer
*
GOTO LABEL(L10)