Joining files using SQLRPGLE

If the join operation will only return a single row, then the SELECT INTO statement can be used. Here's an example:

SELECT lastname, workdept, p.projname, p.projno, actno 
INTO :namevar, :workvar, :pnamevar, :pnamevar, :pactvar 
FROM employee, project p , projact a   
WHERE empno = respemp AND p.projno=a.projno AND empno = '000020'

If the join will return multiple rows in the result, then an SQL cursor should be used.

DECLARE c1 CURSOR FOR 
SELECT lastname, workdept, p.projname, p.projno, actno "project action code"   
FROM employee, project p , projact a   
WHERE empno = respemp AND p.projno=a.projno  AND empno = '000020' 
... 
OPEN c1 

/* Use RPG looping construct to fetch until no more rows or error */ 
FETCH NEXT FROM c1 
   INTO :namevar, :workvar, :pnamevar, :pnamevar, :pactvar 
... 
CLOSE c1