how to check whether the job ran fine or not using rexx ?

Arun Kumar S · New User Joined: 23 Jan 2009 Posts: 14 Location: Bangalore

Hi All,

I'm submitting a jcl using rexx, but i'm not able to check the MAXCC code.

how to check whether the job ran fine or not using rexx ?

Please help me.

CODE:

/*-------------------------------------------------------------------*/
/* SYNTAX: JCLSUB */
/*********************************************************************/
/* CREATE JCL RECORDS */
/*********************************************************************/
JCL.0 = 2
JCL.1 = '//NBKBMC3X JOB (NOFR),TESTJOB,CLASS=0,MSGCLASS=X'
JCL.2 = '//DUMMY EXEC PGM=IEFBR14'
/*********************************************************************/
/* ALLOCATE A INTRDR DD */
/*********************************************************************/
EXITRC = BPXWDYN("ALLOC DD(SUB) SYSOUT WRITER(INTRDR)")
IF EXITRC <> 0 THEN SAY 'ALLOCATE ERROR ON INTRDR RC='EXITRC
/*********************************************************************/
/* WRITE THE STEM TO THE INTRDR DD */
/*********************************************************************/
ADDRESS MVS "EXECIO * DISKW SUB (FINI STEM JCL."
EXITRC = RC
IF EXITRC <> 0 THEN SAY 'EXECIO ERROR ON INTRDR RC='EXITRC
EXITRC = BPXWDYN("FREE DD(SUB)")

superk · Posted: Tue Feb 24, 2009 5:00 pm

Your exec looks to me as if it's written to function in a non-TSO address space. Am I correct? If so, then I have to presume that you can't use the TSO STATUS and OUTPUT commands. Can you access your JES spool interface tool (i.e. SDSF or ISPF or Sysview) via a batch call?

Arun Kumar S · New User Joined: 23 Jan 2009 Posts: 14 Location: Bangalore

could you please post any sample code to check the way you said?

superk · Posted: Tue Feb 24, 2009 6:45 pm

I don't understand. Sample code for what - processes that have already been talked about in great detail already?