RE: Footer records in subfile display

["Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>]

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)