Forum Post: Accessing temp-tables in a dataset?

[romelwell]

SETUP: /*** BEGIN DEFINITIONS ***/ &IF DEFINED (ttEntity_I) = 0 &THEN DEFINE TEMP-TABLE ttEntity NO-UNDO FIELD aField AS CHARACTER FIELD bField AS INTEGER. &GLOBAL-DEFINE ttEntity_I &ENDIF &IF DEFINED (dsEntity_I) = 0 &THEN {ttEntity.i} DEFINE DATASET dsEntity FOR ttEntity. &GLOBAL-DEFINE dsEntity_I &ENDIF /*** END DEFINITIONS ***/ /*** Code snippet from an instance of the class aClass ***/ DEF VAR hdlEntity AS HANDLE. DEF VAR hdlBuffer AS HANDLE. hdlEntity = DATASET dsEntity:HANDLE. DoWork(OUTPUT hdlEntity). /* This method call loads data into the HANDLE OUTPUT parameter, hdlEntity */ hdlBuffer = hdlEntity:GET-BUFFER-HANDLE(TEMP-TABLE ttEntity:NAME). /* OR IF YOU PREFER */ hdlBuffer = hdlEntity:GET-BUFFER-HANDLE(1). /* What ways are there to reference the fields in the temp-table ttEntity at this point? */ /* I know the following allows me to access records in the temp-table using a QUERY object: */ IF VALID-HANDLE(hdlBuffer) THEN DO: CREATE QUERY hQry. hQry:ADD-BUFFER(hdlBuffer). hQry:QUERY-PREPARE ("FOR EACH " + hdlBuffer:NAME). hQry:QUERY-OPEN(). hQry:GET-FIRST(). DO WHILE NOT hQry:QUERY-OFF-END: MESSAGE hdlBuffer:GET-BUFFER-FIELD('aField'):BUFFER-VALUE() VIEW-AS ALERT-BOX. hQry:GET-NEXT(). END. DELETE OBJECT hQry. END. QUESTION: Is it possible to reference the temp-table directly, using the code snippets above, in a manner such as: FIND FIRST ttEntity. IF AVAIL ttEntity THEN MESSAGE ttEntity.aField VIEW-AS ALERT-BOX.

Continue reading...