zOs/JCL/DB2UNLOP

//A540769R JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  unload parallel
//*      partition parallelism is activated if
//*      unload template contains fulllength &PART
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769.UNLOAC'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     UNLOAD DATA FROM TABLE  OA1A.TEL001A1
       PUNCHDDN TPUNCH UNLDDN TSRECD
         SHRLEVEL CHANGE ISOLATION UR