zOs/SQL/XBDDYJCL

$#@
$*( xb year end ddl
        create jobs to exececute sql in each member
$*)
$= dbSys = DVBP
$= lib   = XB.ELAR.INFRA.FAM.NDBS.WEEK.FINAL.D151125A
say mbrList(qq, $lib) 'members in' $lib
$<>
$>. fEdit('~.tmp.sql(XBDDYJCL) ::f')
$do qx=1 to m.qq.0 $@=[
    $@ if qx // 50 == 1 then $@=[
//XBDDLYEA JOB (CP00,KE50),'DB2 ADMIN',
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2,
//         MSGCLASS=T,NOTIFY=&SYSUID
        $]
    $= mbr =- m.qq.qx
//S$qx     EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN    DD *
    DSN SYSTEM($dbSys)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTERM    DD DUMMY
//SYSIN      DD *
set current sqlid = 'S100447';
//           DD DISP=SHR,
//             DSN=$lib($mbr)
    $]
$#out                                              20151211 12:49:22