zOs/JCL/C2U

$#@
$=dbSys= DBOF
$= pre = A540769.TMPUNL
call sqlConnect $dbSys
$** $>.fEdit()
$;
$<#[ select dbName db, tsName ts, partition part
     ,  ( select char(timestamp) || ' ' || dsName
              from sysibm.sysCopy c
              where c.dbName = p.dbName and c.tsName = p.tsName
                   and c.dsNum = p.partition and icType ='F'
                   and timestamp < '2013-11-14-00.00.00'
                   order by timestamp desc
                   fetch first row only
       ) copy
       from sysibm.sysTablepart p
       where  dbName = 'MF01A1P' and tsName = 'A150A'
$] call sqlSel
$| $@=[
//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030000
//*MAIN CLASS=LOG                                                       00040000
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=($dbSys,'A540769W.UNLOAC'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL  DD DSN=$dbSys.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TREC     DSN('$pre.&DB..&SN..P&PART..REC
                  DATACLAS(ENN35) MGMTCLAS(COM#A032)
                  SPACE TRK MAXPRIME 600
TEMPLATE TREC     DSN('$pre.&DB..&SN..P&PART..PUN
                  DATACLAS(ENN35) MGMTCLAS(COM#A032)
                  SPACE TRK MAXPRIME 600
$]
$forWith c $@=[
     UNLOAD TABLESPACE $DB.$TS PART $PART
               -- $-[word($COPY, 1)$]
         FROMCOPY $-[word($COPY, 2)$]
       SHRLEVEL CHANGE ISOLATION UR
       PUNCHDDN TPUN   UNLDDN TREC
$]
$#out                                              20131119 15:34:17