zOs/JCL/CARATPRU

$= sub = DBOF
$= cre = OA1P
$= steps  = 9
$;
$@=[
TCT100A1
TCT110A1
TCT111A1
TCT120A1
TCT135A1
TCT141A1
TCT142A1
TCT150A1
TCT152A1
TCT153A1
TCT170A1
TCT200A1
TCT201A1
TCT202A1
TCT203A1
TCT204A1
TCT206A1
TCT207A1
TCT208A1
TCT209A1
TCT210A1
TCT211A1
TCT212A1
TCT213A1
TCT214A1
TCT215A1
TCT216A1
TCT217A1
TCT218A1
TCT220A1
TCT221A1
TCT222A1
TCT230A1
TCT231A1
$*+ TCT233A1
TCT240A1
TCT241A1
TCT242A1
TCT243A1
TCT244A1
TCT250A1
TCT251A1
TCT252A1
TCT253A1
TCT254A1
TCT255A1
TCT256A1
TCT257A1
TCT258A1
TCT259A1
TCT260A1
TCT261A1
TCT262A1
TCT264A1
TCT265A1
TCT266A1
TCT270A1
TCT290A1
TCT291A1
TCT292A1
TCT293A1
TCT300A1
TCT301A1
TCT302A1
$*+ TCT303A1
TCT304A1
TCT305A1
$*+ TCT306A1
TCT308A1
TCT309A1
TCT320A1
TCT340A1
TCT350A1
TCT351A1
TCT353A1
TCT354A1
TCT355A1
TCT356A1
TCT357A1
TCT358A1
TCT359A1
TCT370A1
TCT390A1
TCT400A1
$]
$| $@[
    jNo = 01
    sNo = 0
    $@for tt $@[
        sNo = sNo + 1
        if sNo > $steps then do
            $$- 'eoj' jNo
            jNo = right(jNo + 1, 2, 0)
            sNo = 1
            end
        if sNo = 1 then
            $$- 'job' jNo
        $$ $tt
        $]
        $$- 'eoj' jNo
    $]
$| $@for tt $@[
       $= tt =- strip($tt)
       if abbrev($tt, 'job') then $@=[
           $=jNo =- word($tt, 2)
           $=j = YCARAT$jNo
//$j JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='$sub,$j.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=$sub.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
           $]
       else if \ abbrev($tt, 'eoj') then $@=[
           $= tx =- substr($tt, 4, 3)
        INCLUDE TABLESPACE CT02A1P.A${tx}A
           $]
       else $@=[
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
           $]
       $]
