Improper data type error in routine
Posted: Sat Nov 18, 2006 8:13 am
Hi All,
I wrote a routine to get the misc info about the job.it is complied with no errors but when i try to test it it gives me the following error -
Line 17, Improper data type.
My routine code is -
$IFNDEF JOBCONTROL.H
$INCLUDE DSINCLUDE JOBCONTROL.H
$ENDIF
JobHandle = DSAttachJob("Job1",DSJ.ERRFATAL)
JobStatus = DSGetJobInfo(JobHandle,DSJ.JOBSTATUS)
JobName = DSGetJobInfo(JobHandle,DSJ.JOBNAME)
JobStarted = DSGetJobInfo(JobHandle,DSJ.JOBSTARTTIMESTAMP)
JobEnded = DSGetJobInfo(JobHandle,DSJ.JOBLASTTIMESTAMP)
JobTimeElapsed = DSGetJobInfo(JobHandle,DSJ.JOBELAPSED)
FinalMsg = JobName : "," :JobStatus : "," :JobStarted : "," :JobEnded : "," :JobTimeElapsed
WRITESEQ FinalMsg To '/u04/test/FinalFile' THEN
END
ELSE STOP
Ans = "Success"
Your inputs are appreciated
I wrote a routine to get the misc info about the job.it is complied with no errors but when i try to test it it gives me the following error -
Line 17, Improper data type.
My routine code is -
$IFNDEF JOBCONTROL.H
$INCLUDE DSINCLUDE JOBCONTROL.H
$ENDIF
JobHandle = DSAttachJob("Job1",DSJ.ERRFATAL)
JobStatus = DSGetJobInfo(JobHandle,DSJ.JOBSTATUS)
JobName = DSGetJobInfo(JobHandle,DSJ.JOBNAME)
JobStarted = DSGetJobInfo(JobHandle,DSJ.JOBSTARTTIMESTAMP)
JobEnded = DSGetJobInfo(JobHandle,DSJ.JOBLASTTIMESTAMP)
JobTimeElapsed = DSGetJobInfo(JobHandle,DSJ.JOBELAPSED)
FinalMsg = JobName : "," :JobStatus : "," :JobStarted : "," :JobEnded : "," :JobTimeElapsed
WRITESEQ FinalMsg To '/u04/test/FinalFile' THEN
END
ELSE STOP
Ans = "Success"
Your inputs are appreciated