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




It's still there. Looks like he has written some code and uses a script
redirect in apache to accommodate the 123 limit. thanks.

***
Regards,
Joe W Holt
Sr Programmer/Developer
Jack Onofrio Dog Shows, LLC
405.427.8181



From: "Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>
To: "Web Enabling the IBM i (AS/400 and iSeries)"
<web400@xxxxxxxxxxxx>
Date: 07/16/2015 03:29 PM
Subject: Re: [WEB400] 5250 screen calls to browser
Sent by: "WEB400" <web400-bounces@xxxxxxxxxxxx>



Joe,
Take a look at Scott klements' article on 'Use CGI Redirects to launch
long URLS'
I think it is on IPRODEVELOPER.com if you can still get to it.

Mike

-----Original Message-----
From: WEB400 [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Henrik
Rützou
Sent: Thursday, July 16, 2015 3:51 PM
To: Web Enabling the IBM i (AS/400 and iSeries)
Subject: Re: [WEB400] 5250 screen calls to browser

Kelly

PCCMD has a max of 123 char



On Thu, Jul 16, 2015 at 9:45 PM, Kelly Cookson <KCookson@xxxxxxxxxxxx>
wrote:

Below is CL code that worked for me in a demo.

BEGPGM: PGM

STRPCO

MONMSG MSGID(CPF0000 CPD0000 CPC0000 IWS0000 IWS4010)

STRPCCMD PCCMD('rundll32 url.dll,FileProtocolHandler +
http://www.kellycookson.info/') PAUSE(*NO)

MONMSG MSGID(CPF0000 CPD0000 CPC0000 IWS0000)

ENDPGM: ENDPGM

I don't know the limitations and gotchas of this, though. Someone on
the list might be able to improve the code.

Thanks,
Kelly


-----Original Message-----
From: WEB400 [mailto:web400-bounces@xxxxxxxxxxxx] On Behalf Of Booth
Martin
Sent: Thursday, July 16, 2015 2:33 PM
To: Web Enabling the IBM i (AS/400 and iSeries)
Subject: Re: [WEB400] 5250 screen calls to browser

This is old code but might be useful.

http://martinvt.com/Code_Samples/PC_Commands/pc_commands.html

This is the relevant section:

* Start PC Organizer if not started.
C eval wCmdString = 'STRPCO PCTA(*NO)'
C callp(e) pQCmdExc(wCmdString:
C %len(%trim(wCmdString)) )
...
* Run the command.
C eval wCommand =
C 'start ' + 'http://target.site.com'
C eval wCmdString = 'strpccmd pccmd('''
C + %trim(wCommand)
C + ''') pause(*NO)'
C callp pQCmdExc(wCmdString:
C %len(%trim(wCmdString))

On 7/16/2015 12:43 PM, Joe W Holt wrote:

Anyone know how, if possible, to have a green screen make a call to
the system browser and passing a url supplied by the display?

***
Regards,
Joe W Holt
Sr Programmer/Developer
Jack Onofrio Dog Shows, LLC
405.427.8181

--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400)
mailing list To post a message email: WEB400@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.

--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400)
mailing list To post a message email: WEB400@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.




--
Regards,
Henrik Rützou

http://powerEXT.com <http://powerext.com/>
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list To post a message email: WEB400@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.

NOTICE: This message, including any attachment, is intended as a
confidential and privileged communication. If you have received this
message in error, or are not the named recipient(s), please immediately
notify the sender and delete this message.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list
To post a message email: WEB400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/web400.



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.