Re: Displaying footer record in a windowed subfile -- RPG400-L

Here is what I use
This is in our production system
For the DDS

A R WDWDIVCHCF
A*
A** Window Controls
A WINDOW(*DFT 19 60 *NOMSGLIN)
A WDWTITLE((*TEXT 'Selection by')
(+
A *COLOR WHT) (*DSPATR HI UL))
A OVERLAY
A R DSPDIVCHCF
A SFL
A DIVOPT 1A B 3 3DSPATR(HI)
A VALUES(' ' 'Y')
A 51 DSPATR(PR)
A 51 DSPATR(ND)
A COMPNY 1A O 3 14DSPATR(HI)
A CNAME 30A O 3 17DSPATR(HI)
A CONSCOMPNY 2A O 3 9DSPATR(HI)
A N50 DSPATR(ND)
A R CTLDIVCHCF
A SFLCTL(DSPDIVCHCF)
A CF12
A SFLSIZ(9999)
A SFLPAG(12)
A** Window Reference
A WINDOW(WDWDIVCHCF)
A** Subfile Controls
A OVERLAY
A FRCDTA
A 41 SFLDSP
A 41 SFLDSPCTL
A N41 SFLCLR
A 42 SFLEND(*MORE)
A SFLCSRRRN(&TESTRRN)
A CF11
A TESTRRN 5S 0H
A SFLPOSCHG 4S 0H SFLRCDNBR(CURSOR)
A 49 1 22'Consolidated Division'
A DSPATR(UL)
A DSPATR(HI)
A N49 1 22'Individual Division'
A DSPATR(UL)
A DSPATR(HI)
A 2 17'Division name'
A DSPATR(UL)
A 2 2'Opt(Y)'
A DSPATR(UL)
A DSPATR(HI)
A R FTRDIVCHCF
A*%%TS DD 20070123 105228 AShore REL-V5.0.1 WDSc
A WINDOW(WDWDIVCHCF)
A OVERLAY
A 16 3'F3=Cancel'
A 49 16 16'F11=Display Individual
Division'
A N49 16 16'F11=Display Consolidated
Division'
A 17 3'Enter=Process chosen'
A 17 39'F12=Exit'
A*----------------------------------------------------------------

Within the program
c write Wdwdivchcf
c write Ftrdivchcf
c exfmt Ctldivchcf

Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 12/29/2008 05:19:05 PM:

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.