bluebird
Active User
.jpg)
Joined: 03 Feb 2004
Posts: 127
|
|
|
|
use pgm iefbr14 :
| Code: |
//step00 exec pgm=iefbr14
//allo DD DISP=(NEW,CATLG),DSN=&SYSUID..REPORT.SWEU.BEFINJ(+1),
// DCB=(BLKSIZE=27920,RECFM=FB,LRECL=80),
// UNIT=SYSDA,SPACE=(TRK,(00099,00099),RLSE)
//allo01 DD DISP=(NEW,CATLG),DSN=&SYSUID..REPORT.SWEU.BEFINJ(+2),
// DCB=(BLKSIZE=27920,RECFM=FB,LRECL=80),
// UNIT=SYSDA,SPACE=(TRK,(00099,00099),RLSE)
//allo02 DD DISP=(NEW,CATLG),DSN=&SYSUID..REPORT.SWEU.BEFINJ(+3),
// DCB=(BLKSIZE=27920,RECFM=FB,LRECL=80),
// UNIT=SYSDA,SPACE=(TRK,(00099,00099),RLSE)
//allo03 DD DISP=(NEW,CATLG),DSN=&SYSUID..REPORT.SWEU.BEFINJ(+4),
// DCB=(BLKSIZE=27920,RECFM=FB,LRECL=80),
// UNIT=SYSDA,SPACE=(TRK,(00099,00099),RLSE)
//allo04 DD DISP=(NEW,CATLG),DSN=&SYSUID..REPORT.SWEU.BEFINJ(+5),
// DCB=(BLKSIZE=27920,RECFM=FB,LRECL=80),
// UNIT=SYSDA,SPACE=(TRK,(00099,00099),RLSE)
|
|
|
mmwife
Super Moderator
Joined: 30 May 2003
Posts: 1592
|
|
|
|
Hi Vam,
Do you really want to add 5 empty datasets to the GDG? There are legitimate reasons for doing it, but is that what you were asking?
If you do, you may want to keep this in mind:
1) Don't attempt to read any of the new ds. An abend can result.
2) Depending on the LIMIT used to create the GDG you may "roll off" previously created ds by creating the new gens. And again depending on the options chosen when the GDG was created, they may be deleted.
Regards, Jack. |
|
