The following article provides examples on modifying the CA-Ideal $RC value. The first example will show you how to modify the $RC in the CA-Ideal default error procedure within a program, and the second example will show you how to modify the $RC within the SYSIN of a batch job.
Modifying CA-Ideal's $RC in the default error procedure
To add the default error procedure to your program, enter the characters ER (Error Procedure) on the margin command line while in "edit program" mode. Below is a display of the default error procedure template:
IF $RC LT 12
SET $RC EQ 12
You can modify the $RC to any value higher or lower than 12. Then, recompile the program and rerun the job. For example:
IF $RC LT 12
SET $RC EQ 40 <- any number higher or lower than 12
In the above example, the return code will be set to 40 (instead of 12) if the error procedure is invoked.
Modifying CA-Ideal's $RC in the SYSIN of a batch job
You can also change the severity of a returned error from CA-Ideal in a batch input statement. For example, executing the sample SYSIN below will set a return code of 0 after the DELETE MODULE command (even if a "module not found" error is returned). Execution will continue with the ALTER PGM. If the ALTER PGM fails, the CREATE MODULE will not be executed, and a return code of 16 will be returned. If the CREATE MODULE fails, the default return code of 8 will be issued.
//SYSIN DD * SEL SYS $ID
DELETE MODULE FOR PGM TEST1 SET $RC EQ 0
ALTER PGM TEST1 VERSION PROD DBID 001 DBID 200
IF $RC EQ 0
CREATE MODULE TEST1 FROM PROGRAM TEST1
SET $RC EQ 16
Further information can be found in the CA Ideal Working in the Environment Reference Guide and in the and in the CA Ideal Creating Programs Guide.