zOs/REXX/WSHTUT39

$#@
$$ --- sql ---
call sqlConnect 'rzz/de0g'
$= nL = 'SYSPACK%'
$= r3 = 'AGE' ,'DEP', 'TMT'
$<>
$<=[
    select creator cr, name tb, type
        from sysibm.sysTables
        where creator = 'SYSIBM' and name like $nL
             and right(strip(name), 3) in ($r3)
    ;
    select current timestamp now, current server from sysibm.sysDummy1
$]
call sqlStmts
$<>
$<=[
    select creator cr, name tb
        from sysibm.sysTables
        where creator = 'SYSIBM' and name like 'SYSPACK%'
             and type = 'T'
             and right(strip(name), 3) in ('AGE' ,'DEP', 'TMT')
$]
$@. sqlRdr()
$|
$=p =- '         '
$forWith $@=[
$p select count(*), '$TB' table from $CR.$TB
$=p =- 'union all'
$]
$| call sqlStmts
$#out                                              20161127 12:35:55
--- sql ---
CR     TB               T
SYSIBM SYSPACKAGE       T
SYSIBM SYSPACKDEP       T
SYSIBM SYSPACKSTMT      T
SYSIBM SYSPACKSTMT_STMT X
4 rows fetched: select creator cr, name tb, type from sysibm.sysTables whe...
NOW                        COL2
2016-11-27-12.35.56.589742 CHROI00ZDE0G
1 rows fetched: select current timestamp now, current server from sysibm.s...
   COL1 TABLE
 266692 SYSPACKAGE
5921451 SYSPACKDEP
6450368 SYSPACKSTMT
3 rows fetched: select count(*), 'SYSPACKAGE' table from SYSIBM .SYSPACKAG...
$#out                                              20161127 12:34:38