CALLING-PROGRAM PIC X(n) | 呼び出し側プログラムの名前を含めます。呼び出し元が存在しないか不明の場合はスペースを含めます。ランタイムは、COBOL プログラムが許可する程度の名前用の領域、またはスペースを使用します。呼び出されるオブジェクトがオブジェクト・ライブラリ内にある場合、プログラムは PROGRAM-ID を戻します。オブジェクトがオブジェクト・ライブラリ内にない場合は、ディスク名が戻されます。 |
CALL-STATUS PIC S99 | このパラメータは、次のいずれかの値を受け取ります。
1 - ルーチンは別の COBOL プログラムで呼び出されています。 |