× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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)


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.