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

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].