DSD.GetStatus - Improper data type
Posted: Thu Dec 08, 2005 7:33 am
Hi,
I tried to search on my error, but I have not found any regarding answers.
It is a sequencer job, what was working fine. But from today it is giving the following message in the relevant file in &PH& dir:
And the status of the sequencer remains Running.
I have checked the RT_BP file, but it could not help.
It aborts after calling the first job in the sequencer. This job is finishing successfully all the time.
I think this is the relevant code pieclet:
Any help and idea would be very appreciated.
Thanks,
Tamas
I tried to search on my error, but I have not found any regarding answers.
It is a sequencer job, what was working fine. But from today it is giving the following message in the relevant file in &PH& dir:
Code: Select all
Program "DSD.GetStatus": Line 25, Improper data type.
And the status of the sequencer remains Running.
I have checked the RT_BP file, but it could not help.
It aborts after calling the first job in the sequencer. This job is finishing successfully all the time.
I think this is the relevant code pieclet:
Code: Select all
L$V0S93$FINISHED:
job$V0S93$status = DSGetJobInfo(h$V0S93, DSJ.JOBSTATUS)
job$V0S93$userstatus = DSGetJobInfo(h$V0S93, DSJ.USERSTATUS)
summary$<1,-1> = Time$$:Convert(@VM, " ", DSMakeMsg("DSTAGE_JSG_M_0063\%1 (JOB %2) finished, status=%3[E]", "GetRequest_Types":@FM:jb$V0S93:@FM:job$V0S93$status))
IdV0S93%%Result2%%1 = job$V0S93$userstatus
IdV0S93%%Result1%%2 = job$V0S93$status
IdV0S93%%Name%%3 = jb$V0S93
rpt$V0S93 = DSMakeJobReport(h$V0S93, 1, "CRLF")
dummy$ = DSDetachJob(h$V0S93)
If b$Abandoning Then GoTo L$WAITFORJOB
If (IdV0S93%%Result1%%2 <> DSJS.RUNOK) Then GoSub L$V0S142$START
GoTo L$V0S95$START
L$V0S93$RETURN$2:
If (IdV0S93%%Result1%%2 <> DSJS.RUNFAILED) Then GoTo L$V0S122$START
L$V0S93$RETURN$3:
GoTo L$WAITFORJOB
L$WAITFORJOB:
If handle$list = "" Then GoTo L$FINISH
handle$ = DSWaitForJob(handle$list)
If handle$ = 0 Then handle$ = handle$list<1>
Locate handle$ In handle$list Setting index$ Then
id$ = id$list<index$>
Del id$list<index$>; Del handle$list<index$>
b$Abandoning = abort$list<index$>; Del abort$list<index$>
loop$context = context$list<index$>; Del context$list<index$>
Del jobnames$list<index$>
Begin Case
Case id$ = "V0S93"
GoTo L$V0S93$FINISHED
Case id$ = "V0S100"
GoTo L$V0S100$FINISHED
Case id$ = "V0S105"
GoTo L$V0S105$FINISHED
Case id$ = "V0S161"
GoTo L$V0S161$FINISHED
Case id$ = "V0S162"
GoTo L$V0S162$FINISHED
Case id$ = "V30S0"
GoTo L$V30S0$FINISHED
End Case
End
* Error if fall though
handle$list = ""
err$source = "@Coordinator"; err$number = -1
msg$ = DSMakeMsg("DSTAGE_JSG_M_0008\Error calling DSWaitForJob(), code=%1[E]", handle$)
msg$id = "@Coordinator"; GoTo L$ERROR
Thanks,
Tamas