Re: Press enter to activate a link

[Booth Martin <booth@xxxxxxxxxxxx>]

 See if something like this might work for you:
 In your DSPF
 RTNCSRLOC(&REC &FLD)
 REC 10A H
 FLD 10A H

 In your RPG:
 select;
 when FLD = 'WSABA#'; // Enter pressed in this field
 exsr CreateWeb;
 endsl;

On 3/30/2010 9:08 AM, DLee@xxxxxxxx wrote:
> 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