zOs/SQL/CATCOPEW

    call SqlConnect dbaf
    $= dbLike = 'MF01%'
    $£ timing() 'dbLike' $dbLike
$;
$<<[eof
  select c.dbName, c.tsName, partition,
             c.dsNum, timestamp, icType, sType
        from sysibm.syscopy c, sysibm.systablepart p
        where c.dbName = p.dbName and c.tsName = p.tsname
            and c.dsNum in (0, p.partition)
            and p.dbName like $dbLike
    order by 1, 2, 3, 5 desc
eof call sql 4
$!  old='';state='F';cCo=0;cPa=0
    $@for v
    $@{ act = ${v.DBNAME}'.'${v.TSNAME}'.'${v.PARTITION}
       cCo = cCo+1
 $**    $$ read $(act$) ${v.ICTYPE} ${v.TIMESTAMP}
       if act ^== old then do
           if pos(state, 'FTZ') < 1 then
               $£ cCo cPa old state 'chain' chain
           chain = ${v.ICTYPE}
           state = ${v.ICTYPE}
           old = act
           cPa = cPa + 1
           end
       else do
           chain = chain ${v.ICTYPE}
           if pos(state, 'FSWY') < 1 then
               state = ${v.ICTYPE}
           end
    $}
    if pos(state, 'FTZ') < 1 then
        $£ cCo cPa old state chain
    $£ 'total' cCo 'sysCopies,' cPa 'partitions'
    $£ timing() 'dbLike' $dbLike
$;
    call SqlDisconnect
$***out************20080307 13:35:21************************************
13:35:21 0    101.62 dbLike 'MF01%'
total 1715 sysCopies, 568 partitions
13:35:26 0    104.91 dbLike 'MF01%'
$***out************20080307 13:34:58************************************
13:34:58 0    101.47 dbLike 'DF5%'
22 6 DA540769.A418A.0 S chain S S S
total 60 sysCopies, 18 partitions
13:34:59 0    101.53 dbLike 'DF5%'
$***out************20080307 13:34:05************************************
13:34:05 0    101.27 dbLike 'DF5%'
$***out************20080307 13:33:17************************************
13:33:17 0    101.01 dbLike 'DF5%'
$***out************20080307 13:30:44************************************
13:30:45 0    100.66 dbLike 'DF5%'
$***out************20080307 13:29:50************************************
13:29:51 0    100.53 dbLike 'DF5%'
$***out************20071228 13:28:06************************************
13:28:06 0     17.11 dbLike 'DF5%'
24 2 DA540769.A418A.0 S chain S S S
total 62 sysCopies, 14 partitions
13:28:06 0     17.17 dbLike 'DF5%'
$***out************20071228 13:27:04************************************
$***out************20071228 13:26:27************************************
$***out************20071228 13:22:09************************************
$***out************20071228 13:20:17************************************
$***out************20071228 13:19:06************************************
$***out************20071228 13:15:09************************************
$***out************20071228 13:14:49************************************
$***out************20071228 12:37:15************************************
$***out************20071228 12:23:39************************************
$***out************20071228 12:22:17************************************
$***out************20071228 12:21:40************************************
12:21:40 0     14.52 dbLike 'DF5%'
24 2 DA540769.A418A.0 S chain S S S
total 62 sysCopies, 14 partitions
12:21:40 0     14.57 dbLike 'DF5%'