RET - Returncode-Funktion

#### Search Results

Search

# RET - Returncode-Funktion

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