フォーマット／長さ：

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