zOs/REXX/ELCOMAUN

$<~WK.REXX(ELCOMATB) $>.jclSub()
$@[
$=c=0
$@for li  $@[
    parse upper value $li with c1 oTs c2 otb .
    if c1 <> 'TS' | c2 <> 'TB' | otb = '' | ots = '' then
        call err 'bad line' $li
    nTs = oTs'C4'
    nTb = left(oTb, 6)'EL'substr(oTb, 7, length(oTb)-8)'C4'
    $=c=-$c+1
    say $c 'old' ots '  in' oTb
    say $c 'new' nts 'in' nTb
    $=jc=-'//*'
    $=oTs=-oTs
    $=oTb=-oTb
    if $c = 1 then $@=[
//A540769U JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
${jc}MAIN CLASS=LOG
$jc
$jc **************************************************
$jc  UNLOAD COPY
$jc **************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769.UNLOAC'),
//   REGION=0M
$jc 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 *
     TEMPLATE TSREC    DSN('A540769.TMPUL.&SN..D&DATE..UNLOAD')
                       DATACLAS (NULL30) MGMTCLAS(COM#E005)
                       SPACE (1000,1250) CYL
     TEMPLATE TSPUN    DSN('A540769.TMPUL.&SN..D&DATE..UNLPUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E005)
                       SPACE (10,250) CYL
    $]
    $@=[
     UNLOAD DATA FROM TABLE  $oTb
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
    $]
    $]
$]
$#out                                              20100111 14:30:47
$#out                                              20100111 14:30:09
$#out                                              20100111 14:28:50
//A540769U 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,'A540769U.UNLOA'),
//   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 *
     TEMPLATE TSREC    DSN('A540769.TMPUL.&SN..D&DATE..UNLOAD')
                       DATACLAS (NULL30) MGMTCLAS(COM#E005)
                       SPACE (1000,1250) CYL
     TEMPLATE TSPUN    DSN('A540769.TMPUL.&SN..D&DATE..UNLPUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E005)
                       SPACE (10,250) CYL
     UNLOAD DATA FROM TABLE  KS09A1A.A831A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A832A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A833A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A835A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A836A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A837A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A838A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A839A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A840A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A841A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A843A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A845A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A846A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A847A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A848A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A849A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A850A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A851A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A852A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A853A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A854A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A855A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A856A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A857A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A858A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A859A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A860A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A861A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A862A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
     UNLOAD DATA FROM TABLE  KS09A1A.A863A
       PUNCHDDN TSPUN UNLDDN TSREC
         SHRLEVEL CHANGE ISOLATION UR
$#out