Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Internal Reader not submitting the copied JCL

Status
Not open for further replies.

ConsMorante

Programmer
Jun 22, 2007
9
DE
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.
 
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.
 
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
 
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. :)

 
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". . .

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top