Insert records using SQL

Hi,
I need some help with SQL statements in RPG. I have

File A with fields FA1, FA2, FA3

File B with fields FB1, FB2, FB3, FB4, FB5, FB6



If there are no records in File B where FA1=FB1 and FA2=FB2 and FA3=FB3
then I want to insert records into File B with FB1=FA1, FB2=FA2, FB3=FA3
and FB4, FB5, FB6 as DISTINCT values already existing in File B, where
FB1=FA1



For example,

File A has following records:

CL1, CAR1, ACC1

CL1, CAR1, ACC2

CL1, CAR1, ACC3

CL1, CAR2, ACC4

CL1, CAR2, ACC5

CL2, CAR11, ACC11

CL2, CAR12, ACC12



File B has following records:

CL1, CAR1, ACC1, PRD1, QTY1, DS1

CL1, CAR1, ACC1, PRD2, QTY1, DS1

CL1, CAR1, ACC1, PRD2, QTY2, DS2

CL1, CAR1, ACC2, PRD1, QTY1, DS1

CL1, CAR1, ACC3, PRD1, QTY1, DS1

CL1, CAR1, ACC3, PRD2, QTY2, DS2

CL1, CAR2, ACC4, PRD3, QTY3, DS3

CL2, CAR11, ACC11, PRD11, QTY11, DS11

CL2, CAR11, ACC11, PRD13, QTY13, DS13



Since there are no records in File B for CL1:CAR2:ACC5, and
CL2:CAR12:ACC12, I want to insert following records in File B:

CL1, CAR2, ACC5, PRD1, QTY1, DS1

CL1, CAR2, ACC5, PRD2, QTY1, DS1

CL1, CAR2, ACC5, PRD2, QTY2, DS2

CL1, CAR2, ACC5, PRD3, QTY3, DS3

CL2, CAR12, ACC12, PRD11, QTY11, DS11

CL2, CAR12, ACC12, PRD13, QTY13, DS13



Can this be done in a* single SQL statement*?



If not, I can have a RPG routine:

Setll *loval FileA;

Read FileA;

DoW not %eof(FileA);

Setll (FA1:FA2:FA3) FileB;

If not %equal;

*Exec sql to insert records; *

Endif;

Read FileA;

EndDo;


Can someone help with the SQL statements? I know that I can create an index
on File B with FB1, FB, FB5, FB6 and read the records to get the distinct
values and write the records using regular RPG, but I believe SQL will do
the job more efficiently.


TIA