Re: Pop up a .jsp file from a CL or a RPG program.

["Jake M" <jakeroc@xxxxxxxxx>]

Scott,
I appreciate your help. The function key technique worked perfectly for me.

Thanks again,

cheers.

Jake.

On 11/9/06, Scott Johnson <sjohnson@xxxxxxxxxxxxxxx> wrote:
> Showing the URL on the screen is an option, but what happens when the URL
> is longer than 80 characters??
>
> My solution was to have a function key open the webpage. Function key does
> the below subr.  The GenWebPagManWeb procedure generates a simple webpage
> on the fly in the IFS.  The webpage then uses javascript libraries that
> have all the important logic.  Since your page already exist, you would
> not
> need the generate parts.
>
> //==============================================================*
> //  Open Web Page                                               *
> //--------------------------------------------------------------*
>    BegSr OpnWebPag;
>
>      GenWebPagManWeb(Some Parms: wkWbPgFn);
>
>      If wkWbPgFn <> '';
>        // Start Client Access/400 Organizer
>        rtnI = SysCmd('STRPCO');
>
>        // Open the Folder in Windows Wxplorer
>
>        wkDir = '\\AS400\IFSDir\' + %TrimR(wkWbPgFn);
>        rtnI = SysCmd('STRPCCMD PCCMD(' +TICK+QUOTE+
>                      'C:\Program Files\Internet Explorer\' +
>                      'iexplore.exe' +QUOTE+ ' ' +QUOTE+
>                      %TrimR(DblTcks(wkDir)) +QUOTE+TICK+
>                      ') PAUSE(*NO)');
>      EndIf;
>    EndSr;
> --
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/web400
> or email: WEB400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.