|
I had previously changed it to 15/14 and even did what you suggested and made it 14/13 but still isn't dipslaying....this one is really driving me crazy....everything looks ok to me but so far haven't figured it out. On Wed, 23 Mar 2005 15:40:03 -0330, RPower wrote > 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. > > -- > 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)
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
