zOs/JCL/DB2REBUE

$<=[
XB9QJ001
XB9QK005
XB9QK001
XB9QK002
XB9QK003
XB9QK004
XB9QL003
XB9QL004
XB9QL005
XB9QL001
XB9QL002
XB9QQ001
XB9QQ002
XB9QQ003
XB9QQ004
XB9QR001
XB9QR002
XB9QR003
XB433001
XB433002
XB433003
XB433004
XB433005
XB433006
XB433007
XB433008
XB433009
XB433010
XB434001
XB434002
XB434003
XB434004
XB434005
XB434006
XB434007
XB434008
XB434009
XB434010
XB434011
XB434012
XB434013
XB434014
XB434015
XB435009
XB435001
XB435002
XB435003
XB435004
XB435005
XB435006
XB435007
XB435008
$]
$*(
$@for d $@[
    d = strip($d)
    call sqlDsn st, dvbp, '-sta db(' d ') acc(rw)'
    call sqlDsn st, dvbp, '-sta db(' d ') sp(*) acc(rw)'
    $]
$*)
$@=[
//A540769S JOB (KEL25071,0240,,3612),'CATALOG',
//*       RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
//         MSGCLASS=T,TIME=1440
$]
$=sx=0
$@for d $@=[
    $=sx=-right($sx+1, 3, 0)
    $=d = strip($d)
//S$sx EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  $d.*
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
$]
$#out                                              20110325 15:23:24
//A540769S JOB (KEL25071,0240,,3612),'CATALOG',
//*       RESTART=STEPNAME, <== FOR RESTART REMOVE * AND ENTER STEP NAME
//         MSGCLASS=T,TIME=1440
//S001 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QJ001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S002 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QK005
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S003 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QK001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S004 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QK002
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S005 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QK003
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S006 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QK004
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S007 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QL003
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S008 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QL004
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S009 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QL005
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S010 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QL001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S011 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QL002
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S012 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QQ001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S013 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QQ002
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S014 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QQ003
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S015 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QQ004
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S016 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QR001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S017 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QR002
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S018 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB9QR003
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S019 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S020 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433002
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S021 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433003
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S022 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433004
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S023 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433005
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S024 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433006
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S025 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433007
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S026 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433008
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S027 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433009
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S028 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB433010
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S029 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S030 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434002
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S031 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434003
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S032 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434004
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S033 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434005
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S034 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434006
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S035 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434007
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S036 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434008
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S037 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434009
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S038 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434010
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S039 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434011
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S040 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434012
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S041 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434013
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S042 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434014
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S043 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB434015
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S044 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435009
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S045 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435001
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S046 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435002
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S047 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435003
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S048 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435004
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S049 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435005
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S050 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435006
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S051 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435007
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
//S052 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769S.REBUI'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN    DD *
   OPTIONS EVENT (ITEMERROR, SKIP)
   LISTDEF LST
       INCLUDE INDEXSPACE  strip(XB435008
  REBUILD INDEX LIST LST
    SORTDEVT SYSDA
 -- SORTNUM  250
    WORKDDN(TSYUTD)
    STATISTICS KEYCARD UPDATE ALL
$#out                                              20110325 15:23:00