1 RETURNTerminates a GOSUB subroutine procedure and returns control to the command following the calling GOSUB command. Format RETURN [status-code] 2 Parameter status-code Defines a longword (integer) value or expression equivalent to an integer value that gives the exit status of the subroutine by defining a numeric value for the reserved global symbol $STATUS. The value can be tested by the next outer command level. The low- order 3 bits of the longword integer value change the value of the reserved global symbol $SEVERITY. If you specify a status code, DCL interprets the code as a condition code. Note that even numeric values produce warning, error, and fatal error messages, and that odd numeric values produce either no message or a success or informational message. If you do not specify a status code, the current value of $STATUS is saved. When control returns to the outer command level, $STATUS contains the status of the most recently executed command or program. 2 Example $ SHOW TIME 14-DEC-1994 14:25:42 $ GOSUB SYMBOL $ EXIT $ SYMBOL: $ SHOW SYMBOL RED RED = "SET DEFAULT [JONES.DCL]" $ RETURN 1 The GOSUB command transfers control to the subroutine labeled SYMBOL. After the subroutine is executed, the RETURN command transfers control back to the command following the calling GOSUB statement, giving $STATUS and $SEVERITY a value of 1. The procedure then exits.