zOs/JCL/XBLOADDU

$#=
$>.fEdit()
$<=[
XBFRH002HS001001
XBFRH002IT002001
XBFRH002IT003001
XBFRH002PS001001
XBFRH002PS002001
XBFRH002PS003001
XBFRG002HS001001
XBFRG002IT002001
XBFRG002IT003001
XBFRG002PS001001
XBFRG002PS002001
XBFRG002PS003001
$]
//A540769M JOB (CP00,KE50),'DB2 ld',
//             MSGCLASS=T,TIME=1440,SCHENV=DVBP,
//             NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* ux utility generator ld
//*           who RR2 DVBP A540769 2
//*           11.07.14 15:19:32 A540769M 03
//*
//STEP1    EXEC PGM=DSNUTILB,TIME=1440,
//             PARM=(DVBP,'A540769M.UXUTIL'),
//             REGION=0M
//SYSPRINT   DD SYSOUT=*
//*YSPRINT   DD DSN=DSN.JOBRUN.A540769M.STEP1.#DT#,
//*            DISP=(NEW,CATLG,CATLG),MGMTCLAS=BAT#NW,DSNTYPE=LARGE,
//*            DCB=(RECFM=FB,LRECL=132,DSORG=PS),SPACE=(CYL,(1,1000))
//SYSUDUMP   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSTEMPL   DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//INDUMMY    DD DUMMY
//SYSIN      DD *
$for t $@=[
$=tb =- 'BUA.'strip($t)
---- load dummy $tb ------
  LOAD DATA LOG NO
    WORKDDN(TSYUTS, TSOUTS) MAPDDN TMAPD
    STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
    RESUME NO REPLACE COPYDDN(TCOPYS) INDDN INDUMMY
  INTO TABLE $tb
$]
$#out                                              20140711 15:25:44
$#out                                              20140711 15:24:15
$#out                                              20140711 15:23:58
*** run error ***
missing key in mapGet(V, tb)
$#out