JP1 Version 8 JP1/Script(Windows(R)用)
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
EndAll Rights Reserved. Copyright (C) 2006, 2007, Hitachi, Ltd.