MFBSIJCL 終了ユーザー出口

MFBSIJCL は、終了直前に終了ユーザー出口を呼び出すことができます。

呼び出す終了ユーザー出口モジュールの名前を指定するには、TerminateExit パラメーターを使用します。次のような Mfbsiue2.cpy インターフェイスを使用してください。

      *    -- copybook "MFBSIUE2" --

       01  ES-UserExit-MFBSIJCL-Terminate.
      **>  MFBSIJCL exit's common area
           05  ES-UE-CommonArea            pic x(1024).
      **>  Input parameters
           *>  OS Environment
           05  ESue2-OS                    pic x(1).
               88 ESue2-Windows              value '0'.
               88 ESue2-UNIX                 value '1'.
           *>  SJoBID
           05  ESue2-Job-ID                pic x(16).
           *>  ES server name
           05  ESue2-ESserver              pic x(8).
           *>  Full name of JCL file that was submitted
           05  ESue2-JCLfile               pic x(256).
           *>  MFBSI_DIR directory
           05  ESue2-MFBSI-DIR             pic x(256).
           *>  Execution mode: submit JCL or JOB restart
           05  ESue2-ExecutionMode         pic x(01).
               88  ESue2-ExecNormal          value 'N'.
               88  ESue2-ExecRESTART         value 'R'.
           05  filler                      pic x(14).
      *
      **>  Input/Output parameters
           05  ESue2-ReturnCode            pic 9(9) comp-5 .
      *
      **>  Delimiter
           05  ESue2-X00                   pic x(1).

このインターフェイス コピーブック ファイルは、%ProgramFiles(x86)%\Micro Focus\Enterprise Developer\cpylib(Windows) または $COBDIR/cpylib(UNIX) にあります。

サンプル COBOL プログラムの mfbsiue2.cbl は、%ProgramFiles(x86)%\Micro Focus\Enterprise Developer\src\enterpriseserver\exits(Windows) または $COBDIR$COBDIR\cpylib(UNIX) にあります。