Kbase P14256: Having the handle of a temp-table, how to create a record in
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
22/01/2003 |
|
Status: Unverified
GOAL:
Having the handle of a temp-table, how to create a record into it?
FACT(s) (Environment):
Progress 9.1x
FIX:
The following sample code will use the handle of the temp-table and the fields value to create records into temp-table
DEF TEMP-TABLE xyz
FIELD X AS CHAR
FIELD Y AS CHAR
FIELD z AS CHAR
.
DEF VAR vh AS HANDLE.
vh = BUFFER xyz:HANDLE.
RUN createRecord( vh, '1', '11', '111' ).
RUN createRecord( vh, '2', '22', '222' ).
RUN createRecord( vh, '3', '33', '333' ).
FOR EACH xyz NO-LOCK:
DISPLAY xyz.
END.
PROCEDURE createRecord :
DEFINE INPUT PARAMETER hTemp AS HANDLE.
DEFINE INPUT PARAM px AS CHAR.
DEFINE INPUT PARAM py AS CHAR.
DEFINE INPUT PARAM pz AS CHAR.
DEF VAR hFld AS HANDLE.
hTemp:BUFFER-CREATE().
hFld = hTemp:BUFFER-FIELD( 'x' ).
hFld:BUFFER-VALUE = px.
hFld = hTemp:BUFFER-FIELD( 'y' ).
hFld:BUFFER-VALUE = py.
hFld = hTemp:BUFFER-FIELD( 'z' ).
hFld:BUFFER-VALUE = pz.
END PROCEDURE.