×
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.
Sorry, Doug.
Something like this should work. I may have made some typos but this is
taken from a working program. The secret is in defining the window
/with/ your footer. Then use the window format name on the subfile
control record.
A*****************************************************************
A R W1
A WINDOW(09 03 10 72 +
A *NOMSGLIN *NORSTCSR)
A 10 2'Enter=Continue F3=Exit'
A COLOR(BLU)
A*****************************************************************
A R SFL1 SFL
A SF1LINE 70A O 2 2
A*****************************************************************
A R WS1 SFLCTL(SFL1)
A SFLSIZ(&SF1RECS)
A SFLPAG(7)
A WINDOW(W1)
A OVERLAY
A SFLCSRRRN(&PM_RRN)
A N50 SFLDSP SFLDSPCTL SFLEND
A 50 SFLDLT
A PM_RRN 5S 0H
A SF1NUM 4S 0H
A SF1RECS 5S 0P
A W1HEAD 45A O 1 2 DSPATR(HI)
Doug Palme wrote:
It may be a pain to do, but I really need to figure this one out. and I
have to do it....its part of the specs.......
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.
midrange.com
