fill.p
| 1 |
DEFINE TEMP-TABLE ttd NO-UNDO |
|---|---|
| 2 |
FIELD cE AS CHARACTER |
| 3 |
FIELD cM AS CHARACTER |
| 4 |
FIELD val AS CHARACTER |
| 5 |
INDEX idxE AS UNIQUE cE. |
| 6 |
|
| 7 |
DEFINE DATASET ds FOR ttd. |
| 8 |
DEFINE QUERY qtt FOR ttsrc. |
| 9 |
DEFINE DATA-SOURCE srctt FOR QUERY qtt ttsrc . |
| 10 |
BUFFER ttd:ATTACH-DATA-SOURCE(DATA-SOURCE srctt:HANDLE). |
| 11 |
QUERY qtt:QUERY-PREPARE("FOR EACH ttsrc where ttsrc.cE = 'e1'").
|
| 12 |
|
| 13 |
DATASET ds:FILL() NO-ERROR. |
| 14 |
BUFFER ttsrc:DETACH-DATA-SOURCE(). |
| 15 |
|
| 16 |
FOR EACH ttd: |
| 17 |
MESSAGE ttd.cE ttd.cM ttd.val. |
| 18 |
END. |
| 19 |
|