zOs/SQL/LISTC
$= subsys = DBAF
call sqlConnect DBAF
$;
$<<tbs
TWK202A1
tbs $@{ sel = ''
$@for v $@{ sel = sel", '"strip($v)"'" $}
sel = 'in ('substr(sel, 3)')'
say sel
$=sel £ sel
$}
$;
$<<[s1
select t.creator cr, t.name tb, t.dbName db, t.tsName ts,
p.iPrefix ip, p.partition pa, p.dsNum nu
from sysibm.systables t, sysibm.sysTablePart p
where t.dbName = p.dbName and t.tsName = p.tsname
and name $sel
s1 call sql 3
$! $@{
$@for v $@{
$$ ${v.CR} ${v.TB} ${v.DB} ${v.TS} ${v.PA} ${v.IP} $*+
${v.NU}
do x=1 to ${v.NU}
dsn = $subsys'.DSNDBC.'${v.DB}'.'${v.TS},
|| '.'${v.IP}right(x, 4, 0) ,
|| '.A'right(max(1,${v.PA}), 3, 0)
$£ dsn
$£ dsn sysdsn("'"dsn"'")
end
$}
$}
$***out 20080818 16:05:41
A540769 TWK202A1 DA540769 A202A 1 I -1
A540769 TWK202A1 DA540769 A202A 2 I -1
A540769 TWK202A1 DA540769 A202A 3 I -1
A540769 TWK202A1 DA540769 A202A 4 I -1
GDB9998 TWK202A1 DGDB9998 A202A 1 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0001.A001
DBAF.DSNDBC.DGDB9998.A202A.I0001.A001 OK
GDB9998 TWK202A1 DGDB9998 A202A 2 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0001.A002
DBAF.DSNDBC.DGDB9998.A202A.I0001.A002 OK
GDB9998 TWK202A1 DGDB9998 A202A 3 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0001.A003
DBAF.DSNDBC.DGDB9998.A202A.I0001.A003 OK
GDB9998 TWK202A1 DGDB9998 A202A 4 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0001.A004
DBAF.DSNDBC.DGDB9998.A202A.I0001.A004 OK
$***out 20080818 16:02:11
A540769 TWK202A1 DA540769 A202A 1 I -1
A540769 TWK202A1 DA540769 A202A 2 I -1
A540769 TWK202A1 DA540769 A202A 3 I -1
A540769 TWK202A1 DA540769 A202A 4 I -1
GDB9998 TWK202A1 DGDB9998 A202A 1 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0001.A001
DBAF.DSNDBC.DGDB9998.A202A.I0001.A001 OK
GDB9998 TWK202A1 DGDB9998 A202A 2 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0002.A001
DBAF.DSNDBC.DGDB9998.A202A.I0002.A001 DATASET NOT FOUND
GDB9998 TWK202A1 DGDB9998 A202A 3 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0003.A001
DBAF.DSNDBC.DGDB9998.A202A.I0003.A001 DATASET NOT FOUND
GDB9998 TWK202A1 DGDB9998 A202A 4 I 1
DBAF.DSNDBC.DGDB9998.A202A.I0004.A001
DBAF.DSNDBC.DGDB9998.A202A.I0004.A001 DATASET NOT FOUND
$***out 20080818 15:35:58
BUA XBALD001IT002001 XBALD001 SIT00301 0 I 1
DAEG.DSNDBC.XBALD001.SIT00301.I0001.A0001
DAEG.DSNDBC.XBALD001.SIT00301.I0001.A0001 DATASET NOT FOUND
BUA XBALD001PM001002 XBALD001 SPM00201 0 I 1
DAEG.DSNDBC.XBALD001.SPM00201.I0001.A0001
DAEG.DSNDBC.XBALD001.SPM00201.I0001.A0001 DATASET NOT FOUND
BUA XBALD001PS001001 XBALD001 SPS00101 0 I 1
DAEG.DSNDBC.XBALD001.SPS00101.I0001.A0001
DAEG.DSNDBC.XBALD001.SPS00101.I0001.A0001 DATASET NOT FOUND
BUA XBALD001PS002001 XBALD001 SPS00401 0 I 1
DAEG.DSNDBC.XBALD001.SPS00401.I0001.A0001
DAEG.DSNDBC.XBALD001.SPS00401.I0001.A0001 DATASET NOT FOUND
BUA XBALM001IT002001 XBALM001 SIT002 0 I 1
DAEG.DSNDBC.XBALM001.SIT002.I0001.A0001
DAEG.DSNDBC.XBALM001.SIT002.I0001.A0001 DATASET NOT FOUND
BUA XBALM001PS002001 XBALM001 SPS003 0 I 1
DAEG.DSNDBC.XBALM001.SPS003.I0001.A0001
DAEG.DSNDBC.XBALM001.SPS003.I0001.A0001 DATASET NOT FOUND
BUA XBALZ001IT002001 XBALZ001 SIT002 0 I 1
DAEG.DSNDBC.XBALZ001.SIT002.I0001.A0001
DAEG.DSNDBC.XBALZ001.SIT002.I0001.A0001 DATASET NOT FOUND
BUA XBALZ001PS001001 XBALZ001 SPS001 0 I 1
DAEG.DSNDBC.XBALZ001.SPS001.I0001.A0001
DAEG.DSNDBC.XBALZ001.SPS001.I0001.A0001 DATASET NOT FOUND
BUA XBALZ001PS002001 XBALZ001 SPS003 0 I 1
DAEG.DSNDBC.XBALZ001.SPS003.I0001.A0001
DAEG.DSNDBC.XBALZ001.SPS003.I0001.A0001 DATASET NOT FOUND
$***out 20080818 15:35:11
BUA XBALD001IT002001 XBALD001 SIT00301 0 I 1
DAEG.DSNDBC.XBALD001.SIT00301.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBA
BUA XBALD001PM001002 XBALD001 SPM00201 0 I 1
DAEG.DSNDBC.XBALD001.SPM00201.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBA
BUA XBALD001PS001001 XBALD001 SPS00101 0 I 1
DAEG.DSNDBC.XBALD001.SPS00101.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBA
BUA XBALD001PS002001 XBALD001 SPS00401 0 I 1
DAEG.DSNDBC.XBALD001.SPS00401.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBA
BUA XBALM001IT002001 XBALM001 SIT002 0 I 1
DAEG.DSNDBC.XBALM001.SIT002.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBALM
BUA XBALM001PS002001 XBALM001 SPS003 0 I 1
DAEG.DSNDBC.XBALM001.SPS003.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBALM
BUA XBALZ001IT002001 XBALZ001 SIT002 0 I 1
DAEG.DSNDBC.XBALZ001.SIT002.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBALZ
BUA XBALZ001PS001001 XBALZ001 SPS001 0 I 1
DAEG.DSNDBC.XBALZ001.SPS001.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBALZ
BUA XBALZ001PS002001 XBALZ001 SPS003 0 I 1
DAEG.DSNDBC.XBALZ001.SPS003.I 1.A 1 INVALID DATASET NAME, 'DAEG.DSNDBC.XBALZ
$***out 20080818 15:34:58
BUA XBALD001IT002001 XBALD001 SIT00301 0 I 1
$***out 20080818 15:34:18
$***out 20080818 15:33:37
$***out 20080818 15:31:11
BUA XBALD001IT002001 XBALD001 SIT00301 0 I 1
DAEG.DSNDBC.XBALD001.SIT00301.I
BUA XBALD001PM001002 XBALD001 SPM00201 0 I 1
DAEG.DSNDBC.XBALD001.SPM00201.I
BUA XBALD001PS001001 XBALD001 SPS00101 0 I 1
DAEG.DSNDBC.XBALD001.SPS00101.I
BUA XBALD001PS002001 XBALD001 SPS00401 0 I 1
DAEG.DSNDBC.XBALD001.SPS00401.I
BUA XBALM001IT002001 XBALM001 SIT002 0 I 1
DAEG.DSNDBC.XBALM001.SIT002.I
BUA XBALM001PS002001 XBALM001 SPS003 0 I 1
DAEG.DSNDBC.XBALM001.SPS003.I
BUA XBALZ001IT002001 XBALZ001 SIT002 0 I 1
DAEG.DSNDBC.XBALZ001.SIT002.I
BUA XBALZ001PS001001 XBALZ001 SPS001 0 I 1
DAEG.DSNDBC.XBALZ001.SPS001.I
BUA XBALZ001PS002001 XBALZ001 SPS003 0 I 1
DAEG.DSNDBC.XBALZ001.SPS003.I
$***out 20080818 15:31:02
$***out 20080818 15:30:54
$***out 20080818 15:30:17
$***out 20080818 15:30:04
$***out 20080818 15:29:49
$***out 20080818 15:23:36
BUA XBALD001IT002001 XBALD001 SIT00301 0 I
BUA XBALD001PM001002 XBALD001 SPM00201 0 I
BUA XBALD001PS001001 XBALD001 SPS00101 0 I
BUA XBALD001PS002001 XBALD001 SPS00401 0 I
BUA XBALM001IT002001 XBALM001 SIT002 0 I
BUA XBALM001PS002001 XBALM001 SPS003 0 I
BUA XBALZ001IT002001 XBALZ001 SIT002 0 I
BUA XBALZ001PS001001 XBALZ001 SPS001 0 I
BUA XBALZ001PS002001 XBALZ001 SPS003 0 I
$***out 20080818 15:22:57
$***out 20080818 15:22:44
$***out 20080818 15:17:03
CR TB DB TS I
BUA XBALD001IT002001 XBALD001 SIT00301 I 0
BUA XBALD001PM001002 XBALD001 SPM00201 I 0
BUA XBALD001PS001001 XBALD001 SPS00101 I 0
BUA XBALD001PS002001 XBALD001 SPS00401 I 0
BUA XBALM001IT002001 XBALM001 SIT002 I 0
BUA XBALM001PS002001 XBALM001 SPS003 I 0
BUA XBALZ001IT002001 XBALZ001 SIT002 I 0
BUA XBALZ001PS001001 XBALZ001 SPS001 I 0
BUA XBALZ001PS002001 XBALZ001 SPS003 I 0
$***out 20080818 15:16:42
$***out 20080818 15:16:19
$***out 20080818 15:15:59
$***out 20080818 15:15:21