$#out                                              20100315 16:50:18
//YCARAT01 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT01.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A100A
        INCLUDE TABLESPACE CT02A1P.A110A
        INCLUDE TABLESPACE CT02A1P.A111A
        INCLUDE TABLESPACE CT02A1P.A120A
        INCLUDE TABLESPACE CT02A1P.A135A
        INCLUDE TABLESPACE CT02A1P.A141A
        INCLUDE TABLESPACE CT02A1P.A142A
        INCLUDE TABLESPACE CT02A1P.A150A
        INCLUDE TABLESPACE CT02A1P.A152A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT02 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT02.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A153A
        INCLUDE TABLESPACE CT02A1P.A170A
        INCLUDE TABLESPACE CT02A1P.A200A
        INCLUDE TABLESPACE CT02A1P.A201A
        INCLUDE TABLESPACE CT02A1P.A202A
        INCLUDE TABLESPACE CT02A1P.A203A
        INCLUDE TABLESPACE CT02A1P.A204A
        INCLUDE TABLESPACE CT02A1P.A206A
        INCLUDE TABLESPACE CT02A1P.A207A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT03 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT03.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A208A
        INCLUDE TABLESPACE CT02A1P.A209A
        INCLUDE TABLESPACE CT02A1P.A210A
        INCLUDE TABLESPACE CT02A1P.A211A
        INCLUDE TABLESPACE CT02A1P.A212A
        INCLUDE TABLESPACE CT02A1P.A213A
        INCLUDE TABLESPACE CT02A1P.A214A
        INCLUDE TABLESPACE CT02A1P.A215A
        INCLUDE TABLESPACE CT02A1P.A216A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT04 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT04.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A217A
        INCLUDE TABLESPACE CT02A1P.A218A
        INCLUDE TABLESPACE CT02A1P.A220A
        INCLUDE TABLESPACE CT02A1P.A221A
        INCLUDE TABLESPACE CT02A1P.A222A
        INCLUDE TABLESPACE CT02A1P.A230A
        INCLUDE TABLESPACE CT02A1P.A231A
        INCLUDE TABLESPACE CT02A1P.A240A
        INCLUDE TABLESPACE CT02A1P.A241A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT05 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT05.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A242A
        INCLUDE TABLESPACE CT02A1P.A243A
        INCLUDE TABLESPACE CT02A1P.A244A
        INCLUDE TABLESPACE CT02A1P.A250A
        INCLUDE TABLESPACE CT02A1P.A251A
        INCLUDE TABLESPACE CT02A1P.A252A
        INCLUDE TABLESPACE CT02A1P.A253A
        INCLUDE TABLESPACE CT02A1P.A254A
        INCLUDE TABLESPACE CT02A1P.A255A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT06 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT06.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A256A
        INCLUDE TABLESPACE CT02A1P.A257A
        INCLUDE TABLESPACE CT02A1P.A258A
        INCLUDE TABLESPACE CT02A1P.A259A
        INCLUDE TABLESPACE CT02A1P.A260A
        INCLUDE TABLESPACE CT02A1P.A261A
        INCLUDE TABLESPACE CT02A1P.A262A
        INCLUDE TABLESPACE CT02A1P.A264A
        INCLUDE TABLESPACE CT02A1P.A265A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT07 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT07.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A266A
        INCLUDE TABLESPACE CT02A1P.A270A
        INCLUDE TABLESPACE CT02A1P.A290A
        INCLUDE TABLESPACE CT02A1P.A291A
        INCLUDE TABLESPACE CT02A1P.A292A
        INCLUDE TABLESPACE CT02A1P.A293A
        INCLUDE TABLESPACE CT02A1P.A300A
        INCLUDE TABLESPACE CT02A1P.A301A
        INCLUDE TABLESPACE CT02A1P.A302A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT08 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT08.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A304A
        INCLUDE TABLESPACE CT02A1P.A305A
        INCLUDE TABLESPACE CT02A1P.A308A
        INCLUDE TABLESPACE CT02A1P.A309A
        INCLUDE TABLESPACE CT02A1P.A320A
        INCLUDE TABLESPACE CT02A1P.A340A
        INCLUDE TABLESPACE CT02A1P.A350A
        INCLUDE TABLESPACE CT02A1P.A351A
        INCLUDE TABLESPACE CT02A1P.A353A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
//YCARAT09 JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//UNLOAD   EXEC PGM=DSNUTILB,PARM='DBOF,YCARAT09.UNLOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
    LISTDEF  LST
        INCLUDE TABLESPACE CT02A1P.A354A
        INCLUDE TABLESPACE CT02A1P.A355A
        INCLUDE TABLESPACE CT02A1P.A356A
        INCLUDE TABLESPACE CT02A1P.A357A
        INCLUDE TABLESPACE CT02A1P.A358A
        INCLUDE TABLESPACE CT02A1P.A359A
        INCLUDE TABLESPACE CT02A1P.A370A
        INCLUDE TABLESPACE CT02A1P.A390A
        INCLUDE TABLESPACE CT02A1P.A400A
   TEMPLATE TREC  DSN('DSN.CARAT.&DB..&SN..UNL')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       SPACE (10,250) CYL
   TEMPLATE TPUN  DSN('DSN.CARAT.&DB..&SN..PUN')
                       DATACLAS (NULL12) MGMTCLAS(COM#E008)
                       -- SPACE (10,250) CYL
     UNLOAD LIST LST
       PUNCHDDN TPUN   UNLDDN TREC
         SHRLEVEL CHANGE ISOLATION UR
$#out                                              20100315 16:45:24