zOs/JCL/DB2RUNSM

$#@
$=sysPr=S2
$=sysCn=4
$=jx= 0
$=ix= -1
$;
$<tss.ska.f383353.runstats $>.fEdit()
$@forWith r $@[

    $=ix=- $ix+1

    if $ix // 100 = 0 then $@[
        if $ix > 0 then
            $@runstats()
        $=jx =- $jx // $sysCn + 1
        $@=[
//Y4DVBPR$jx JOB (CP00,KE50),'DB2 RUNSTATS',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DVBP,SYSTEM=$sysPr$jx
//ST$ix EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'Y4DVBPR$jx.RUNSTA'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSIN DD *
  LISTDEF LST
    $]
    $]
    $$- '     INCLUDE' subword($r, 2, 2)
    $]
$@proc runstats $@=[
   RUNSTATS TABLESPACE LIST LST
         SHRLEVEL CHANGE
           INDEX (ALL  KEYCARD
                 )
           UPDATE ALL REPORT NO
   $]
   $@runstats()
$#out                                              20110923 10:45:26
$#out                                              20110923 10:42:51
$#out                                              20110923 10:42:02
$#out                                              20110923 10:40:35