Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Run IEBPTPCH with several PDS in SYSUT1

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: Run IEBPTPCH with several PDS in SYSUT1
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

Site Director


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

PostPosted: Wed Mar 21, 2007 11:56 pm    Post subject:
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

Site Director


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

PostPosted: Wed Mar 21, 2007 11:58 pm    Post subject:
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    Post subject: Re: Run IEBPTPCH with several PDS in SYSUT1
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

Moderator Team Head


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

PostPosted: Thu Mar 22, 2007 1:15 am    Post subject: Re: Run IEBPTPCH with several PDS in SYSUT1
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

Site Director


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

PostPosted: Thu Mar 22, 2007 1:56 am    Post subject:
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

Site Director


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

PostPosted: Thu Mar 22, 2007 1:57 am    Post subject:
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    Post subject: Re: Run IEBPTPCH with several PDS in SYSUT1
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

Site Director


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

PostPosted: Thu Mar 22, 2007 6:22 am    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Mar 22, 2007 4:01 pm    Post subject:
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    Post subject: Re: Run IEBPTPCH with several PDS in SYSUT1
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

Site Director


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

PostPosted: Thu Mar 22, 2007 8:39 pm    Post subject:
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    Post subject: Re: Run IEBPTPCH with several PDS in SYSUT1
Reply with quote

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

Site Director


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

PostPosted: Fri Mar 23, 2007 12:28 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts A compiler work file, "SYSUT1 ... saran kumar yeddula COBOL Programming 6 Wed Jan 08, 2014 7:47 pm
No new posts IEBPTPCH limitations Todd.Proganal JCL & VSAM 8 Fri May 31, 2013 6:35 pm
No new posts IEBPTPCH PDS to PS. rahulbank JCL & VSAM 4 Thu Aug 13, 2009 10:16 pm
No new posts IEBPTPCH utility to copy members from... khadar78 All Other Mainframe Topics 3 Wed Aug 05, 2009 2:10 pm
No new posts Syncsort - Relation between sysut1 an... kratos86 JCL & VSAM 5 Wed Aug 05, 2009 12:07 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us