Re: STRPCCMD command to open a URL from Client Access Session

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

I've tried doing it the way Booth shows (with the "start" command), and 
I've also tried doing it the way Brian May/Nick Radich shows (with 
FileProtocolHandler).

I'll tell you this:  Brian/Nick's solution (FilePrototcolHandler) is 
MUCH MUCH nicer.  It doesn't create the ugly MS-DOS window, it has much 
fewer problems with special characters in filenames and URIs.  It's just 
a much better solution.

My 2 cents.


Booth Martin wrote:
> Here is a way that was recommended to me, which I've used:
>
> http://www.martinvt.com/Code_Samples/PC_Commands/pc_commands.html
>
> Basically,  the significant code snippet  is:
>
> **      * Start PC Organizer if not started.
>      C                   eval      wCmdString = 'STRPCO PCTA(*NO)'
>      C                   callp(e)  pQCmdExc(wCmdString:
>      C                              %len(%trim(wCmdString)) )
> **
>
>            * Establish the command to perform.
>
> **     C                   select
>      C                   when      PB1 = 1
>      C                   eval      wCommand =
>      C                               'start http://www.martinvt.com'
>      C                   when      PB1 = 2
>      C                   eval      wCommand =
>      C                               'notepad.exe'
>      C                   when      PB1 = 3
>      C                   eval      wCommand =
>      C                               'excel.exe'
> ...
> ****     C                   eval      wCmdString = 'strpccmd pccmd('''
>      C                               + %trim(wCommand)
>      C                               + ''') pause(*NO)'
>      C                   callp     pQCmdExc(wCmdString:
>      C                              %len(%trim(wCmdString)) )
> **
>
>
>
> Nick_Radich@xxxxxxxxxxxxxx wrote:
> > Hi Bob,
> >
> > Here is what I have on my system to go to websites.
> >
> > I have it wrapped into a Command I call WEB, that prompts for a website.
> >
> >
> > PGM        PARM(&SITE) 
> >  
> > DCL        VAR(&CMD) TYPE(*CHAR) LEN(120) 
> > DCL        VAR(&SITE) TYPE(*CHAR) LEN(30) 
> >  
> > CHGVAR     VAR(&CMD) VALUE('rundll32.exe + 
> >              url.dll,FileProtocolHandler ' *BCAT + 
> >              'http://www.' *CAT &SITE *TCAT '.com') 
> >  
> > STRPCO     PCTA(*NO) 
> > MONMSG     MSGID(IWS4010) 
> >  
> > STRPCCMD   PCCMD(&CMD) PAUSE(*NO) 
> >  
> > ENDPGM 
> >
> >
> >
> >
> >
> >
> >
> > Thanx,
> >
> > Nick
> >
> >
> >
> > Nick Radich
> > Sr. Programmer/Analyst
> > EPC Molding, Inc.
> > Direct  (320) 679-6683
> > Toll free  (800) 388-2155  ext. 6683
> > Fax  (320) 679-4516
> > nick_radich@xxxxxxxxxxxxxx
> >
> >
> >
> > BMay@xxxxxxxxx 
> > Sent by: midrange-l-bounces@xxxxxxxxxxxx
> > 08/27/2009 11:08 AM
> > Please respond to
> > Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> >
> >
> > To
> > Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> > cc
> >
> > Subject
> > Re: STRPCCMD command to open a URL from Client Access Session
> >
> >
> >
> >
> >
> >
> > Try using 
> >
> > rundll32 url.dll,FileProtocolHandler 
> >
> > instead of 
> >
> > "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
> >
> > This will open whatever their default browser is no matter where it is 
> > installed.  It can save you headaches later.
> >
> > HTH,
> >
> > Brian May
> > Project Lead
> > Management Information Systems
> > Garan, Incorporated
> > Starkville, Mississippi
> >
> > Young i Professionals
> > http://www.youngiprofessionals.com
> >
> >
> >
> > "Robert Ostrowski" <Bob.Ostrowski@xxxxxxxxxxxxxxxx> 
> > Sent by: midrange-l-bounces@xxxxxxxxxxxx
> > 08/27/2009 10:38 AM
> > Please respond to
> > Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> >
> >
> > To
> > <midrange-L@xxxxxxxxxxxx>
> > cc
> >
> > Subject
> > STRPCCMD command to open a URL from Client Access Session
> >
> >
> >
> >
> >
> >
> > Can anybody tell me why I can't get this to work using a variable for
> > the URL?  Instead of going to the web site in the &URL variable,
> > the browser opens up to whatever the home page is set to.  If I hard
> > code the HTTP://...... It will work.
> >  
> > DCL VAR(&URL) TYPE(*CHAR) LEN(60) 
> >  
> > MONMSG   IWS4010 
> > CHGVAR VAR(&URL) VALUE('HTTP://WWW.GOOGLE.COM') 
> > STRPCO     PCTA(*NO) 
> >  
> > STRPCCMD PCCMD('"C:\Program Files\Internet Explorer\IEXPLORE.EXE" +
> > &URL')
> >  
> >  
> >  
> >  
> >  
> >  
> >  
> >  
> >  
> > Bob Ostrowski | Senior Programmer/Analyst
> > TRAINOR GLASS COMPANY | National - IT
> > 11901 S. Austin Ave. | Alsip, IL 60803
> > T 708.293.4218 | F 708.293.6218 
> > bob.ostrowski@xxxxxxxxxxxxxxxx
> > <mailto:firstname.lastname@xxxxxxxxxxxxxxxx>  | www.trainorglass.com
> > <http://www.trainorglass.com> 
> >  
> > Project Management On-Line <http://webapps.trainorglass.com/>  | View
> > your project's progress and communicate with your project manager
> >  
> >