CICS および JCL の両方からアクセスするファイル

バッチ ジョブで、CICS からもアクセスするデータセットへの排他アクセスが必要な場合、バッチ ジョブを実行する前にそのデータセットを閉じて無効にする必要があります。バッチ ジョブは、この操作が行われるまで待機してから実行されます。

バッチ ジョブで排他アクセスが不要な場合は問題ありません。CICS と同時にデータセットにアクセスできます。

casfile コマンドを使用すると、データセットを閉じて無効にし、バッチ ジョブが終わった後にデータセットを再度開いて有効にできます。casfile はアプリケーションのコマンド プロンプトから呼び出します。このコマンドを JCL ジョブストリーム内から間接的に呼び出すには、簡単な COBOL プログラムを記述して呼び出し、ジョブストリームから COBOL プログラムを呼び出します。

次に、casfile の例を、その最重要パラメーターとともに示します。詳細については、「casfile」を参照してください。

FSDEMO というエンタープライズ サーバーで payroll というファイルを閉じて無効にするには、次のように入力します。

casfile -rFSDEMO -oc -ed –dPAYROLL

詳細は次のとおりです。

• -oc は、Open ステータスが「closed」に設定されていることを示します。
• -ed は、Enable ステータスが「disabled」に設定されていることを示します。
• -d パラメーターは、FCT に示されるデータセット名を指定します。

同じファイルを開いて有効にするには、次のように入力します。

casfile -rFSDEMO -ooi -ee –dPAYROLL

詳細は次のとおりです。

• -ooi は、FCT を「open」としてマークし、CICS でファイルが物理的に開かれることを示します。
• -ee は、Enable ステータスが「enabled」に設定されていることを示します。

casfile は、x"91" function 35 (UNIX以外)、CBL_EXEC_RUN_UNIT を介して COBOL プログラムから、または単純に CALL "CASFILE" using ... によって呼び出すことができます。入力は、次に示すように、コマンド ライン (接頭辞はその長さ) で使用するオプションを含む文字列で構成されます。

01  lk-cmd-line.
        05  lk-cmd-len                pic x(02) comp-x.
        05  lk-cmd-data               pic x(1024).

戻りコード 0 は成功を示します。それ以外の値はエラーを意味します。