|
Change the 15 and 16 for the sflpag and sflsiz to 13 and 14 respctively. I think the +more may be overlaying on your footer. Just give it a shot, I had that happen to me once. You need 2 blank lines between the end of your subfile and the footer record. 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 03:18 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 Actually I may have copied the source from the backup file which did not have it, I have the write FOOTER1 right after the ENDDO in the load sub routine and before the ENDSR 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
