× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.