Re: Press enter to activate a link

[DLee@xxxxxxxx]

Morning;

I have this workstation program, that has a url imbedded in the display, 
which when clicked, can display a web page.
This is a display that gives a user the ability to key an aba number, and 
append to a URL and when the link is double clicked, it will display the 
website.
The change my user would like to see, is that when the number is entered, 
and he presses enter, it will activate the link, and display the web page 
as usual.

My supervisor says this can be done, but doesn't remember how.

Any ideas, can this be done?



Here is the existing code.

    ** email address maintenance  
     FTESTWEB   CF   E             WORKSTN  
  
     D  SWBCLNK        S             30a 
INZ('http://www.routingnumbers.org/') 
     D  SWBCLNK2       S             30a   INZ('bank_routing_number_   .') 
 
     D  SWBCLNK3       S              4a   INZ('html')  
  
  
  
            // MAIN LINE  
      /free  
                         DOW       NOT *in07;  
                         EXFMT     RECORD;  
             // EXIT  
                         IF        *in07 = *ON;  
                         LEAVE;  
                         ENDIF;  
  
                         EXSR      CREATEWEB;  
  
                         ENDDO;  
  
                         EVAL      *INLR = *ON;  
         // BEG SUBROUTINE  
                         BEGSR  CREATEWEB;  
                         EVAL      %SUBST(WEBLNK:1:30)  = SWBCLNK;   
                         EVAL      %SUBST(WEBLNK:31:30) = SWBCLNK2;   
                         EVAL      %SUBST(WEBLNK:51:9)  = WSABA#;   
                         EVAL      %SUBST(WEBLNK:61:4)  = SWBCLNK3;   
  
                         ENDSR;  
  
                         BEGSR  *INZSR;  
  
                         ENDSR;  
      /END-FREE  
  

     A*%%TS  SD  20100302  161231  DEGPGMR     REL-V6R1M0  5761-WDS      
     A*%%EC  
     A                                      DSPSIZ(24 80 *DS3)   
     A          R RECORD  
     A*%%TS  SD  20100302  161231  DEGPGMR     REL-V6R1M0  5761-WDS      
     A                                      CF07(07 'exit')   
     A                                      OVERLAY  
     A                                      PRINT  
     A                                  1  3DATE  
     A                                      EDTCDE(Y)   
     A                                  1 70USER  
     A                                  2  3TIME  
     A                                 24  3'                      Cmd-7 
Exit  - 
     A Press Ent- 
     A                                      er'  
     A            EMSG          70A  O 23  7  
     A  90                                  COLOR(RED)   
     A                                  5  9'Enter ABA............'        
 
     A            WSABA#         9A  B  5 31DSPATR(UL)   
     A                                      COLOR(WHT)   
     A            WEBLNK        70A  O 19  5                    


Regards,

Darrell

SWBC
9311 San Pedro Ave., Suite 600
San Antonio, TX 78216

 Visit our website at www.swbc.com