Re: 5250 screen calls to browser

[Kelly Cookson <KCookson@xxxxxxxxxxxx>]

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.