Marc's Place

1  RETURN
   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.

---

© 1997- Marc Vos (and others)   -   Privacy Statement   -    Contact Me

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

Dismiss