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
midrange.com
