I'm probably being completely dense - not had enough coffee yet, but come across something I can't work out how to get around. How can I get it to maintain both static buffer values in the IP?
DEFINE TEMP-TABLE tt-Menu NO-UNDO FIELD MenuName AS CHARACTER. DEFINE BUFFER lb-Menu FOR tt-Menu. CREATE tt-Menu. tt-Menu.MenuName = "PRIMARY". CREATE lb-Menu. lb-Menu.MenuName = "BUFFER". MESSAGE tt-Menu.MenuName lb-Menu.MenuName VIEW-AS ALERT-BOX. RUN MyIP (INPUT TEMP-TABLE tt-Menu:HANDLE:default-buffer-handle, INPUT TEMP-TABLE lb-Menu:HANDLE:default-buffer-handle). /* ********************** Internal Procedures *********************** */ PROCEDURE MyIP: /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER ip-PrimaryHandle AS HANDLE NO-UNDO. DEFINE INPUT PARAMETER ip-BufferHandle AS HANDLE NO-UNDO. MESSAGE ip-PrimaryHandle::MenuName ip-BufferHandle::MenuName VIEW-AS ALERT-BOX. END PROCEDURE.
This is 11.5.1 by the way.
Try this James
RUN MyIP
(INPUT BUFFER tt-Menu:HANDLE,
INPUT BUFFER lb-Menu:HANDLE).
Duuh of course. Thanks for that.
No worries, it's still early in the day ;)