C$MYFILE

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

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

互換性の問題

なし。