zOs/WK/XBCHKGEN

$#@
$=chkLst=DSN.XBCHK.LIST
$=jn=A540769C
$=dbSy=DVTB
$=parts = 10
$=steps = 10
$;
$>.fEdit()
call readNxBegin chkLst, $chkLst
$=px=0
$=sx=1
$$  -job
$$  -step $sx
$@do lx=1 $@[
    ls = readNx(chkLst)
    if ls == '' then
        leave
    parse var m.ls tCr tb pa tsPa iCr ix iPa oSt oEn oTST .
    if  oSt = '' & iPa <> 0 & datatype(iPa, 'n') ,
                  & done.tCr.tb.iPa \== 1 then $@[
        $=px=- $px+1
        if $px > $parts then $@[
            if $sx >= $steps then
                leave
            $$ -endStep $sx
            $=sx=- $sx+1
            $=px= 1
            $$ -step $sx
            $]
        $$- tCr tb iPa
        done.tCr.tb.iPa = 1
        $]
    $]
$$ -endStep $sx
call readNxEnd   chkLst
$|
$@for ii $@/forII/
    if abbrev($ii, '-job') then $@=[
//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,SCHENV=$dbSy                            00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG                                                       00040001
$] else if abbrev($ii, '-step') then $@=[
    $=sx=- right(word($ii, 2), 3, 0)
//S${sx}CHK EXEC PGM=DSNUTILB,
//   PARM=($dbSy,'$jn.CHECK'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD DISP=(NEW,CATLG,CATLG),MGMTCLAS=COM#A049,
//           DSN=DSN.XBCHK.S${sx}CHK.#DT#
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=$dbSy.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
     LISTDEF TPLST
$] else if abbrev($ii, '-endStep') then $@=[
    $=sx=- right(word($ii, 2), 3, 0)
     LISTDEF IXLST INCLUDE INDEXSPACES LIST TPLST
     CHECK INDEX LIST IXLST
     SHRLEVEL REFERENCE
     SORTDEVT DISK -- SORTNUM 32
//S${sx}RXX EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//           PARM='%xbchk'
//CHKOUT   DD DISP=SHR,DSN=*.S${sx}CHK.SYSPRINT
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX
$] else if abbrev($ii, '-') then $@[
     call err 'bad line' $ii
$] else $@[
    parse value $ii with cr tb pa .
    $$- '       INCLUDE TABLE' cr'.'tb 'PARTLEVEL' pa
$]
$/forII/
$#out                                              20130318 09:48:35
$#out                                              20130318 09:47:38
$#out                                              20130318 09:45:04