Kbase P14034: How to do a dynamic inner join in 4GL.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
11/25/2003 |
|
Status: Unverified
FACT(s) (Environment):
Windows
FACT(s) (Environment):
Progress 9.x
SYMPTOM(s):
How to do a dynamic inner join in 4GL.
FIX:
DEFINE VARIABLE qh AS WIDGET-HANDLE.
DEFINE VAR maintable AS CHAR.
DEFINE VAR Subtable AS CHAR.
DEFINE VAR Currentrep AS CHAR init "BBB".
ASSIGN Maintable = "Salesrep"
subtable = "Customer".
CREATE QUERY qh.
qh:SET-BUFFERS(BUFFER salesrep:HANDLE, BUFFER customer:HANDLE).
qh:QUERY-PREPARE("FOR EACH " + maintable + " , each " + Subtable + " of " + Maintable + " WHERE " + maintable + ".Sales-Rep = '" + currentrep + "'").
qh:QUERY-OPEN.
REPEAT:
qh:GET-NEXT().
IF qh:QUERY-OFF-END THEN
LEAVE.
display name.
END.
qh:QUERY-CLOSE().
DELETE OBJECT qh.