ジョブ実行結果通知コマンド

起動したジョブの実行結果を相手ホストに通知することができます。

サービス名は「HULSNDRC」です。

起動ジョブの最後に「ジョブ実行結果通知コマンド（HULSNDRC）」を組み込むことにより、ジョブ実行結果通知を発行します。

プログラムインターフェイス

CALL ライブラリー名/HULSNDRC PARM(['LIB=ライブラリー名'] ['J=jobname']
   ['R=returncode'] ['M=usermessage'] 'H=hostname' ['I=intervaltime']
   ['C=retrycount'] ['G'] ['OUTPUT=filename'] ['EXIT' CL変数名])

パラメーター説明

LIB=ライブラリー名

HULFTがインストールされているライブラリー名（省略時値 HULFT）

先頭英字の10バイト以内の英数字で指定します。

J=jobname

通知するジョブ名（省略可）

先頭英字の60バイト以内の英数字で指定します。

省略するとスペースが通知されます。

R=returncode

通知する完了コード（省略可）

4バイト以内の英数字で指定します。

省略すると“0”が通知されます。

M=usermessage

通知するメッセージ（省略可）

128バイト以内で指定します。

省略するとスペースが通知されます。

H=hostname

通知するホスト名（省略不可）

68バイト以内の英数字で指定します。

I=intervaltime

コネクション失敗時の接続リトライ間隔（秒）（省略可）

“0”から“999”までの間で指定します。

省略すると“0”秒のリトライ間隔となります。

C=retrycount

コネクション失敗時の接続リトライ回数（省略可）

“0”から“99”までの間で指定します。

省略するとリトライを行いません。

G

ジョブ実行結果通知コマンドが出力するエラーメッセージの表示抑制（省略可）

省略するとエラーメッセージが表示されます。

OUTPUT=filename

ジョブ実行結果通知コマンドが出力するエラーメッセージの出力先（省略可）

「ライブラリー名/ファイル名(メンバー名)」の形式で指定します。

省略するとエラーメッセージは出力されません。

ログファイルのレコード保持件数は無制限です。

EXIT CL変数名

ジョブ実行結果通知コマンドが出力するエラーコードの受け取りとCL変数名（省略可）

EXITとCL変数名は連続して指定してください。

異常終了の場合のみ、エラーコードをCL変数へセットします。

省略するとエラーコードはセットされません。

コマンドインターフェイス

HULSNDRC HOSTNAME( ) JOBNAME( ) RETURNCODE( ) MESSAGE( ) INTERVAL( )
   RETRYCOUNT( ) LIBRARY( ) MSG( ) FILE( ) MBR( )

パラメーター説明

HOSTNAME

通知先ホスト名（省略不可）

68バイト以内の英数字で指定します。

JOBNAME

通知するジョブ名（省略可）

先頭英字の60バイト以内の英数字で指定します。

省略するとスペースが通知されます。

RETURNCODE

通知する完了コード（省略可）

4バイト以内の英数字で指定します。

省略すると“0”が通知されます。

MESSAGE

通知するメッセージ（省略可）

128バイト以内で指定します。

省略するとスペースが通知されます。

INTERVAL

コネクション失敗時の接続リトライ間隔（秒）（省略可）

“000”から“999”までの間で指定します。

省略すると“0”秒のリトライ間隔となります。

RETRYCOUNT

コネクションリトライ時の接続リトライ回数（省略可）

“00”から“99”までの間で指定します。

省略するとリトライを行いません。

LIBRARY

HULFTがインストールされているライブラリー名（省略時値 HULFT）

先頭英字の10バイト以内の英数字で指定します。

MSG

エラーメッセージの表示抑制（省略時値 *YES）

*NO

: エラーメッセージを表示しない

*YES

: エラーメッセージを表示する

FILE

エラーメッセージ出力先ファイルのライブラリー名とファイル名（省略可）

「ライブラリー名/ファイル名」の形式で指定します。

それぞれ先頭英字の10バイト以内の英数字で指定します。

省略するとエラーメッセージは出力されません。ログファイルのレコード保持件数は無制限です。

MBR

エラーメッセージ出力先ファイルのメンバー名（省略時値 *FILE）

先頭英字の10バイト以内の英数字で指定します。

CLプログラム例

0001.00 START:  PGM     PARM(&HOST2 &STATUS &FILEID)
0002.00 /*ARG AREA*/
0003.00         DCL     VAR(&HOST2)  TYPE(*CHAR)  LEN(32)
0004.00         DCL     VAR(&FILEID) TYPE(*CHAR)  LEN(8)
0005.00         DCL     VAR(&STATUS) TYPE(*DEC)   LEN(15 5)
0006.00         DCL     VAR(&J)      TYPE(*CHAR)  LEN(63)
0007.00         DCL     VAR(&M)      TYPE(*CHAR)  LEN(131)
0008.00         DCL     VAR(&R)      TYPE(*CHAR)  LEN(7)
0009.00         DCL     VAR(&H)      TYPE(*CHAR)  LEN(35)
0010.00         DCL     VAR(&NULL)   TYPE(*CHAR)  LEN(1)   VALUE(X'00')
0011.00 /*WORK AREA*/
0012.00         DCL     VAR(&WSTATUS)      TYPE(*DEC) LEN(4 0)
0013.00 /*CHAR AREA*/
0014.00         DCL     VAR(&CSTATUS)      TYPE(*CHAR) LEN(4)
0015.00 /* CHANGE TYPE *DEC -> *DEC */
0016.00         CHGVAR  VAR(&WSTATUS)      VALUE(&STATUS)
0017.00 /* CHANGE TYPE *DEC -> *CHAR */
0018.00         CHGVAR  VAR(&CSTATUS)      VALUE(&WSTATUS)
0019.00         CHGVAR  VAR(&H)  VALUE('H=' *CAT &HOST2 *CAT &NULL)
0020.00         CHGVAR  VAR(&R)  VALUE('R=' *CAT &CSTATUS *CAT &NULL)
0021.00         CHGVAR  VAR(&J)  VALUE('J=' *CAT &FILEID *CAT &NULL)
0022.00         CHGVAR  VAR(&M)  VALUE('M=TEST CL' *CAT &NULL)
0023.00         CALL   PGM(HULFT/HULSNDRC) +
0024.00                PARM(&H &J &R &M 'G' 'OUTPUT=MYLIB/MSG(MSG)')
0025.00 END:    ENDPGM