RE: Footer records in subfile display

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

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