hailashwin
New User
Joined: 16 Oct 2008 Posts: 74 Location: Boston
|
|
|
|
There should be something that you are missing in what you tried initially. Did you actually try giving the GDG as the output file in the IEBPTPCH step itself. I tried it and did not encounter an issue.
Code: |
//STEP1 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=PDS,DISP=SHR ->> Your PDS
//SYSUT2 DD DSN=GDG(+1), ->> Your GDG
// DISP=(NEW,CATLG,CATLG),
// MGMTCLAS=WORKW,
// SPACE=(TRK,(10,10),RLSE),
// DCB=(RECFM=FB)
//SYSIN DD *
PUNCH TYPORG=PO
/*
|
If this did not work, please show your SYSOUT message..
If you are using FILEAID, this should also work..
Code: |
//STEP010 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=PDS,DISP=SHR ->> Your PDS
//DD01O DD DSN=GDG(+1), ->> Your GDG
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(50,10),RLSE)
//SYSIN DD *
*
$$DD01 COPY MEMBERS=ALL,OUT=0
//*
|
Thanks,
Ashwin. |
|