EXIT

PURPOSE:
To exit from a called program or subroutine and optionally return an error. 
STATEMENT SYNTAX:
{stno} EXIT {expr}
where:
expr is any integer between 0 and 32767. This integer is placed in the callers ERR variable and causes an error at the CALLing line number. 
EXAMPLE:
9900 EXIT
1234 EXIT 20000+MY_ERROR
9995 EXIT ERR
NOTES:
The user data level (LEV) will be decremented by 1 when the EXIT statement is executed.
SEE:
CALL for more information.