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 - プログラム名が不明です。

互換性の問題

なし

上位ヘルプ： ACUCOBOL-GT ライブラリ・ルーチン