zOs/JCL/WI101UNL

//Y4WI101U JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DBOF
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBOF,'Y4WI101U.UNLOA'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     LISTDEF LST INCLUDE TABLESPACE WI02A1P.A101A PARTLEVEL
     COPY LIST LST COPYDDN TCOPYD
         PARALLEL
         FULL YES
         SHRLEVEL REFERENCE
     UNLOAD LIST LST
       PUNCHDDN TPUNCH UNLDDN TSRECD
         SHRLEVEL REFERENCE