RET - Return Code Function

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