NATRJE : No job in the spool

silentarya · New User Joined: 11 Mar 2007 Posts: 35 Location: Chennai

Hi,

I am trying to submit a job from within my natural program with the Hex return code from the NATRJE its telling that job submitted successfully. However, I am not abl to get any job in the spool... Can anybody suggest what is wrong in the code?

The codes are as follows...

[Code]

DEFINE DATA
LOCAL
01 #CARD
02 #CARD1 (A80)
02 #CARD2 (A80)
02 #CARD3 (A80)
02 #CARD4 (A80)
01 #COUNT (B4)
01 #FLAG3 (A1)
01 #RETHEX (B2)
END-DEFINE

MOVE '//BRAHMADB JOB (ABCD,EFGH),CLASS=F,TESTING,' TO #CARD1
*
MOVE '// MSGCLASS=X,MSGLEVEL=(1,1)' TO #CARD2
*
MOVE 5 TO #COUNT
MOVE 'L' TO #FLAG3
*
MOVE '//STEP020 EXEC NATURAL,PROGRAM=TMPDISP,APPLID=MYLIB' -
'//CMPRINT DD SYSOUT=* ' TO #CARD3
MOVE '//SYSOUT DD SYSOUT=*' TO #CARD4
CALL 'NATRJE' #CARD #COUNT #FLAG3 #RETHEX
IF #RETHEX = H'0000'
WRITE 'JOB SUBMITTED SUCCESSFULLY'
ELSE
WRITE 'ERROR FROM NATRJE' #RETHEX
END-IF
END

[Code Ends]

dick scherrer · Posted: Tue May 05, 2009 8:45 pm

Hello,

I don't know if this applies to Natural, but some systems i've worked with needed a "/*EOF" * statement after the "//" at the end of the submitted job.
Syntax corrected
The way this was explained was that this was needed so that the internal reader would be closed and the job actually released to the queue. Keep in mind this was several years ago and not Adabas/Natural.

Still, it might be worth a try. . .

Robert Sample · Posted: Tue May 05, 2009 8:51 pm

Dick: I hope you're referring to '/*EOF' -- I haven't heard of /*EOJ before. The /*EOF is still required for immediate processing of a job submitted through the internal reader. IIRC, if not present, the job will not go to JES until (1) the buffer is filled, (2) a new JOB card is entered into the internal reader, or (3) the address space goes away (i.e., the person signs off).

ofer71 · Posted: Tue May 05, 2009 9:05 pm

I've always used it with EOJ, so I can't tell you if it will fail without it...

O.

dick scherrer · Posted: Tue May 05, 2009 9:08 pm

Hi Robert,

Robert Sample · Posted: Tue May 05, 2009 9:10 pm

/*EOF has saved me untold grief over the years ... I rely upon it!

Bill Dennis · Posted: Wed May 06, 2009 12:11 am

Have you searched the SYSLOG for BRAHMADB jobname? You may find a JCL ERROR on output queue.

The problem may be the JOB card. The CLASS= parameter must be AFTER the positional parameter PGMMRNAME which you have as 'TESTING'. Ensure a good jobstream by submitting manually.