Buffer confusion

Posted by James Palmer on 22-Sep-2015 04:43

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.




All Replies

Posted by James Palmer on 22-Sep-2015 04:45

This is 11.5.1 by the way.

Posted by rulesix on 22-Sep-2015 05:00

Try this James

RUN MyIP

 (INPUT BUFFER tt-Menu:HANDLE,

  INPUT BUFFER lb-Menu:HANDLE).

Posted by James Palmer on 22-Sep-2015 05:03

Duuh of course. Thanks for that.

Posted by rulesix on 22-Sep-2015 05:06

No worries, it's still early in the day ;)

This thread is closed