Format/Länge: | I4 |
Die Systemfunktion
RET(program-name)
kann dazu verwendet
werden, den Returncode eines nicht in Natural geschriebenen Programms, das über
ein CALL
-Statement aufgerufen wurde, zu erhalten.
RET(program-name)
kann in einem
IF
-Statement sowie in den Arithmetik-Statements
ADD
,
COMPUTE
,
DIVIDE
,
MULTIPLY
und
SUBTRACT
verwendet
werden.
Beispiel:
DEFINE DATA LOCAL 1 #RETURN (I4) ... END-DEFINE ... ... CALL 'PROG1' IF RET('PROG1') > #RETURN WRITE 'ERROR OCCURRED IN PROGRAM 1' END-IF ...