RE: Use SQL instead of RPG?

CREATE TABLE QTEMP/STEEMA
(PRODA CHAR (1 ), 
 AMTA DEC (5 , 0),
 PRODB CHAR (1 ), PRODC CHAR (1 )) 
INSERT INTO QTEMP/STEEMA VALUES('A', 1, 'B', 'C')
INSERT INTO QTEMP/STEEMA VALUES('D', 2, 'E', 'F')
INSERT INTO QTEMP/STEEMA VALUES('A', 3, 'D', 'C')

select proda as prod, amta from qtemp/steema 
union select prodb as prod, amta from qtemp/steema
union select prodc as prod, amta from qtemp/steema
PROD    AMTA
 A         1
 D         2
 A         3
 B         1
 E         2
 D         3
 C         1
 F         2
 C         3

with t1 as( 
select proda as prod, amta from qtemp/steema 
union select prodb as prod, amta from qtemp/steema 
union select prodc as prod, amta from qtemp/steema)
select prod, sum(amta) as total from t1 
group by prod 
order by prod 
....+....1....+....2....+....3....+....4....+..
PROD                                      TOTAL
 A                                            4
 B                                            1
 C                                            4
 D                                            5
 E                                            2
 F                                            2

Rob Berendt