Posted: Fri Jan 02, 2009 12:08 pm
Only execute the code to run those jobs if the 'result' value is greater than zero.
Code: Select all
JobName = "srcDlyCalcTxns_LN"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
result = DSGetLinkInfo(DSJ.JOBNAME,DSJ.ME,DSJ.ME,DSJ.LINKROWCOUNT)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
If result > 0 Then
StgFileName = "LNREMIT"
JobName = "xfmDlyCalcTxns_LN"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
End
chulett wrote:You need to establish a handle to the "srcDlyCalcTxns_LN" job and not use DSJ.ME at all. The 2nd & 3rd arguments are Stage Name and Link Name respectively from the job the handle is attached to. And then detach the handle when you are done with it.
Code: Select all
JobName = "hashProcessControlDTS"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
JobName = "srcDlyCalcTxns_LN"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
result = DSGetLinkInfo(DSJ.JOBNAME,DSJ."xfmDailyCalcTxns",DSJ."Xfm_DailyCalcTxns",DSJ.LINKROWCOUNT)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
If result > 0 Then
StgFileName = "LNREMIT"
JobName = "xfmDlyCalcTxns_LN"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
End
JobName = "Batch::LNRemitMaintenance"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
JobName = "ldiLNRemitProcessControl"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
Code: Select all
If result > 0 Then
StgFileName = "LNREMIT"
JobName = "xfmDlyCalcTxns_LN"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
End
Code: Select all
JobName = "srcDlyCalcTxns_LN"
hJob = DSAttachJob(JobName, DSJ.ERRNONE)
result = DSGetLinkInfo(hJob,"xfmDailyCalcTxns","Xfm_WriteLink",DSJ.LINKROWCOUNT)
x = DSDetachJob(hJob)
Code: Select all
Batch::CopyOfLNRemitMaster..JobControl (fatal error from DSGetJobInfo): Job control fatal error (-1)
(DSGetJobInfo) Invalid job handle 2
Code: Select all
DEFFUN RunRestartableJob(JobName,HASHPATH,BatchNumber,SKIPPARAM) Calling "DSU.RunRestartableJob"
DEFFUN EmailErrorMessage(HASHPATH,BatchNumber) Calling "DSU.EmailErrorMessage"
DEFFUN JobControlReset(JobList) Calling "DSU.JobControlReset"
DEFFUN RunBatch(JobList, Params) Calling "DSU.RunBatch"
DEFFUN ConvDateYYYYMMDD.DashDeltoMMDDYYYY(DATE) Calling "DSU.ConvDateYYYYMMDD.DashDeltoMMDDYYYY"
DEFFUN GetHashValueByKey(File,Key) Calling "DSU.GetHashValueByKey"
BatchStartDts = DSGetJobInfo(DSJ.ME, DSJ.JOBSTARTTIMESTAMP)
JobName = "hashProcessControlDTS"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
JobName = "srcDlyCalcTxns_LN"
*BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
BatchName = DSGetJobInfo(JobName, DSJ.ERRNONE)
result = DSGetLinkInfo(BatchName,"xfmDailyCalcTxns","Xfm_DailyCalcTxns",DSJ.LINKROWCOUNT)
*result = DSGetLinkInfo(DSJ.JOBNAME,DSJ.ME,DSJ.ME,DSJ.LINKROWCOUNT)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
If result > 0 Then
StgFileName = "LNREMIT"
JobName = "xfmDlyCalcTxns_LN"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
End
JobName = "Batch::LNRemitMaintenance"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
JobName = "ldiLNRemitProcessControl"
BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
Errcode = RunRestartableJob(JobName,HASHPATH,BATCHNUMBER,"BATCHTIMESTAMP=":BatchStartDts)
If Errcode Then
GOTO ENDJOB
End
ENDJOB:
* Setup DailyPCJobStatsLdiNew, run it, wait for it to finish, and test for success
JobName = "DailyPCJobStatsLdiNew.":BATCHNAME
Result = JobControlReset(JobName)
hJob1 = DSAttachJob(JobName, DSJ.ERRFATAL)
If NOT(hJob1) Then
Call DSLogFatal("Job Attach Failed: DailyPCJobStatsLdiNew", "JobControl")
Abort
End
Errcode1 = DSSetParam(hJob1, "HASHPATH", HASHPATH)
Errcode1 = DSSetParam(hJob1, "STGPATH", PROJDIR:STGPATH)
Errcode1 = DSSetParam(hJob1, "BATCHNUMBER", BATCHNUMBER)
Errcode1 = DSSetParam(hJob1, "SRCDBNAME", SRCDBNAME)
Errcode1 = DSSetParam(hJob1, "SRCUSERID", SRCUSERID)
Errcode1 = DSSetParam(hJob1, "SRCPWD", SRCPWD)
Errcode1 = DSRunJob(hJob1, DSJ.RUNNORMAL)
Errcode1 = DSWaitForJob(hJob1)
Status = DSGetJobInfo(hJob1, DSJ.JOBSTATUS)
If Status = DSJS.RUNFAILED Or Status = DSJS.CRASHED Then
* Fatal Error - No Return
Call DSLogWarn("Job Failed: DailyPCJobStatsLdiNew", "JobControl")
End
If Errcode then
* Result = JobControlReset(BatchName)
Message = EmailErrorMessage(HASHPATH,BATCHNUMBER)
Reply = DSSendMail("From:":MSG_FROM:"\nTo:":MSG_TO:"\nServer:":SMTPSERVER:"\nSubject:":BatchName:" failed\nBody:":Message:"\n")
Call DSLogFatal("Batch ran failed! (see warnings)", BatchName)
End
*Clear Hash File.
OPENPATH HASHPATH:"/":'hshJobInfo':BATCHNUMBER To hashPath Then
CLEARFILE hashPath ON ERROR Call DSLogInfo("Cannot Clear the Log",BatchName)
Code: Select all
Batch::CopyOfLNRemitMaster..JobControl (fatal error from DSGetJobInfo): Job control fatal error (-1)
(DSGetJobInfo) Invalid job handle srcDlyCalcTxns_LN
Code: Select all
JobName = "srcDlyCalcTxns_LN"
*BatchName = DSGetJobInfo(DSJ.ME, DSJ.JOBNAME)
BatchName = DSGetJobInfo(JobName, DSJ.ERRNONE)
sagar deshmukh wrote:i been working since more than 24 hrs so......brain not working...