zOs/TX/PER17UNI

//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=(DBAF,'A540769.UNLOAC'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
//SYSIN  DD *
  LISTDEF L INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 71
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 61
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL  4
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 20
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL  9
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 66
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 51
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 56
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 98
            INCLUDE TABLESPACE MF01A1A.A150A PARTLEVEL 14
     UNLOAD LIST L
       PUNCHDDN TPUNCH UNLDDN TSRECD
         FORMAT INTERNAL
         SHRLEVEL CHANGE ISOLATION UR