Commands › CLIST Commands › CLIST Status Test Command

CLIST Status Test Command

ON Command

ON x....x   s......................s

Where:

x....x-one of the following:

• nnnn-4-digit CA IDMS ERROR-STATUS code
• mnemonic-equivalent of 4-digit code
• lrf-status-text to match LR-STATUS

s.....s-any CA IDMS DML or CA IDMS DMLO command (except IFC and REPEAT)

Use the ON command to provide an easy way to test the CA IDMS ERROR-STATUS or LR-STATUS.

Examples

 ON 0307  EXITR
 (If end-of-set exit current loop.)
 
 ON ANYERR  OBTAIN OWNER WITHIN EMP-POSITION
 (If error-status non-zero execute CA IDMS DML obtain.)
 
 ON DB-REC-NOT-FOUND  QUIT SELECTED RECORD NOT FOUND
 (If record-not-found stop the CLIST processing and display message.)
 
 ON LR-NOT-FOUND  QUIT SELECTED LR RECORD NOT FOUND
 (If specified LR not found, stop CLIST processing and display message.)
 
 ON LR-PROBLEM  QUIT LR MISHAP TOOK PLACE
 (If DBA-defined path status occurs, stop CLIST and display message.)

Standard Mnemonics Provided

The following are standard mnemonics. Additional mnemonics can also be established using the EQUATE command.

0000 DB-STATUS-OK
nnnn ANYERROR
0307 DB-END-OF-SET
0326 DB-REC-NOT-FOUND
1205 DB-DUP-ON-STORE
0805 DB-DUP-ON-MOD
0705 DB-DUP-ON-CONN