× 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.



So I assume that when I defined them in SDA as a WINDOW SFL that was
incorrect, it appears from what everyone is telling me, you define the
subfile and control records as normal just include them in the window
record......interesting.....


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of johnking@xxxxxxx
Sent: Wednesday, July 18, 2007 11:56 AM
To: Midrange Systems Technical Discussion
Subject: RE: Windowed subfile

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/

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.