× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Jerry,

This works on my machine:

strpco     /* Run once */
MONMSG MSGID(IWS4010)  /* We fail if we run STRPCO twice! */
strpccmd pccmd('rundll32 url,FileProtocolHandler http://www.rpgworld.com')

Bet you blow up on the STRPCO.

-Bob Cozzi
www.i5PodCast.com
Ask your manager to watch i5 TV



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Jerry Adams
Sent: Monday, February 12, 2007 12:50 PM
To: RPG Midrange
Subject: URL in RPG

There was a thread last week regarding how to pull up a web site from 
within an RPG program.  The basic process was summarized as:


CMD        PROMPT('Launch Browser')

PARM       KWD(URL) TYPE(*CHAR) LEN(90) MIN(1) +
           EXPR(*YES) PROMPT('URL to launch')


PGM  PARM(&URL)

     DCL VAR(&CMD) TYPE(*CHAR) LEN(123)
     DCL VAR(&URL) TYPE(*CHAR) LEN(90)

     STRPCO PCTA(*NO)
     MONMSG IWS4010

     CHGVAR VAR(&CMD) +
     VALUE('rundll32 url,FileProtocolHandler ' *BCAT &URL)

     STRPCCMD PCCMD(&CMD) PAUSE(*NO)

ENDPGM


However, it keeps barfing with a Windows dialog box titled "RUNDLL" with 
the message: "Error in URL  Missing entry: FILEPROTOCOL HANDLER".I ran 
debug over it and the &URL field is initialized.


I, also, ran a sample program that Scott (I think) put up to test 
whether or not one had the necessary tools on the workstation:


PGM
         STRPCO
         MONMSG IWS4010
         STRPCCMD PCCMD('start http://www.midrange.com') +
                  PAUSE(*NO)
    ENDPGM


This worked fine. 


This seemed like such a neat idea, when I read it.  Any idea what I'm 
doing wrong?


Thanks.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.