How to copy the contents of a PDS to PS File

NAGARJUN CARALAPATI · Posted: Tue Oct 16, 2007 4:40 pm

Could any one let me know how to copy the contents of all the members inside the PDS(without listing out the members inside the PDS in the job) to a flat file.

Where the flat file as ouput should consist of all the data inside the PDS members to be concatenated inside.

Could any one come up with a sample job to do this !!

superk · Posted: Tue Oct 16, 2007 4:47 pm

9.0 IEBPTPCH (Print-Punch) Program from the DFSMS/MVS V1R5 Utilities.

1.35 PRINTDS Command from the z/OS V1R7.0 TSO/E Command Reference.

NAGARJUN CARALAPATI · Posted: Tue Oct 16, 2007 4:52 pm

Could you please send me a sample program which uses IEBPTPCH.

superk · Posted: Tue Oct 16, 2007 5:48 pm

There's one here in this previous topic.

dbzTHEdinosauer · Posted: Tue Oct 16, 2007 6:19 pm

why not use the 3.3 panel?

NAGARJUN CARALAPATI · Posted: Tue Oct 16, 2007 6:33 pm

3.3 is for copy 'pds to pds' or 'ps to ps' but not for 'all pds member to a single ps'.

superk · Posted: Tue Oct 16, 2007 6:37 pm

Huh??

ISPF 3.3 is "3 Move/Copy Move, or copy members or data sets", which can be PDS to PDS, PDS to SEQ, SEQ to PDS.

Aaru · Posted: Tue Oct 16, 2007 6:38 pm

naga,

NAGARJUN CARALAPATI · Posted: Tue Oct 16, 2007 6:46 pm

Thanks kevin,
3.3 option worked. I was able to copy all the content of the PDS members to a single flat file.

Thank you !!!!!!

enrico-sorichetti · Posted: Tue Oct 16, 2007 6:50 pm

superk · Posted: Tue Oct 16, 2007 6:51 pm

I thought your original requirement was to be able do this in batch without having to code a program. No?

NAGARJUN CARALAPATI · Posted: Tue Oct 16, 2007 6:53 pm

But before using this 3.3 option i created an empty flat file and then gave for 3.3 option to copy.

If we didnt define before 3.3, then it is trying to create a new PDS and copy all the content to those PDS members to new PDS members.

NAGARJUN CARALAPATI · Posted: Tue Oct 16, 2007 6:54 pm

Yes,
our original requirement was to be able do this in batch without having to code a program.

enrico-sorichetti · Posted: Tue Oct 16, 2007 7:00 pm

gcicchet · Posted: Fri Oct 19, 2007 12:53 pm

If you have FILEAID here's an example that works

//UPD EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=INPUT.PDS,
// DISP=SHR
//DD01O DD DSN=OUTPUT.DSN,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(500,100),RLSE)
//SYSIN DD *
*
$$DD01 COPY MEMBERS=ALL,OUT=0

Sagar_mainframe · Posted: Wed Jul 15, 2009 1:20 am

Hi,

I want to do exactly reverse!!!

I want to copy the flat file to PDS member.

What is a procedure to do this?

Thanks,

Douglas Wilder · Posted: Wed Jul 15, 2009 1:56 am

Is there a reason you replied to an old message instead of creating a new one?

Do you want to copy the flat file to one PDS member. If so you may use 3.3, IEBGENER, ICEGENER, IDCAMS, or other programs.

If you want the flat file to be split into several PDS members, then we need to know how to detect when one member ends and the next starts. It could easily help to know how this file was created.

expat · Posted: Wed Jul 15, 2009 1:43 pm

It depends on how the flat file was created. Without knowing how it was created we can to tell you how to restore it

rahulbank · Posted: Wed Jul 15, 2009 8:10 pm

One has other options such as choose the members to be copied the columns to be copied and many...

//IEBPTPCH EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=file.file1,DISP=SHR
//SYSUT2 DD DSN=file.file2,DISP=(OLD,CATLG,DELETE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT TYPORG=PO,MAXFLDS=1
RECORD FIELD=(80)

Robert Sample · Posted: Wed Jul 15, 2009 8:17 pm

rahulbank, the post was for going from a flat file to a PDS. Your JCL is going from a PDS to a flat file. Exactly how does this help, since you're doing completely the opposite of what was asked?

sagar, as was pointed out by earlier posts, there's a lot of possible ways to do what you're asking but the tool used depends partly upon the flat file's characteristics. Unless you provide us more, all we can do is say yes it can be done but the specific tool depends upon the file.

rahulbank · Posted: Wed Jul 15, 2009 8:20 pm

This was the original question:

Could any one let me know how to copy the contents of all the members inside the PDS(without listing out the members inside the PDS in the job) to a flat file.

My intention was just to help the person who has asked the original question incase he has still not found the solution to this.

rahulbank · Posted: Wed Jul 15, 2009 8:22 pm

Sorry Now I realize the oringinal question was asked way back in time...

Apologies....

dbzTHEdinosauer · Posted: Wed Jul 15, 2009 8:26 pm

edit the pds member, enter 'A' at the line after which you want the new data positioned and enter COPY on the commandline. Depress ENTER.
fill out the panel.

Sagar_mainframe · Posted: Wed Jul 15, 2009 8:54 pm

Actually I tried using IDCAMS as follows:

Robert Sample · Posted: Wed Jul 15, 2009 8:56 pm

Use DISP=OLD for guaranteed results, or DISP=SHR if you're sure nobody else can be updating the PDS at the same time. DISP applies to the data set, not to the member -- as many have discovered the hard way by attempting to code DISP=(OLD,DELETE) to get rid of a member (the data set goes away instead).