zOs/REXX.O08/XXX

//A540769L JOB (CP00,KE50)
//*MAIN CLASS=LOG
//*   alle Dataset l:schen, die wir nachher neu erstellen
//S1       EXEC PGM=IEFBR14
//RM1        DD DISP=(MOD,DELETE,DELETE),
//             DSN=A540769.TMPUL.PU1.OLDPUNCH
//*   Originales Punchfile Kopieren
//S2       EXEC PGM=IEBCOPY
//SYSPRINT   DD SYSOUT=*
//SYSUT1     DD DISP=OLD,DSN=DSN.DBAF.DRE01.A525A.LPUNCH.S88.D2006158
//SYSUT2     DD DISP=(NEW,CATLG,DELETE),DSN=A540769.TMPUL.PU1.OLDPUNCH,
//             LIKE=DSN.DBAF.DRE01.A525A.LPUNCH.S88.D2006158