| フォーマット／長さ： | I4 |
システム関数 RET(program-name) を使用して、CALL ステートメントで呼び出された Natural 以外のプログラムからのリターンコードを受け取ることができます。
RET(program-name) は、IF ステートメントおよび算術ステートメント ADD、COMPUTE、DIVIDE、MULTIPLY、SUBTRACT で使用できます。
例：
DEFINE DATA LOCAL
1 #RETURN (I4)
...
END-DEFINE
...
...
CALL 'PROG1'
IF RET('PROG1') > #RETURN
WRITE 'ERROR OCCURRED IN PROGRAM 1'
END-IF
...
