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



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

Follow-Ups:
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.