× 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.



Well, then, I'm missing something. The rundll32 program is on my W2K pc so that ain't it.


        * Jerry C. Adams
*IBM System i5/iSeries Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



MWHopkins@xxxxxxxxxxxxxxx wrote:
I just created the command and CLP program as listed below. When I entered 'http://www.midrange.com' into the command it brought it up in my browser.

Matt Hopkins Sr. Programmer/Analyst Web: www.pdpgroupinc.com Email: MWHopkins@xxxxxxxxxxxxxxx Office: 410-584-0330 Fax: 410-584-0336




Jerry Adams <jerry@xxxxxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/12/2007 01:49 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG Midrange <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

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.