zOs/TX/PER21UNL

//A540769V JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBOF,'A540769.UNLOAC'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     TEMPLATE TREC     DSN('A540769.TMPUL.PER21.P&PART..UNL')
                       DATACLAS (NULL30) MGMTCLAS(COM#A092)
                       SPACE (10,1250) CYL
     TEMPLATE TPUN     DSN('A540769.TMPUL.PER21.P&PART..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#A092)
                       SPACE (10,250) CYL
     UNLOAD FROM TABLE      OA1P.TNZ240A1
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR