|
View previous topic :: View next topic
|
| Author |
Message |
Searchman
New User
Joined: 28 Dec 2006
Posts: 80
Location: France
|
|
|
|
Hello,
I'd like to run IEBPTPCH with several PDS in SYSUT1
but it takes only the first one !
Why ?
How can I do ?
| Code: |
//IEBP001 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*SYSUT1 DD DISP=SHR,DSN=EXPL.PREP4.PROCLIB
//*SYSUT1 DD DISP=SHR,DSN=ETUD.DASCI.SARBATCH
//*SYSUT1 DD DISP=SHR,DSN=ETUD.KB.SOURCE
//*YSUT1 DD DISP=SHR,DSN=ETUD.L255428.PGMR.SAR
//SYSUT1 DD DISP=SHR,DSN=ETUD.L255428.ARS01.PGM
// DD DISP=SHR,DSN=ETUD.L255428.ARS02.PGM
// DD DISP=SHR,DSN=ETUD.L255428.ARS03.PGM
// DD DISP=SHR,DSN=ETUD.L255428.ARS04.PGM
// DD DISP=SHR,DSN=ETUD.L255428.ARS05.PGM
//SYSUT2 DD DSN=ETUD.L255428.PGMSAR,
// UNIT=(SYSDA),SPACE=(CYL,(50,20),RLSE),
// DCB=(DSCB.MODELX,RECFM=FB,LRECL=080,
// BLKSIZE=27600,TRTCH=COMP),DISP=(,CATLG)
//SYSIN DD *
PUNCH TYPORG=PO
|
|
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
You cannot concatenate the pds's.
What you can do with what you already have is turn it info a proc&pend and have the 2-digit qualifier as a symbolic parameter. Put the sysin data into a dataset (use IEBGENER) because you cannot have data inside a proc.
Something like:
| Code: |
//YOUR JOB statement
//MYPTPCH PROC LIB=01
//IEBP001 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=ETUD.L255428.ARS&LIB.PGM
//SYSUT2 DD DSN=ETUD.L255428.PGMSAR,
// UNIT=(SYSDA),SPACE=(CYL,(50,20),RLSE),
// DCB=(DSCB.MODELX,RECFM=FB,LRECL=080,
// BLKSIZE=27600,TRTCH=COMP),DISP=(MOD,CATLG)
//SYSIN DD DSN=thectlcrd.dsn,DISP=SHR
// PEND
//SET1 EXEC MYPTPCH,LIB=01
//SET2 EXEC MYPTPCH,LIB=02
etc
|
Include as many EXECs with LIB= as you need.
Please let us know if this does what you want (or not  ). |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
Also, please note the MOD disp. After the first step, the entry will not be re-cataloged, but it should generate a message in your output.
If you don't want the messages, you can catalog the dataset before you begin as (,CATLG) and then specify MOD,KEEP in the proc. |
|
| Back to top |
|
|
Searchman
New User
Joined: 28 Dec 2006
Posts: 80
Location: France
|
|
|
|
I have some problem...
(note I have added a point after ARS&LIB)
| Code: |
IEF344I D255428T IEBP001 SET1 SYSIN - ALLOCATION FAILED DUE TO DATA FACILITY
IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF DATA SET
ETUD.L255428.DSN2
|
| Code: |
//MYPTPCH PROC LIB=01
//IEBP001 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=ETUD.L255428.ARS&LIB..PGM
//SYSUT2 DD DSN=ETUD.L255428.PGMSAR,
// UNIT=(SYSDA),SPACE=(CYL,(50,20),RLSE),
// DCB=(DSCB.MODELX,RECFM=FB,LRECL=080,
// BLKSIZE=27600,TRTCH=COMP),DISP=(,CATLG)
//SYSIN DD DSN=ETUD.L255428.DSN2
// PEND
//SET1 EXEC MYPTPCH,LIB=01
//SET2 EXEC MYPTPCH,LIB=02
//SET3 EXEC MYPTPCH,LIB=03
//SET4 EXEC MYPTPCH,LIB=04
//SET5 EXEC MYPTPCH,LIB=05
|
I've created ETUD.L255428.DSN2 like this (80 bytes)
| Code: |
********************************* Top of Data **********************************
PUNCH TYPORG=PO 00000100
******************************** Bottom of Data ********************************
|
And I can't override 00000100 at the end of the record ! |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
Where's the DISPOSITION for this line?
//SYSIN DD DSN=ETUD.L255428.DSN2 |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
You also need to change the (,catlg) to (mod,catlg). Please refer to the prior suggestion. The (,catlg) will not work.
Also, as superk said, you need a disp on the sysin dataset. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
Well, it won't work without uglygrams from the system. . . |
|
| Back to top |
|
|
Searchman
New User
Joined: 28 Dec 2006
Posts: 80
Location: France
|
|
|
|
Thanks (I've forgotten for the "MOD"), I'll try it again tomorrow (it's 11:15 pm in Paris)
What about the end of rec ETUD.L255428.DSN2 (00000100) that I can't override in edit ? |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Good luck
How did you create the member? My guess is that you used the online editor and that is the sequence number. I'm not connected so i can't verify the command to get rid of it just now - one of the problems of switching between several editors daily
I'd suggest creating a new member (or overwriting the one you have) using IEBGENER - make the SYSUT1 a DD * and SYSUT2 the dsn(mbr). There should be no sequence number to get in the way then.
Let us know how it goes  |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Quote: |
// DCB=(DSCB.MODELX,RECFM=FB,LRECL=080,
// BLKSIZE=27600,TRTCH=COMP),DISP=(,CATLG) |
Why are you coding
(a) DCB= each sub parameter of the OLD DCB parameter are noe paramteres in their own right.
(b) DSCB.MODELX Why do you need to specify this ? it may only be reuired for GDG datasets, and not even then if SMS is correctly configured.
(c)TRTCH=COMP This, as far as I know, is a parameter relating to TAPE datasets. And even so, hardware compression is active as default in almost every site I have ever worked.
(d)UNIT=SYSDA if you have SMS implemented properly you only need to specify a unit if you want to use tape, and not always even then.
I would just code
| Code: |
//SYSUT2 DD DSN=ETUD.L255428.PGMSAR,DISP=(,CATLG,DELETE)
// SPACE=(CYL,(50,20),RLSE),
// RECFM=FB,LRECL=080
|
|
|
| Back to top |
|
|
Searchman
New User
Joined: 28 Dec 2006
Posts: 80
Location: France
|
|
|
|
Thanks, Dick and Superc, the proc works fine now !
Expat, I note your remarks, I've just taken an existing JCL step.
Dick, about number I couldn't override it was Autonum off (sorry I'm not easy with IEBGENER) |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
| Thanks for the followup and the "autonum" info |
|
| Back to top |
|
|
Searchman
New User
Joined: 28 Dec 2006
Posts: 80
Location: France
|
|
|
|
| Correction : it was "NUMBER OFF" instead of "AUTONUM OFF" |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
| Yup, that's why i put in quotes |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
