7.58.3 IF_STATUS Examples
Example 1: Use the IF_STATUS command to trap a record not found condition and abort the function with an error:
FETCH FIELDS(#NAMEINFO) FROM_FILE(NAMES) WITH_KEY(#CUSTNO)
IF_STATUS IS_NOT(*OKAY)
ABORT MSGTXT('Customer name details not found')
ENDIF
which is identical to the following:
FETCH FIELDS(#NAMEINFO) FROM_FILE(NAMES) WITH_KEY(#CUSTNO)
IF COND('#IO$STS *NE OK')
ABORT MSGTXT('Customer name details not found')
ENDIF
Example 2: Modify the previous example to display the details (if found) else to abort the function:
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
which is identical to the following:
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