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