Enterprise Server/JCL へのサブミッション前のユーザー出口

はじめに

必要に応じて、JCL へのサブミットの前に、MFBSIJCL コマンドで指定した JCL ファイルを編集できます。これにより、パラメーターの置換や追加のサイト固有のチェックが可能になります。

JCLExit パラメーターでは、呼び出し先となるユーザー出口モジュールの名前を指定します。次のような mfbsiue1.cpy インターフェイスを使用します。

      *    -- copybook "MFBSIUE1" --

       01  ES-UserExit-JCLsubmit.
      **>  MFBSIJCL exit's common area
           05  ES-UE-CommonArea            pic x(1024).
      **>  Input parameters
           *>  OS Environment
           05  ESue1-OS                    pic x(1).
               88 ESue1-Windows              value '0'.
               88 ESue1-UNIX                 value '1'.
           *>  SJOBID
           05  ESue1-Scheduler-Job-ID      pic x(16).
           *>  User exit identifier
           05  ESue1-JCLexitID             pic x(32).
           *>  Execution mode: submit JCL or JOB restart
           05  ESue1-ExecutionMode         pic x(01).
               88  ESue1-ExecNormal          value 'N'.
               88  ESue1-ExecRESTART         value 'R'.
           05  filler                      pic x(14).
      *
      **>  Input/Output parameters
           05  ESue1-JCLfile               pic x(256).
      *
      **>  Output parameters
           05  ESue1-ReturnCode            pic x(2).
           05  ESue1-ReturnMsg             pic x(256).
      *
      **>  Delimiter
           05  ESue1-X00                   pic x(1).

mfbsiue1.cpy コピーブック ファイルは、 %ProgramFiles(x86)%\Micro Focus\Enterprise Developer\cpylib (Windows) または $COBDIR/cpylib(UNIX) にあります。

ユーザー出口の使用法

ユーザー出口モジュールは、元の JCL ファイルのフル パスおよびファイル名、または置換されたファイルの名前を取得します。オプション パラメーターの JCLExitID を使用すると、ユーザー出口によって行われる作業を指定できます。この文字列の最大長は 32 文字です。

ユーザー出口プログラムは、復帰する前に戻りコード ESue1-ReturnCode00 に設定し、サブミットする新しいファイル (ESue1-JCLfile) を指定します。必要に応じて、サブミットのプロセスを停止することもできます。MFBSIJCL は戻りコード 207 で終了します。これを行うには、次の手順を使用します。

  • 戻りコード ESue1-ReturnCode <> "00" を設定します。
  • 独自のエラー メッセージを ESue1-ReturnMsg で設定します。