Re: URL in RPG

[Jerry Adams <jerry@xxxxxxxxxxxxxxx>]

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