これは、ディスク ファイルがオブジェクト ライブラリの場合に特に役立ちます。
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 - プログラム名が不明です。 |
なし