RET - Return Code Function

#### Search Results

Search

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