Routine Error Code

[parvathi]

Hi all,
In a server routine i am running a server job.
When the server job does not complete successfully then the routine has to return a non zero routine code.

I am calling this routine in after job sub routine in a server job.

When I start i set the ERROr code =0.

Is the routine code and ERROCode the same?

[chulett]

Wait... you wrote a routine that runs a job and you run that job in the 'After Job' area of another job? Why would you want to do that? Seems like a Sequence job would be more appropriate to run the two jobs in a serial fashion...

If you pursue this course, then yes - you'll need to detect errors in the job the routine runs and then set the error code to a non-zero value if you want the problem to be noticed.

[DSguru2B]

Stick to the standards. Use a job sequence.

[ray.wurlod]

What kind of routine - transform function or before/after subroutine?

Where (and how) are you invoking this routine?

Can you post the source code of the routine, so we can hopefully get a clearer idea of what you are trying to accomplish? Wrap the code in "Code" tags (select the source code, and click the Code button above).

[parvathi]

Wait... you wrote a routine that runs a job and you run that job in the 'After Job' area of another job? .

Sorry it was

I am calling a routine in a job after the job runs .

what the routine does is it takes info from the job i am running and then it runs another job in the routine .

What i am supposed to do is if the job that i am running in the routine fails
then routne has to return a non zero routine code

[parvathi]

What kind of routine - transform function or before/after subroutine?

Where (and how) are you invoking this routine?

...

It is a before/after subroutine

i am invoking the routine in a after job routine

[chulett]

Right. We got that. As noted, you simply need to return a non-zero error code when the job fails. Post your code.

[parvathi]

the code that i have used is

v_writeJobStatus = DSGetJobInfo(v_writeJobHandle, DSJ.JOBSTATUS)
If v_writeJobStatus <> DSJS.RUNOK Then
ErrorCode =3

[ArndW]

What will happen is that if the last run of the job you are checking has warnings or error or hasn't run since compilation your current job will abort.

[parvathi]

I have seen that when the job has warnings the routine returns wwit error number 3 tha i have specified.

I this the correct coding?

[ArndW]

I'm confused as to your goal. The code does what you ask of it; but we don't know if it makes sense to do so.

Personally I would use a sequence to do this and not make one job abort depending upon some status in another.

[narasimha]

parvathi,

Is there any specific reason why you want to go this route.
As suggested by others, Job sequence is the way to go.

[ray.wurlod]

Hi all,
In a server routine i am running a server job.
When the server job does not complete successfully then the routine has to return a non zero routine code.

I am calling this routine in after job sub routine in a server job.

When I start i set the ERROr code =0.

Is the routine code and ERROCode the same?

That looks like a complete specification.

Code: Select all

SUBROUTINE MyRoutine(InputArg, ErrorCode)
$IFNDEF JOBCONTROL.H
$INCLUDE DSINCLUDE JOBCONTROL.H
$ENDIF

ErrorCode = 0 ; * set to non-zero value to abort job

hJob = DSAttachJob(....)
JobName = DSGetJobInfo(hJob, DSJ.JOBNAME)
If JobName = DSJE.BADHANDLE
Then

   Call DSLogWarn("Failed to attach job.", "MyRoutine")
   ErrorCode = DSJE.BADHANDLE

End
Else

   SubmitStatus = DSRunJob(hJob, DSJ.RUNNORMAL)
   WaitStatus   = DSWaitForJob(hJob)
   ExitStatus   = DSGetJobInfo(hJob, DSJ.JOBSTATUS)
   DetachStatus = DSDetachJob(hJob)

   ErrorCode = (ExitStatus <> DSJS.RUNOK And ExitStatus <> DSJS.RUNWARN)

End

RETURN

However, running a job from a before/after subroutine is a really unusual thing to do. Have you thought this through? A job sequence gives you exactly the same functionality, without needing to write - and therefore to maintain - any code.

But perhaps that's not what you wanted to do. Maybe all you're seeking is a way to detect, in an after-job subroutine, the exit status of the job in which the after-job subroutine is invoked.

Code: Select all

SUBROUTINE CatchErrorStatus(InputArg, ErrorCode)
$IFNDEF JOBCONTROL.H
$INCLUDE DSINCLUDE JOBCONTROL.H
$ENDIF

ErrorCode = 0 ; * set to non-zero value to abort job

* Use interim status; job itself is still "RUNNING".
ExitStatus = DSGetJobInfo(DSJ.ME, DSJ.INTERIMSTATUS)

ErrorCode = (ExitStatus <> DSJS.RUNOK And ExitStatus <> DSJS.RUNWARN)

RETURN