zOs/JCL/DB2UND

//A540769W JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//***************************************************
//*  UNLOAD COPY
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769V.UNLOAD'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     UNLOAD DATA
         FROM TABLE  OA1P.TQZ005TECSVRTSLASTEQ
       UNLDDN TSRECO EBCDIC  CCSID(0037,0037)
 --    PUNCHDDN TPUNO
       DELIMITED
         SHRLEVEL CHANGE