MVSFORUMS.com

karunkallore · Beginner Joined: 11 Dec 2004 Posts: 103 Topics: 39

Dear Friends,

Can you please tell me whether this piece of code will work :

//STEP3 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=TSTA125.FILE1,DISP=SHR
//SYSUT2 DD SYSOUT=(X,INTRDR)
//SYSIN DD DUMMY
//*

Here TSTA125.FILE1 contains Three Members
SLIST1
SLIST2
SLIST3

These three mebers have JCL's in them.

It is giving me a RC of 12.

I need to pick these three jobs from the PDS TSTA125.FILE1 abd submit it simultaneously.

Please help.

Karun

nevilh · Beginner Joined: 11 Aug 2004 Posts: 115 Topics: 0

TSTA125.FILE1 is a pds IEBGENER works with sequential input you need to specify a member name on the SYSUT1 or make the input dataset sequential

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Agreed.

Your job should look like this:

karunkallore · Beginner Joined: 11 Dec 2004 Posts: 103 Topics: 39

Thanks Buddy !

Also one more thing i noticed is , if some members are empty also no problem !!!!

Thanks again !!

raph · Beginner Joined: 23 Mar 2004 Posts: 1 Topics: 0

Or you could use IEBPTPCH like this :
//STEP0 EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=TSTA125.FILE1,DISP=SHR
//SYSUT2 DD SYSOUT=(X,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PUNCH TYPORG=PO,MAXFLDS=1

Really old, but still running!!

dtf · Posted: Fri Feb 25, 2005 10:29 am Post subject:

I don't konw if this is still true or not, but several years ago, I was working on an appliction in CICS where we were trying to submit batch jobs via the internal reader. We got everything set up and we would put the jobs to the reader but they would not show up. When we brought down CICS, the jobs would then submit. I could not figure out what the heck wa going on, and worked on it for a while. Finally I called IBM and they told me that I neede to put a /*EOF card at the end of each job in order for them to submit immediatly. This worked great...... I never did find this documented anywhere though Rolling Eyes

________
digital vaporizer

dtf · Posted: Fri Feb 25, 2005 10:36 am Post subject:

Code /*EOF as the last record in the job.
This control statement delimits the current job and makes it eligible for immediate processing by the JES2 input service. The internal reader data set remains open.

I found this in the manual. Back in the day when I was having this problem, I did not have access to searchable manuals........ This quote is from: Book: iea2a640 "z/OS V1R6.0 MVS Assembler Services Guide"
________
BMW VII A 7.3