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

[Scott Johnson <sjohnson@xxxxxxxxxxxxxxx>]

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;