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