select 'rz1dd', count(*), left(subsystem_id, 3) 00010000
, min(subsystem_id), max(subsystem_id) 00020001
, min(group_name), max(group_name) 00030001
, min(timestamp), max(timestamp) 00040000
from rz1dd.TACCT_GENERAL 00050000
group by left(subsystem_id, 3) 00060000
order by 3 00070000
with ur 00080000
; 00090000
$#@ 00100002
$<=[ 00110002
R2DD 00120002
RR2DD 00130002
RR4DD 00140002
RZ1DD 00150002
RZ2DD 00160002
RZ4DD 00170002
Z1DD 00180002
$] $@for c $@=[ 00190002
$=c=-strip($c) 00200002
select 00210004
'$c' || right(' ' || strip(char(count(*))), 10) 00220003
|| ' ' || left(subsystem_id, 3) 00230003
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 00240003
|| ' ' || min(group_name) || ' ' || max(group_name) 00250003
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 00260003
from $c.TACCT_GENERAL 00270002
group by left(subsystem_id, 3) 00280002
order by left(subsystem_id, 3) 00290003
with ur 00300002
; 00310002
$] 00320002
$#out 20120123 21:27:20 00330004
select 00340004
'R2DD' || right(' ' || strip(char(count(*))), 10) 00350004
|| ' ' || left(subsystem_id, 3) 00360004
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 00370004
|| ' ' || min(group_name) || ' ' || max(group_name) 00380004
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 00390004
from R2DD.TACCT_GENERAL 00400004
group by left(subsystem_id, 3) 00410004
order by left(subsystem_id, 3) 00420004
with ur 00430004
; 00440004
select 00450004
'RR2DD' || right(' ' || strip(char(count(*))), 10) 00460004
|| ' ' || left(subsystem_id, 3) 00470004
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 00480004
|| ' ' || min(group_name) || ' ' || max(group_name) 00490004
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 00500004
from RR2DD.TACCT_GENERAL 00510004
group by left(subsystem_id, 3) 00520004
order by left(subsystem_id, 3) 00530004
with ur 00540004
; 00550004
select 00560004
'RR4DD' || right(' ' || strip(char(count(*))), 10) 00570004
|| ' ' || left(subsystem_id, 3) 00580004
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 00590004
|| ' ' || min(group_name) || ' ' || max(group_name) 00600004
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 00610004
from RR4DD.TACCT_GENERAL 00620004
group by left(subsystem_id, 3) 00630004
order by left(subsystem_id, 3) 00640004
with ur 00650004
; 00660004
select 00670004
'RZ1DD' || right(' ' || strip(char(count(*))), 10) 00680004
|| ' ' || left(subsystem_id, 3) 00690004
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 00700004
|| ' ' || min(group_name) || ' ' || max(group_name) 00710004
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 00720004
from RZ1DD.TACCT_GENERAL 00730004
group by left(subsystem_id, 3) 00740004
order by left(subsystem_id, 3) 00750004
with ur 00760004
; 00770004
select 00780004
'RZ2DD' || right(' ' || strip(char(count(*))), 10) 00790004
|| ' ' || left(subsystem_id, 3) 00800004
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 00810004
|| ' ' || min(group_name) || ' ' || max(group_name) 00820004
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 00830004
from RZ2DD.TACCT_GENERAL 00840004
group by left(subsystem_id, 3) 00850004
order by left(subsystem_id, 3) 00860004
with ur 00870004
; 00880004
select 00890004
'RZ4DD' || right(' ' || strip(char(count(*))), 10) 00900004
|| ' ' || left(subsystem_id, 3) 00910004
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 00920004
|| ' ' || min(group_name) || ' ' || max(group_name) 00930004
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 00940004
from RZ4DD.TACCT_GENERAL 00950004
group by left(subsystem_id, 3) 00960004
order by left(subsystem_id, 3) 00970004
with ur 00980004
; 00990004
select 01000004
'Z1DD' || right(' ' || strip(char(count(*))), 10) 01010004
|| ' ' || left(subsystem_id, 3) 01020004
|| ' ' || min(subsystem_id) || ' ' || max(subsystem_id) 01030004
|| ' ' || min(group_name) || ' ' || max(group_name) 01040004
|| ' ' || char(min(timestamp)) || ' ' || char(max(timestamp)) 01050004
from Z1DD.TACCT_GENERAL 01060004
group by left(subsystem_id, 3) 01070004
order by left(subsystem_id, 3) 01080004
with ur 01090004
; 01100004
$#out 20120123 21:21:06 01110003