IBM Mainframe Forum

by **jasand** » Tue May 25, 2010 4:16 pm

hi,

Can you help me with the JCL to create a PDS with multiple empty members (say A1, A2, ....A200)
Note: I want to create the PDS and the 200 members in a single step

I tried with the following code to create empty members for an already existing PDS. But I was not able to create more than one member in a single step

Select all

/*JOBPARM S=*
//STEP01 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
/*
//SYSUT2 DD DISP=SHR,DSN=AAAA.BBBB.CCCC(NEWJCL)
//SYSIN DD DUMMY
//SYSOUT DD SYSOUT=*
//*

by **Robert Sample** » Tue May 25, 2010 4:38 pm

I'm not sure you can create the PDS and all the members in a single step.

If you allocate the PDS, you can then use IDCAMS to create up to 250 members (more or less) in a single step:

Select all

//STEP1 EXEC PGM=IDCAMS,REGION=6M
//SYSPRINT DD SYSOUT=*
//IN1 DD DUMMY
//OUT001 DD DISP=SHR,DSN=TTSSRS0.IBMMF.EMPTY.PDS(A0000001)
//OUT002 DD DISP=SHR,DSN=TTSSRS0.IBMMF.EMPTY.PDS(A0000002)
//OUT003 DD DISP=SHR,DSN=TTSSRS0.IBMMF.EMPTY.PDS(A0000003)
//OUT004 DD DISP=SHR,DSN=TTSSRS0.IBMMF.EMPTY.PDS(A0000004)
//OUT005 DD DISP=SHR,DSN=TTSSRS0.IBMMF.EMPTY.PDS(A0000005)
//SYSIN DD *
REPRO IFILE(IN1) OFILE(OUT001)
REPRO IFILE(IN1) OFILE(OUT002)
REPRO IFILE(IN1) OFILE(OUT003)
REPRO IFILE(IN1) OFILE(OUT004)
REPRO IFILE(IN1) OFILE(OUT005)

This JCL creates five empty members in a PDS.

More to the point, what on earth is the business requirement driving such a bizarre need?

by **MrSpock** » Tue May 25, 2010 9:25 pm

I would've opted to use IEBUPDTE if the process met the requirements.

by **jasand** » Wed May 26, 2010 12:41 pm

Thanks for the reply.
It worked

IBM Mainframe Forum

Creating a PDS with Multiple members

Creating a PDS with Multiple members

Re: Creating a PDS with Multiple members

Re: Creating a PDS with Multiple members

Re: Creating a PDS with Multiple members