Re: Hyperlnik on green screen?

[Booth Martin <booth@xxxxxxxxxxxx>]

Here's some code that should work on any enhanced 5250 session.

Screen format:
A            PB2            2Y 0B  9  
8SNGCHCFLD                             
A                                      CHOICE(1 'Open Browser    
')          
A                                      CHOICE(2 'Open Notepad    
')          
A                                      CHOICE(3 'Open Excel      
')          
A                                      CHOICE(4 'Print a PC file 
')          
A                                 20 46'Use the space bar or mouse 
click'    
A                                      
COLOR(BLU)                            
A                                 21 46'to make your 
selection.'             
A                                      COLOR(BLU)                 

RPG calcs:

D wCmdString      s           1024    varying       
* Start PC Organizer if not started.                              
C                   eval      wCmdString = 'STRPCO PCTA(*NO)'      
C                   callp(e)  QCmdExc(wCmdString:                  
C                              %len(%trim(wCmdString)) )           
* Establish the command to perform.                               
C                   select                                         
C                   when      PB2 = 1                              
C                   eval      wCommand =                           
C                               'start http://www.martinvt.com'     
C                   when      PB2 = 2                              
C                   eval      wCommand =                           
C                               'notepad.exe'                      
C                   when      PB2 = 3                              
C                   eval      wCommand =                           
C                               'excel.exe'                        
C                   when      PB2 = 4                              
C***                eval      wCommand = 'start soffice -o ' +     
C                   eval      wCommand = 'start soffice -pt AFP ' +
C                              '"C:\Documents and Settings\Booth\' 
C                              + 'Desktop\'                
C                              + 'Example1.jpg"'                   
C                   endsl                                          
* Run the command from the screen.                                
C                   eval      wCmdString = 'strpccmd pccmd('''  
C                               + %trim(wCommand)               
C                               + ''') pause(*NO)'              
C                   callp     QCmdExc(wCmdString:               
C                              %len(%trim(wCmdString)) )        

Its from a test program I did to see how it all works.

          

Wayne McAlpine wrote:
> You have to configure Client Access to display hyperlinks.   I don't 
> think it's the default.
>
> Jim Mergen wrote:
>   
> > Using Client Access, if you put a hyperlink anywhere on a screen(can also be
> > hidden) you can double click it and a browser window will appear. For
> > instance, cut and paste http://www.yahoo.com on a command line, then double
> > click on it.
> >
> > I was playing around putting a hidden link on an Item Master, then by
> > clicking it(or function key) link to a network file with a picture.
> >
> > Jim 
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of tim
> > Sent: Tuesday, September 25, 2007 10:01 AM
> > To: Rpg Forumn
> > Subject: Hyperlnik on green screen?
> >
> > Is there a way to create a hyperlink to a webpage on a green-screen?
> >
> >  
> >
> > If so, what would the requirments be?
> >
> >  
> >
> > Thanks.
> >
> >