C$CALLEDBY

現在実行中の COBOL プログラムの呼び出し元の名前を戻します。呼び出し元が存在しないか不明の場合は、スペースを戻します。

注: This ACUCOBOL-GT library routine is available in this COBOL version. Any compatibility issues in this COBOL system are in the Compatibility Issues section at the end of the topic.

使用法

CALL "C$CALLEDBY" 
    USING CALLING-PROGRAM
    GIVING CALL-STATUS

パラメーター

CALLING-PROGRAM PIC X(n)

呼び出し元のプログラムの名前を含めます。呼び出し元が存在しないか不明の場合はスペースを含めます。ランタイムは、COBOL プログラムが許可する範囲で、その名前用の領域またはスペースを使用します。呼び出されるオブジェクトがオブジェクトライブラリ内にある場合、プログラムは PROGRAM-ID を戻します。オブジェクトがオブジェクトライブラリ内にない場合は、ディスク名が戻されます。

CALL-STATUS PIC S99

このパラメーターは、次のいずれかの値を受け取ります。

1 - ルーチンは別の COBOL プログラムで呼び出されています。0 - ルーチンはメインプログラムです。呼び出し元は存在しません。-1 - 呼び出し元が不明です。ルーチンは COBOL プログラムで呼び出されません。

互換性の問題

なし。