zOs/SQL/PLANTBCN

//A540769Z JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,                                    00030000
//         SCHENV=DB2,CLASS=M1                                          00040000
//JOBLIB   DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//             PARM='%WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
$#@
$=cr=CMNBATCH
call sqlConnect DP4G
$<>
$<=[
select strip(creator) || '.' || strip(name) TB
    from sysibm.sysTables
    where type = 'T' and creator = '$cr'
        and (name like 'PLAN%' or name like 'DSN%')
    order by 1
$] call sqlSel
$|
$forWith i $@[
cn = sql2One('select count(*) from' $TB)
$$- right(cn, 12) $TB
$]