Using the RETURN CODE statement

Subprocedures can return information to the caller using the CODE option of the RETURN statement. Like return codes from TSO/E commands, return codes from subprocedures are stored in the control variable &LASTCC, but error return codes from subroutines will not cause an error routine to receive control.

In the following example, the subprocedure passes a return code to the statement following SYSCALL:

   SET &A = AL
   SYSCALL XYZ &A                /* pass variable &A to XYZ            */
   IF &LASTCC = 0 THEN + 
     WRITE All's Well!

XYZ: PROC 1 PARM1
       WRITE &PARM1
       RETURN CODE(0)
     END