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

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

From: Booth Martin <booth@xxxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Date: 12/29/2008 04:35 PM
Subject: Re: Displaying footer record in a windowed subfile

----------------------------------------------------------------------

Its a pain to do. Here's what I do though. I put that footer info in
the wdwtitle( *bottom *left) and forget the issue. Window real estate is
too precious to waste on function keys, anyways.

Doug Palme wrote:
> 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.
>
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com
> Version: 8.0.176 / Virus Database: 270.10.0/1865 - Release Date:
12/26/2008 1:01 PM
>
>

--
---------------------------------
Booth Martin
http://www.Martinvt.com
---------------------------------

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

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.