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



Booth,

This code is pretty old, and was developed before window frames were
really supported by the emulator. You are right, this looks much better
with the default window framing, at this point.

Regarding the need to write the FOOTER format, I seem to recall that the
referenced format is not automagically displayed. The DDS compiler
simply looks to the other record for the window definition. I can't
remember if I got an error trying to EXFMT the control format if I had
not displayed the FOOTER first......

Eric

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Wednesday, December 31, 2008 10:54 AM
To: RPG programming on the IBM i / System i
Subject: Re: Displaying footer record in a windowed subfile

I am curious: Is there a need to "write" the footer format? Having
mentioned it in the subfile control record, it would seem redundant to
mention it again in the RPG specs?

As an aside, have you looked at the default for WDWBORDER? Its quite
attractive compared to the RI. (In my opinion). :)
http://www.martinvt.com/Code_Samples/Multi-windows/multi-windows.html
to see the default widow borders. (That also shows mousable radio
buttons and check boxes, by the way.)




DeLong, Eric wrote:
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.




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


No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.176 / Virus Database: 270.10.1/1869 - Release Date:
12/30/2008 12:06 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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.