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