//******* COPY PS 00010000
//CP PROC FROM=FROMMISSING,TO=TOMISSING 00020000
//CP EXEC PGM=IEBGENER 00030000
//SYSPRINT DD SYSOUT=* 00040000
//SYSUT1 DD DISP=SHR,DSN=&FROM 00050000
//SYSUT2 DD DISP=(NEW,CATLG,DELETE),DSN=&TO,LIKE=&FROM 00060000
// PEND 00070000
//******* COPY PDS 00080000
//CP EXEC PGM=IEBCOPY 00090000
//SYSIN DD * 00100000
COPY OUTDD=TMPPROF,INDD=SYSPROF 00110000
SELECT MEMBER=(ISPSPROF) 00120000
//SYSPRINT DD SYSOUT=* 00130000
//TMPPROF DD DISP=(NEW,CATLG),LIKE=TSU.RZ1.P0.A540769.PROF, 00140000
----+----1----+----2----+----3----+----4----+----5----+----6- 00150000
// DSNAME=A540769.TTT.PROF 00160000
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920) 00170000