C$MYFILE

現在実行中のプログラムを含むディスクファイルのファイル名を戻します。

制限事項：このルーチンはネイティブ COBOL でのみサポートされます。

注：この ACUCOBOL-GT ライブラリルーチンはこの COBOL バージョンで利用できます。この COBOL システムの互換性の問題は、トピックの終わりにある「互換性の問題」節に表示されます。

これは、ディスクファイルがオブジェクトライブラリの場合に特に役立ちます。

使用法

CALL "C$MYFILE"
USING PROGRAM-NAME
GIVING CALL-STATUS

パラメーター

PROGRAM-NAME PIC X(n)

現在実行中のプログラムを含むディスクファイルのファイル名 (わかっている場合) を示します。ランタイムは、COBOL プログラムが許可する程度のスペースをファイル名に使用します。このパラメーターには、ランタイムで受け取ったとおりのファイル名が含まれます。例えば、オブジェクトライブラリが ../ardir/myarlib.lib としてロードされ、myarlib.lib 内のプログラムがこのルーチンを呼び出す場合、PROGRAM-NAME の値は ../ardir/myarlib.lib になります。

CALL-STATUS PIC S99

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

1 - PROGRAM-NAME は正常に書き込まれました。

-1 - プログラム名が不明です。

互換性の問題

なし