Page History
...
In this example, clicking the button will close the page. The CloseQuery event will fire to ask for confirmation.
Begin_Com Role(*EXTENDS #PRIM_WEB)
Define_Com Class(#PRIM_PHBN) Name(#Close) Caption('Close') Displayposition(1) Left(16) Parent(#COM_OWNER) Tabposition(1) Top(14)
Evtroutine Handling(#Close.Click)
#sys_web.Close
Endroutine
Evtroutine Handling(#sys_web.CloseQuery) Querystring(#QueryString)
#QueryString := "Closing the page will end the LANSA session"
Endroutine
End_Com
See also
...