×
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.
This template works for us - JK
A*--------------------------------------------------------------
A R SFL SFL
A TEXT('Subfile')
A S_SEL 1A B 5 1DSPATR(UL)
A 80 COLOR(WHT)
A 80 DSPATR(PC)
A S_FIELD R 37 O 5 3REFFLD(myfield)
A*--------------------------------------------------------------
A R CTL SFLCTL(SFL)
A SFLSIZ(0011)
A SFLPAG(0010)
A WINDOW(FTR)
A WDWBORDER((*DSPATR RI))
A TEXT('Ctl panel')
A CHANGE(93 'a field was
changed')
A RTNCSRLOC(&RCDNAM &FLDNAM)
A OVERLAY
A 91 SFLDSP
A SFLDSPCTL
A 90 SFLCLR
A 92 SFLEND
A RCDNBR 4S 0H SFLRCDNBR
A RCDNAM 10A H
A FLDNAM 10A H
A 1 1'Panel1'
A 1 21'Screen heading '
A COLOR(WHT)
A*--------------------------------------------------------------
A R FTR
A WINDOW(7 5 16 72 *NOMSGLIN)
A TEXT('Command key legend')
A F_MESSAGE 70A O 15 1DSPATR(HI)
A 97 DSPATR(RI)
A F_FKEYLIT 70A O 16 1TEXT('Command key list')
A DSPATR(UL)
A DSPATR(RI)
A*--------------------------------------------------------------
A R DUMMY
A OVERLAY
A ASSUME
On Wed Jul 18 10:15 , 'Doug Palme' sent:
Jeff,
Do I still define the footer record as a window with the same dimensions
as
the subfile or just define it as a record?
---- Msg sent via Internet America Webmail -
http://www.internetamerica.com/
midrange.com
