Here's what I have done before...
In my case, it was a window subfile, and I needed footer elements, so I
defined my DDS like so:
A R FOOTER
A KEEP
A WINDOW(3 25 20 33)
A WDWBORDER((*COLOR WHT)
(*DSPATR RI)-
A (*CHAR ' '))
A 19 2'F12=Previous'
A COLOR(BLU)
A 19 17'Enter=Process'
A COLOR(BLU)
Then I reference this FOOTER window in the SFL control format:
A R SFLPER SFL
A VPERSEL 1A I 8 1DSPATR(HI)
A VPER# 3Y 0O 8 3
A VPENAME 15A O 8 8
A R CTLPER SFLCTL(SFLPER)
A SFLSIZ(0999)
A SFLPAG(0010)
A WINDOW(FOOTER) <==
Here's the reference!
A CA03
A CA12
A 14 ROLLUP(15 'ROLL UP')
A OVERLAY
A 30 SFLDSP
A N25 SFLDSPCTL
A 25 SFLCLR
A 26 SFLEND(*MORE)
A DSPPAG 4S 0H SFLRCDNBR
In RPG,
C Eval DSPPAG = 1
C
C If $RRN1 > 1
C Eval $SflDsp = *On
C Eval $SflEnd = *On
C Write FOOTER
C Exfmt CTLPER
C Endif
Hth,
Eric DeLong
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Doug Palme
Sent: Monday, December 29, 2008 4:19 PM
To: RPG Midrange L
Subject: Displaying footer record in a windowed subfile
I have tried this probably a dozen times with no success, so here I
go
again.....
I have a windowed subfile that I need to display a footer record at
the
bottom of, I have never been able to get it to work......
I have the overlay turned on as it should be, the footer record is a
windowed file as well, the same size as the ctl record/subfile and I
have
the message line turned off. Nothing seems to work....it will appear
briefly before the EXFMT statement and then its gone.
Suggestions?
Here is the display file:
A R MAIN SFL
A*%%TS SD 20081229 160242 SPISDXP REL-V5R4M0 5722-WDS
A DSLOT 20A O 12 49
A DSQTY 5S 0O 12 16
A DSDATE L O 12 33
A DSSEL 1A B 12 5
A R MAINCTL SFLCTL(MAIN)
A*%%TS SD 20081229 161444 SPISDXP REL-V5R4M0 5722-WDS
A SFLSIZ(0003)
A SFLPAG(0002)
A WINDOW(3 2 18 70 *NOMSGLIN)
A CF03(03)
A CF12(12)
A DSSEL 1A B 12 5
A R MAINCTL SFLCTL(MAIN)
A*%%TS SD 20081229 161444 SPISDXP REL-V5R4M0 5722-WDS
A SFLSIZ(0003)
A SFLPAG(0002)
A WINDOW(3 2 18 70 *NOMSGLIN)
A CF03(03)
A CF12(12)
A CF05(05)
A 51 SFLDSP
A 51 SFLDSPCTL
A 52 SFLCLR
A N52 SFLEND
A 2 1USER
A COLOR(BLU)
A 1 1'EDTCSTRTD'
A COLOR(BLU)
A 51 SFLDSP
A 51 SFLDSPCTL
A 52 SFLCLR
A N52 SFLEND
A 2 1USER
A COLOR(BLU)
A 1 1'EDTCSTRTD'
A COLOR(BLU)
A 1 27'Customer Returns Editor'
A COLOR(WHT)
A 1 63DATE
A EDTCDE(Y)
A 2 63TIME
A 4 12'Item No:'
A DITEMNO 7S 0O 4 21COLOR(WHT)
A FLD004 30A O 4 29COLOR(BLU)
A DOQTY 5S 0O 5 21COLOR(WHT)
A COLOR(WHT)
A 1 63DATE
A EDTCDE(Y)
A 2 63TIME
A 4 12'Item No:'
A DITEMNO 7S 0O 4 21COLOR(WHT)
A FLD004 30A O 4 29COLOR(BLU)
A DOQTY 5S 0O 5 21COLOR(WHT)
A DNLOT 20A B 8 26
A 8 1'Quantity:'
A DNQTY 5S 0B 8 11
A 8 48'Exp Dt (MM/YY):'
A DNDATE 4Y 0B 8 64EDTCDE(Y)
A 8 18'Lot No:'
A 6 1'__________________________
A ___________________________
A _'
A 8 1'Quantity:'
A DNQTY 5S 0B 8 11
A 8 48'Exp Dt (MM/YY):'
A DNDATE 4Y 0B 8 64EDTCDE(Y)
A 8 18'Lot No:'
A 6 1'__________________________
A ___________________________
A _'
A COLOR(WHT)
A 11 49'Lot Number'
A DSPATR(UL)
A COLOR(WHT)
A 11 34'Exp Date'
A DSPATR(UL)
A COLOR(WHT)
A 11 18'Qty'
A DSPATR(UL)
A 11 49'Lot Number'
A DSPATR(UL)
A COLOR(WHT)
A 11 34'Exp Date'
A DSPATR(UL)
A COLOR(WHT)
A 11 18'Qty'
A DSPATR(UL)
A COLOR(WHT)
A 9 1'__________________________
A ___________________________
A _'
A COLOR(WHT)
A 7 31'Adjustments'
A COLOR(BLU)
A 11 4'Sel'
A COLOR(WHT)
A 11 49'Lot Number'
A DSPATR(UL)
A COLOR(WHT)
A 11 34'Exp Date'
A DSPATR(UL)
A COLOR(WHT)
A 11 18'Qty'
A DSPATR(UL)
A COLOR(WHT)
A 9 1'__________________________
A ___________________________
A _'
A COLOR(WHT)
A 7 31'Adjustments'
A COLOR(BLU)
A 11 4'Sel'
A COLOR(WHT)
A 9 1'__________________________
A ___________________________
A _'
A COLOR(WHT)
A 7 31'Adjustments'
A COLOR(BLU)
A 11 4'Sel'
A COLOR(WHT)
A DSPATR(UL)
A 10 23'Saved / Pending Quantities
A COLOR(BLU)
A 5 11'Quantity:'
A 5 44'Pending Quantity:'
A DPQTY 5S 0O 5 62COLOR(YLW)
A R MAINFTR
A*%%TS SD 20081229 160242 SPISDXP REL-V5R4M0 5722-WDS
A OVERLAY
A 10 23'Saved / Pending Quantities
A COLOR(BLU)
A 5 11'Quantity:'
A 5 44'Pending Quantity:'
A DPQTY 5S 0O 5 62COLOR(YLW)
A R MAINFTR
A*%%TS SD 20081229 160242 SPISDXP REL-V5R4M0 5722-WDS
A OVERLAY
A WINDOW(3 2 18 70 *NOMSGLIN)
A 18 26'F3-Exit F12-Cancel'
A COLOR(BLU)
This transmission may contain information that is privileged,
confidential
and/or exempt from disclosure under applicable law. If you are not
the
intended recipient, you are hereby notified that any disclosure,
copying,
distribution, or use of the information contained herein (including
any
reliance thereon) is STRICTLY PROHIBITED. If you received this
transmission in error, please immediately contact the sender and
destroy
the material in its entirety, whether in electronic or hard copy
format.
Thank you.
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
