| Format/length: | I4 |
The system function
RET(program-name) may be used to
receive the return code from a non-Natural program called via a
CALL statement.
RET(program-name) can be used in
an IF statement and within the arithmetic statements
ADD,
COMPUTE,
DIVIDE,
MULTIPLY and
SUBTRACT.
Example:
DEFINE DATA LOCAL
1 #RETURN (I4)
...
END-DEFINE
...
...
CALL 'PROG1'
IF RET('PROG1') > #RETURN
WRITE 'ERROR OCCURRED IN PROGRAM 1'
END-IF
...
