/* 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.