EXPERT RESPONSE
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
|
