Posted: Fri Apr 15, 2005 8:47 am
palmeal,
I think you are close. You just neglected the DSAttachJob call.
If you code along the lines:
I think you are close. You just neglected the DSAttachJob call.
If you code along the lines:
Code: Select all
LJobName = 'MyJob'
LStageName = 'MyStage'
LLinkName = 'MyLink'
JobHandle = DSAttachJob(LJobName,DSJ.ERRFATAL)
IF NOT(JobHandle) OR JobHandle=DSJE.BADHANDLE THEN CALL DSLogFatal('Bad attach to job "':LJobName:'".','MyFunction')
Ans = DSGetLinkInfo(JobHandle,LStageName,LLinkName,DSJ.LINKROWCOUNT)
IF (Ans<0)
THEN
CALL DSLogWarn('Unable to retrieve rows through link "':LLinkName:'" in stage "':LStageName:'" for Job "':LJobName:'".',ProgramName)
Ans = 0
END ;** of if-then something went wrong
Dummy = DSDetachJob(JobHandle) ;** close up the job