Terminates 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.
On this website, Google Analytics is used to track visitor statistics. These are anonymised data about the number of visitors, which pages they visit on this site, from which regions they visit, which web browsers they use, etc.. You will also see non-personalised ads via Google AdSense. Cookies from Paddle or Paypal are placed when you click on a 'Buy now!' or 'Donate!' button, and possible cookies from Disqus when you use that system to comment on one or more blogposts. Privacy Statement