Internal Reader not submitting the copied JCL

Question

Internal Reader not submitting the copied JCL

ConsMorante (Programmer)

(OP)

9 Nov 09 03:12

Hi,

I have a JCL that will invoke another JCL by using the internal reader. (see below code)

//STEP01    EXEC PGM=IEBGENER
//SYSUT1    DD   DSN=JS01.CNTL.LIB2(BJSJSA10),DISP=SHR
//SYSUT2    DD   SYSOUT=(A,INTRDR)
//SYSPRINT  DD   SYSOUT=*
//SYSIN     DD   DUMMY

The problem is that when i try to check for the output files that is generated by JS01.CNTL.LIB2(BJSJSA10) there are no datasets generated. I checked JCL log and i can see that the BJSJSA10 JCL is being copied to the internal reader. However i also saw something in the sysprint.

********************************* TOP OF DATA *************************
DATA SET UTILITY - GENERATE
IEB352I WARNING: ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT

PROCESSING ENDED AT EOD
******************************** BOTTOM OF DATA ***********************

i'm really not sure why the JCL is not producing any ouput dataset when invoked using the internal reader.

webrabbit (MIS) · Answer 1 · 2009-11-09 10:32:12

The warning message is mearly saying that since the default DCB parameters for SYSOUT=A on SYSUT2 do not match the DCB parameters for the dataset on SYSUT1, and it is a straight copy request, the SYSUT2 DCB parameters are adjusted to be compantible with those in the SYSUT1 dataset.

Without seeing the contents of JS01.CNTL.LIB2(BJSJSA10), it is impossible to help you further.

slade (Programmer) · Answer 2 · 2009-11-09 21:04:45

Does JS01.CNTL.LIB2(BJSJSA10) contain a valid JOB card? If it does you shoulb be able to find that JOB's exec info (JES/SYSMSG, JCL, etc.) on the sysout Q.

Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering

ConsMorante (Programmer) · Answer 3 · 2009-11-09 22:52:11

Hi All,

I was able to find another solution to submitting a JCL inside another JCL by using a different utility(IKJEFT1A) and not by the internal reader.

//EZM7ATL1 JOB (206500,TEST,,,,0000),'ZIT 7.1,EZM7',
//            MSGCLASS=T,MSGLEVEL=(1,1),CLASS=G,NOTIFY=EZM7
/STEP01    EXEC PGM=IKJEFT1A
//SYSTSPRT  DD   SYSOUT=*
//SYSTSIN   DD *
          SUBMIT  'JS01.CNTL.LIB2(BJSJSA10)'
/*
Thanks for the replies though. :)

papadba (MIS) · Answer 4 · 2009-11-10 14:22:13

You might run a test with the original jcl changing the internal reader DD to sysout B rather than A.

Seem to remember places where the internal reader was "punch" rather than "print". . .

Come Join Us!

Posting Guidelines

Internal Reader not submitting the copied JCL