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