The Web Application object allows access to the full URL and URL Parameters as name and value pairs. It also allows for monitoring of changes to the URL.
A Visual LANSA web URL is formatted like this:
http://\[domain\]:\[port\]/\[configuration\]/\[partition\]/\[webpage\].html?\[parm1\]=\[value\]&\[parm2=value\]
The URL for the current page is published as the URL property of SYS_WEB.
#Result := #sys_web.URL
This could return something like:
http://localhost:2014/tipvcs/ide/xvlwebtst.html?lang=eng&developer=yes&debug=yes,lansa14:51234
To process any parameters associated with the URL requires processing name/value pairs. The query string, that is any portion of the URL following the "?" (which by the way is optional), is parsed and made available as a collection of items, each with Name and Value properties. Each Name and Value is separated by a "&". If the query string is corrupt in any way, only those parameters before the corruption will be available.
Evtroutine Handling(#sys_web.urlchanged)
For Each(#Parameter) In(#sys_web.UrlParameters)
Continue If(#Parameter.Name.UpperCase <> Trace)
Continue If(#Parameter.Value.uppercase <> True)
* Set this to be the trace handler for the application
#Sys_appln.TraceHandler <= #Com_owner
Leave
Endfor
Endroutine
[<span style="color: #0000ee"><span style="text-decoration: underline; ">Show Contents List</span></span>|../../index.htm#lansa/vlwebeng01_0290.htm]