JOBCancel ( 〔DomainName〕 , QueSrvName , QueName , UserName , JobNo )
値 | 意味 |
---|---|
0 | 正常終了。 |
1 | パラメタに誤りがある。 |
2 | メモリが不足していたり,TCP/IPが正しく設定されていないなど実行環境に不備がある。 |
3 | ネットワークに障害が生じた。 |
4 | 次のどれかの状態を示す。 ・指定したキューが存在しない。 ・キュー名称に誤りがある。 ・バッチジョブ運用が停止状態である。 ・JP1/AJS2,またはJP1/Net Batchサービスが初期化中である。 |
5 | ジョブ番号で指定したジョブが存在しない。 |
Dim rtn1 ,jobNo
rtn1 = JOBSubmit ( _DOMAIN_ ,_COMP_ ,"Que1" ,_USER_ , _
"" ,0 ,_BIN_+"SCRIPT.SPT" ,"" ,jobNo )
If rtn1 = True And _JOB_RTN_ = 0 Then
rtn1 = JOBCancel ( _DOMAIN_ ,_COMP_ ,"Que1" ,_USER_ ,jobNo )
If rtn1 = True And _JOB_RTN_ = 0 Then
MessageBox ( "ジョブの実行をキャンセルしました。" ,OK , ,Ex )
End
End