バージョン 6.3.3
 —  システム関数  —

RET - リターンコード関数

フォーマット/長さ: I4

システム関数 RET(program-name) を使用して、CALL ステートメントで呼び出された Natural 以外のプログラムからのリターンコードを受け取ることができます。

RET(program-name) は、IF ステートメントおよび算術ステートメント ADDCOMPUTEDIVIDEMULTIPLYSUBTRACT で使用できます。

例:

DEFINE DATA LOCAL 
1 #RETURN (I4) 
... 
END-DEFINE 
... 
... 
CALL 'PROG1' 
IF RET('PROG1') > #RETURN 
   WRITE 'ERROR OCCURRED IN PROGRAM 1' 
END-IF 
...

Top of page