IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Run IEBPTPCH with several PDS in SYSUT1


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Searchman

New User


Joined: 28 Dec 2006
Posts: 80
Location: France

PostPosted: Wed Mar 21, 2007 11:10 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Mar 21, 2007 11:56 pm
Reply with quote

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 icon_smile.gif ).
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Mar 21, 2007 11:58 pm
Reply with quote

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
View user's profile Send private message
Searchman

New User


Joined: 28 Dec 2006
Posts: 80
Location: France

PostPosted: Thu Mar 22, 2007 1:10 am
Reply with quote

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
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4651
Location: Raleigh, NC, USA

PostPosted: Thu Mar 22, 2007 1:15 am
Reply with quote

Where's the DISPOSITION for this line?

//SYSIN DD DSN=ETUD.L255428.DSN2
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Mar 22, 2007 1:56 am
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Mar 22, 2007 1:57 am
Reply with quote

Hello,

Well, it won't work without uglygrams from the system. . . icon_smile.gif
Back to top
View user's profile Send private message
Searchman

New User


Joined: 28 Dec 2006
Posts: 80
Location: France

PostPosted: Thu Mar 22, 2007 3:54 am
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Mar 22, 2007 6:22 am
Reply with quote

Good luck icon_smile.gif

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 icon_smile.gif

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 icon_wink.gif
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Mar 22, 2007 4:01 pm
Reply with quote

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
View user's profile Send private message
Searchman

New User


Joined: 28 Dec 2006
Posts: 80
Location: France

PostPosted: Thu Mar 22, 2007 4:46 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Mar 22, 2007 8:39 pm
Reply with quote

Thanks for the followup and the "autonum" info icon_smile.gif
Back to top
View user's profile Send private message
Searchman

New User


Joined: 28 Dec 2006
Posts: 80
Location: France

PostPosted: Fri Mar 23, 2007 12:09 am
Reply with quote

Correction : it was "NUMBER OFF" instead of "AUTONUM OFF"
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Mar 23, 2007 12:28 am
Reply with quote

Yup, that's why i put in quotes icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts A compiler work file, "SYSUT1 ... COBOL Programming 6
No new posts IEBPTPCH limitations JCL & VSAM 8
No new posts IEBPTPCH PDS to PS. JCL & VSAM 4
No new posts IEBPTPCH utility to copy members from... All Other Mainframe Topics 3
No new posts Syncsort - Relation between sysut1 an... JCL & VSAM 5
Search our Forums:

Back to Top