JOBHold ( 〔DomainName〕 , QueSrvName , QueName , UserName , JobNo , Flag )
値 | 意味 |
---|---|
0 | 正常終了。 |
1 | パラメタに誤りがある。 |
2 | メモリが不足していたり,TCP/IPが正しく設定されていないなど実行環境に不備がある。 |
3 | ネットワークに障害が生じた。 |
4 | 次のどれかの状態を示す。
|
5 | ジョブ番号で指定したジョブが存在しない。 |
6 | ジョブ番号で指定したジョブは,現在実行中である。 |
Dim rtn1 ,jobNo
rtn1 = JOBSubmit ( _DOMAIN_ ,_COMP_ ,"Que1" ,_USER_ , _
"" ,0 ,_BIN_+"SCRIPT.SPT" ,"" ,jobNo )
If rtn1 = True And _JOB_RTN_ = 0 Then
rtn1 = JOBHold ( _DOMAIN_ ,_COMP_ ,"Que1" ,_USER_ ,jobNo ,True )
If rtn1 = True And _JOB_RTN_ = 0 Then
MessageBox ( "ジョブの実行を保留しています。" ,OK , ,Information )
End
End