IEBPTPCH limitations

Todd.Proganal · New User Joined: 24 May 2013 Posts: 5 Location: us

I am trying to create a sequential file from a PDS with 1600+ members and am having trouble with IEBPTPCH. I can create the dataset with the PRINT option but the length of my PDS members is 170 which evidentially is too long for the PRINT option. I've tried IEBGENER and IEBCOPY to see if they might offer a solution but they only seem capable of copying the entire PDS to another PDS (not sub-parameter options). I can create a list if I specify individual member in the SYSUT1 but that really isn't a viable option as the input PDS list might differ week-to-week. The IEBPTPCH reference doesn’t shed any light on the problem. Any IBM utilities (or options) I am missing that might help?

Here is my code:

//STEP05 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=MY.INPUT.PDS,DISP=SHR <PROD FILE>
//SYSUT2 DD DSN=MY.OUTPUT.SEQUNTL.FILE,
// UNIT=SYSDA,
// DISP=(NEW,CATLG,CATLG),
// SPACE=(CYL,(20,1,),RLSE),
// DCB=(DSORG=PS,RECFM=FB,LRECL=170,BLKSIZE=27880)
//
//SYSIN DD *
PUNCH TYPORG=PO
/*

Robert Sample · Posted: Fri May 31, 2013 7:04 pm

IEBPTPCH won't meet your needs unless you can live with multiple output lines per record. From the Utilities manual section on IEBPTPCH:

Pandora-Box · Posted: Fri May 31, 2013 7:12 pm

You could make use of REXX to read the PDS and write to Output file

Lot of samples in forum

dick scherrer · Posted: Fri May 31, 2013 7:16 pm

Hello and welcome to the forum,

I suspect you could do what you want by sriting a bit of code to generate a member list and then use this as input to a copy process.

There are several examples of generating a member list here in the forum. Try one and let us know if there are any questions or problems.

Some people spoon-feed answers. Several of us "old timers" encourage learning rather than just giving a solution.

Good luck.

Todd.Proganal · New User Joined: 24 May 2013 Posts: 5 Location: us

I am an old-timer myself...30 years in the mainframe environ, so I can appreciate the use of reference material. Believe me...I've poured over the manuals and I'm to the point of selling my soul over this one. I was trying to avoid writing a program (REXX or otherwise) and simply plug in a "beautiful" IBM proc to make my life easier. Oh, well. Thanks for the quick response folks. Back to the coding drawing board.

Gary McDowell · Active User Joined: 15 Oct 2012 Posts: 139 Location: USA

You could…

Run IEHLIST on your PDS dataset which will list all the members.
Build an Easytrieve/SORT/something to create copy JCL (ie IDCAM, IEBGENER) with the members above.
Create the output of the Easytrieve with MOD so that you can have the copy JCL with members back-to-back.

Good luck.

gcicchet · Posted: Sat Jun 01, 2013 2:13 pm

Hi,

here is something I've been using, not elegant but it's doing the job I want

Pete Wilson · Posted: Tue Jun 04, 2013 7:08 pm

If you have FileAid it has a nice feature to print all members of a PDS into a flatfile with member name separators.

Just go to option 3.6 and use the B (browse glbally) option. You can choose to do it in Batch or Foreground as well.

Chcek that the selection in the DD01SC has the following otherwise it won't necessarily print all members.

DEFINE BLOCKS=SELECTION,

INITIAL_SKIP=0,
THEN_SELECT=0,
THEN_SKIP=0,

MAXIMUM_TO_SEARCH=ALL,
MAXIMUM_TO_SELECT=ALL

Todd.Proganal · New User Joined: 24 May 2013 Posts: 5 Location: us

I will give gcicchet's solution a whirl. Unfortunately, we don't have FILEAID. Thanks, guys.