7 10 3 CHECK_FOR Examples

LANSA Technical

7.10.3 CHECK_FOR Examples

Example 1: Check for a record in the file CUSMST that has a key matching the value currently in the field #CUSNUM:

CHECK_FOR   IN_FILE(CUSMST) WITH_KEY(#CUSNUM)

IF_STATUS   IS_NOT(*EQUALKEY)
ABORT       MSGTXT('Customer not found in customer master')
ENDIF
 

Note how the CHECK_FOR command returns a status of *EQUALKEY or *NOTEQUALKEY, rather than the more commonly used status of *OKAY.

 

Example 2: Check a nominated tax code against a table of valid tax codes. The first key to the table indicates the tax classification which in this case is always income tax .

CHECK_FOR   IN_FILE(TAXTAB) WITH_KEY('INCOME' #TAXCDE)
 
IF_STATUS   IS_NOT(*EQUALKEY)
MESSAGE     MSGTXT('Tax code specified not valid for income tax')
ENDIF