Setting COND CODES

Any COND CODE irrespective of value is normal termination as far as the Operating System is concerned, even if a person interprets it differently.

COND CODES externally, as they appear in JCL listings, can also be referred to as RETURN CODES, as they can also be useful when a sub-routine returns control to its caller. IBM standard Return Codes rise in multiples of 4 as that is the length of a Branch Instruction and hence a Branch Table can be constructed, which offers more efficient processing than a comparison process.

See PLI example

See REXX example

See IDCAMS example

Assembler Example
//S0010 EXEC PROC=ASMACLG //SYSIN DD * ASMCC CSECT ASMCCE STM R14,R12,12(R13) SAVE THE REGISTERS, LR R12,R15 ESTABLISH USING ASMCCE,R12 ADDRESSABILITY. ST R13,SAVEAREA+4 SAVE PREVIOUS AREA ADDR. LA R13,SAVEAREA R13 = MY SAVEAREA ADDRESS. L R13,SAVEAREA+4 RESTORE R13, AND RETURN (14,12),RC=20 RESTORE REGS AND EXIT CC=20 BR R14 SAVEAREA DS 18F R12 EQU 12 R13 EQU 13 R14 EQU 14 R15 EQU 15 END

COBOL example
//S0010 EXEC PROC=IGYWCLG //COBOL.SYSIN DD * IDENTIFICATION DIVISION. PROGRAM-ID. COBCC. AUTHOR. T.R.SAMBROOKS. INSTALLATION. DATE-WRITTEN. 08th August 2021. ENVIRONMENT DIVISION. CONFIGURATION SECTION. *----------------------------------------------------------------* * This program is designed to demonstrate setting a COND CODE. * *----------------------------------------------------------------* INPUT-OUTPUT SECTION. FILE-CONTROL. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. PROCEDURE DIVISION. AA-MAIN-PGM SECTION. MOVE +20 TO RETURN-CODE. *----------------------------------------------------------------* * This is the logical end of the source code program - COBCC * *----------------------------------------------------------------* AA-MAIN-PGM-EOJ. GOBACK. *----------------------------------------------------------------* * This is the physical end of the source code program - COBCC * *----------------------------------------------------------------*