DSXchange

i have a sequence containing a routine activity and job activity.

The routine activity is calling a server routine. Code of that routine is

$INCLUDE DSINCLUDE JOBCONTROL.H
*Initialize variables
varJobName=''
varJobStatus=''
varRetVal=''
varDelimitor=','
varReturn='0'
varStartTime=''
varEndTime=''
varRec=''


if Arg1 <> '' then
varJobName=Arg1
end

*Get handle for job
ptrHandle=DSAttachJob(varJobName,DSJ.ERRNONE)

*Test for valid handle
if ptrHandle<>DSJE.BADHANDLE then

*get the job status.
varRetVal=DSGetJobInfo(ptrHandle,DSJ.JOBSTATUS)
varJobStatus =varRetVal

*Build the file record
varRec=varJobName

varRec:=varDelimitor
varRec:= varJobStatus
varRec:= varDelimitor

*get start time
varStartTime=DSGetJobInfo(ptrHandle,DSJ.JOBSTARTTIMESTAMP)
if varStartTime = '-1' then
varStartTime=''
end

varRec:=varStartTime
varRec:= varDelimitor

*get last time
varEndTime=DSGetJobInfo(ptrHandle,DSJ.JOBLASTTIMESTAMP)
if varEndTime = '-1' or varJobStatus ='RUNNING' then
varEndTime=''
end

varRec:=varEndTime
varRec:= varDelimitor

*get elapsed time in seconds
varRec:=DSGetJobInfo(ptrHandle,DSJ.JOBELAPSED)

*Close handle for job
ptrHandle=DSDetachJob(ptrHandle)

end


Ans=varRec



RETURN(Ans)


The return value is being passed to the parallel job inside Job activity

i am getting error while running this routine :

seq_WriteJobInfo2..JobControl (@GetJobInfo): Controller problem: Unhandled failure (WELCOME_KIT,2,2011-03-17 06:01:03,2011-03-17 06:01:16,13) encountered calling routine DSU.GetJobInfo

Asked and answered here many times. An exact search for "Controller problem: Unhandled failure" will reveal all.