DSWaitForJob Problem
Posted: Thu Dec 04, 2003 5:17 pm
We are having a problem where we have a batch program that has a number of jobs in it. We have experienced 3 different occurences when the DSWaitForJob has not waited and the next job has executed at the very same time and caused major problems with our system.
Is there any known problems that have cause this problem?
Can anyone please assist.
Sample Code:
hJob8 = DSAttachJob("PopDailySavingsTran", DSJ.ERRFATAL)
ErrCode = DSSetParam(hJob8, "InternalDay", InternalDay)
ErrCode = DSSetParam(hJob8, "DataSourceName", DataSourceName)
ErrCode = DSSetParam(hJob8, "DataFileDirectory", DataFileDirectory)
ErrCode = DSSetParam(hJob8, "LogFileDirectory", LogFileDirectory)
ErrCode = DSSetParam(hJob8, "DiscardFileDirectory", DiscardFileDirectory)
ErrCode = DSSetParam(hJob8, "ControlFileDirectory", ControlFileDirectory)
ErrCode = DSSetParam(hJob8, "UniDataDirectory", UniDataFileDirectory)
ErrCode = DSSetParam(hJob8, "InputFileName", "UDTRAN.SEQ.":InternalDay)
ErrCode = DSRunJob(hJob8, DSJ.RUNNORMAL)
ErrCode = DSWaitForJob(hJob8)
Status = DSGetJobInfo(hJob8, DSJ.JOBSTATUS)
If Status = DSJS.RUNFAILED Then
* Fatal Error - No Return
Call DSLogFatal("Job Failed: PopDailySavingsTran", "JobControl")
End
RenameTable = 'Daily_Savings'
Gosub RenameFile
Is there any known problems that have cause this problem?
Can anyone please assist.
Sample Code:
hJob8 = DSAttachJob("PopDailySavingsTran", DSJ.ERRFATAL)
ErrCode = DSSetParam(hJob8, "InternalDay", InternalDay)
ErrCode = DSSetParam(hJob8, "DataSourceName", DataSourceName)
ErrCode = DSSetParam(hJob8, "DataFileDirectory", DataFileDirectory)
ErrCode = DSSetParam(hJob8, "LogFileDirectory", LogFileDirectory)
ErrCode = DSSetParam(hJob8, "DiscardFileDirectory", DiscardFileDirectory)
ErrCode = DSSetParam(hJob8, "ControlFileDirectory", ControlFileDirectory)
ErrCode = DSSetParam(hJob8, "UniDataDirectory", UniDataFileDirectory)
ErrCode = DSSetParam(hJob8, "InputFileName", "UDTRAN.SEQ.":InternalDay)
ErrCode = DSRunJob(hJob8, DSJ.RUNNORMAL)
ErrCode = DSWaitForJob(hJob8)
Status = DSGetJobInfo(hJob8, DSJ.JOBSTATUS)
If Status = DSJS.RUNFAILED Then
* Fatal Error - No Return
Call DSLogFatal("Job Failed: PopDailySavingsTran", "JobControl")
End
RenameTable = 'Daily_Savings'
Gosub RenameFile