Pass Temp Table As A Handle In Procedure

Osborne

Active Member
You can pass a handle to the temp-table without having to define the temp-table in the called procedure, and to access the data you use the same methods as used for dynamic buffers:
Code:
/* Prog1 */
RUN Prog2 (INPUT TEMP-TABLE ttCustomer:HANDLE).

/* Prog2 */
DEFINE INPUT PARAMETER phTTCustomers AS HANDLE NO-UNDO.

DEFINE VARIABLE hTTCustomers AS HANDLE NO-UNDO.

hTTCustomers = phTTCustomers:DEFAULT-BUFFER-HANDLE.
hTTCustomers:FIND-FIRST() NO-ERROR.
MESSAGE hTTCustomers:AVAILABLE VIEW-AS ALERT-BOX.
 
Top