Can any one please provide the basic code.
Thanks in advance.
![Rolling Eyes :roll:](./images/smilies/icon_rolleyes.gif)
Moderators: chulett, rschirm, roy
Code: Select all
hJob = DSPrepareJob(hJob)
If Not(hJob) Then
Call DSLogInfo("Failed","DSPrepareJob")
End
Code: Select all
JobHandle = DSAttachJob(RunJobName, DSJ.ERRFATAL)
Message = DSRMessage('DSTAGE_TRX_I_0014', 'Attaching job for processing - %1 - Status of Attachment = %2', RunJobName:@FM:JobHandle )
Call DSLogInfo(Message, RoutineName)
LimitErr = DSSetJobLimit(JobHandle, DSJ.LIMITROWS, RowLimit)
LimitErr = DSSetJobLimit(JobHandle, DSJ.LIMITWARN, WarnLimit)
* Need to check if error occurred.
ListOfParams = DSGetJobInfo(JobHandle, DSJ.PARAMLIST)
ListCount = Dcount(ListOfParams,',')
For ParamNum = 1 To ParamCount
Message = DSRMessage('DSTAGE_TRX_I_0015', 'Setting Job Param - %1 Setting to %2', Param(ParamNum,1):@FM:Param(ParamNum,2))
Call DSLogInfo(Message, RoutineName)
ErrCode = DSSetParam(JobHandle, Param(ParamNum,1),Param(ParamNum,2))
Next ParamNum
*START
*Need to check if the job to be prepared - START
*
JobHandle = DSPrepareJob(JobHandle)
If Not(JobHandle) Then
Message = DSRMessage('DSTAGE_TRX_I_0015A', 'Failed - DsPrepareJob', RunJobName)
Call DsLogInfo(Message, RoutineName)
End
*
*Need to check if the job to be prepared - END
*END
ErrCode = DSRunJob(JobHandle, DSJ.RUNNORMAL)
ErrCode = DSWaitForJob(JobHandle)
Status = DSGetJobInfo(JobHandle, DSJ.JOBSTATUS)
JobEndTime = DSRTimestamp()
If Status = DSJS.RUNFAILED Then
Message = DSRMessage( 'DSTAGE_TRX_E_0020', 'Job Failed: %1', RunJobName)
Call DSLogWarn(Message, RoutineName)
End