|
the DDS you listed below shows the FOOTER to display on line 22.... try SFLSIZ(15) SFLPAG(14) and change the footer line to 23 then try it again... Thanks, Tommy Holden -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme Sent: Wednesday, March 23, 2005 1:31 PM To: RPG programming on the AS400 / iSeries Subject: RE: Footer records in subfile display I did have it there and it still gave me the same result, I have moved the OVERLAY key word about ten times, even seeing if its position in relation to the other key words was having an effect but so far it hasn't made a difference. On Wed, 23 Mar 2005 14:25:04 -0500, Dunfee, Randy wrote > Put the OVERLAY keyword on the SFL control format, NOT on the SFL! > > Randy Dunfee > > -----Original Message----- > From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxxxxxxxxxxxx] > Sent: Wednesday, March 23, 2005 1:51 PM > To: RPG programming on the AS400 / iSeries > Subject: RE: Footer records in subfile display > > I moved it from the load SR and placed it where you suggested and > recompiled, but it still does not display, I have checked the > FOOTER1 record > > and it should display on line 23 as well.....still nothing. > > On Wed, 23 Mar 2005 15:09:40 -0330, RPower wrote > > I don't see the WRITE FOOTER statement. It should be like this: > > > > C EXSR LOAD > > C DOU *IN12 = *ON > > C eval *in51 = *on > > *************************************** > > C WRITE FOOTER > > *************************************** > > C EXFMT CMCTL > > C ENDDO > > C EVAL *INLR = *ON > > C RETURN > > > > Ron Power > > Programmer > > Information Services > > City Of St. John's, NL > > P.O. Box 908 > > St. John's, NL > > A1C 5M2 > > Tel: 709-576-8132 > > Email: rpower@xxxxxxxxxx > > Website: http://www.stjohns.ca/ > > > ___________________________________________________________________________ > > Success is going from failure to failure without a loss of > > enthusiasm. - Sir Winston Churchill > > > > "Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> > > Sent by: rpg400-l-bounces@xxxxxxxxxxxx > > 23/03/2005 02:48 PM > > Please respond to > > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> > > > > To > > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> > > cc > > > > Subject > > RE: Footer records in subfile display > > > > The write statment is before it is exfmt, but for some reason it > > still is not displaying. > > > > I'll post the DDS and code for reference: > > > > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS > > A*%%EC > > A DSPSIZ(24 80 *DS3) > > A R CMSFL SFL > > A OVERLAY > > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS > > A DCUSTNO 9 O 7 3 > > A DCUSTNAME 25 O 7 15 > > A DSTATUS 1 O 7 44 > > A DSLSMN 10 O 7 55 > > A DSALES 8 2O 7 70EDTWRD(' , . ') > > A R CMCTL SFLCTL(CMSFL) > > A*%%TS SD 20050322 144955 DPALME REL-V5R1M0 5722-WDS > > A CF12(12) > > A 51 SFLDSP > > A 51 SFLDSPCTL > > A 52 SFLCLR > > A SFLSIZ(0016) > > A SFLPAG(0015) > > A 1 3DATE > > A EDTCDE(Y) > > A 1 30'ILMO PRODUCTS COMPANY' > > A 1 70USER > > A 2 29'CUSTOMER MASTER DISPLAY' > > A COLOR(WHT) > > A 5 3'CUST NO' > > A 5 15'CUSTOMER NAME' > > A 5 42'STATUS' > > A 5 55'DATE OPENED' > > A 5 71'YTD SALES' > > A 6 > > 3'==================================- A > > ===================================- A > > ========' A R FOOTER1 A*%%TS SD 20050322 144955 > > DPALME REL-V5R1M0 5722-WDS A > > OVERLAY A 22 70'F12=CANCEL' A > > COLOR(BLU) > > > > Here is the snippet of code > > > > ************************************************************************** > > * MAINLINE > > > > ************************************************************************** > > C EXSR LOAD > > C DOU *IN12 = *ON > > C eval *in51 = *on > > C EXFMT CMCTL > > C ENDDO > > C EVAL *INLR = *ON > > C RETURN > > > > ************************************************************************** > > > > * LOAD SUB FILE ROUTINE > > > > ************************************************************************** > > > > C LOAD BEGSR > > C USRID CHAIN SECURITY > > C EVAL DSLSMNNO = SALMNO > > C EVAL *IN52 = *ON > > C WRITE CMCTL > > C EVAL *IN52 = *OFF > > C DSLSMNNO CHAIN SLSMN > > C READ SLSMN > > C DOW dslsmnno = icmslsmn > > C EVAL DCUSTNO = ICMCUST# > > C EVAL DCUSTNAME = ICMNAME > > C EVAL DSTATUS = ICMSTATUS > > C EVAL DSALES = ICMSLSYTD > > C ADD 1 RRN > > C WRITE CMsfl > > C READ SLSMN > > C ENDDO > > C ENDSR > > > > -- > > This is the RPG programming on the AS400 / iSeries (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 is the RPG programming on the AS400 / iSeries (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. > > -- > Open WebMail Project (http://openwebmail.org) > > -- > This is the RPG programming on the AS400 / iSeries (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 is the RPG programming on the AS400 / iSeries (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. -- Open WebMail Project (http://openwebmail.org) -- This is the RPG programming on the AS400 / iSeries (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 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.
midrange.com
