Re: Footer on a subfile display

[Buck Calabro/commsoft<mcalabro@xxxxxxxxxxxx>]

>I am having trouble understanding how to display a footer 
>on a subfile display. 

The basic concept is that you create 2 record formats:
the subfile/control and the footer.  Create the control
with the OVERLAY keyword.  WRITE the footer, then EXFMT
the control record.  As long as the combined subfile/
control record doesn't use the same display lines as
the footer, the OVERLAY will leave the footer displayed
when the EXFMT happens with the control record.
 
>Would someone please post a simple example of the code 
>that makes a footer appear and stay on the bottom 
>of the screen, while the panel above pages up and down?

I may not be smart enough to make it simple, but here goes:

DDS:
A          R SFLMDL                    SFL 
A            WOPT           1A  B 11  2TEXT('Input option') 
..
A          R CTLMDL                    SFLCTL(SFLMDL) 
A                                      SFLDSP 
A                                      SFLDSPCTL 
A                                      SFLSIZ(0020) 
A                                      SFLPAG(0010) 
A                                      OVERLAY 
A            RCDMDL         4S 0H      SFLRCDNBR(CURSOR) 
A                                  1  2SYSNAME 
A            CONAME        24   O  1 26
A                                  1 62DATE 
A                                      EDTCDE(Y) 
..
A          R CFKEYS 
A                                      LOCK 
A            CMDLIN        78   O 24  2

The control record occupies line 1.
The subfile records occupy lines 11-20 based on the starting
line in the DDS and the SFLPAG(10)
The footer occupies line 24.
Because the footer does not overlap any of the lines in the
combined subfile and associated control record, it remains
on the display after the EXFMT.

RPG:
FMDLDSPFMCF  E                    WORKSTN 
F                                        RRNMDLKSFILE SFLMDL
..
C                     Z-ADD0         RRNMDL  40 
..
C* Activate base command key description 
C                     MOVEACMD,BASE  CMDLIN
C                     WRITECFKEYS
C                     EXFMTCTLMDL 

Buck Calabro
CommSoft, Albany, NY
mailto:mcalabro@commsoft.net

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---