7.13.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