Re: Displaying footer record in a windowed subfile

[Booth Martin <booth@xxxxxxxxxxxx>]

I am curious:  Is there a need to "write" the footer format?  Having 
mentioned it in the subfile control record, it would seem redundant to 
mention it again in the RPG specs?

As an aside, have you looked at the default for WDWBORDER?  Its quite 
attractive compared to the RI.  (In my opinion).  :)
http://www.martinvt.com/Code_Samples/Multi-windows/multi-windows.html  
to see the default widow borders.  (That also shows mousable radio 
buttons and check boxes, by the way.)




DeLong, Eric wrote:
> Here's what I have done before...
>
> In my case, it was a window subfile, and I needed footer elements, so I
> defined my DDS like so:
>
>      A          R FOOTER
>
>      A                                      KEEP
>
>      A                                      WINDOW(3 25 20 33)
>
>      A                                      WDWBORDER((*COLOR WHT)
> (*DSPATR RI)-
>      A                                       (*CHAR '        '))
>
>      A                                 19  2'F12=Previous'
>
>      A                                      COLOR(BLU)
>
>      A                                 19 17'Enter=Process'
>
>      A                                      COLOR(BLU)
>
>
> Then I reference this FOOTER window in the SFL control format:
>
>      A          R SFLPER                    SFL                  
>      A            VPERSEL        1A  I  8  1DSPATR(HI)           
>      A            VPER#          3Y 0O  8  3                     
>      A            VPENAME       15A  O  8  8                     
>      A          R CTLPER                    SFLCTL(SFLPER)       
>      A                                      SFLSIZ(0999)         
>      A                                      SFLPAG(0010)         
>      A                                      WINDOW(FOOTER)       <==
> Here's the reference!
>      A                                      CA03                 
>      A                                      CA12                 
>      A  14                                  ROLLUP(15 'ROLL UP') 
>      A                                      OVERLAY              
>      A  30                                  SFLDSP               
>      A N25                                  SFLDSPCTL            
>      A  25                                  SFLCLR               
>      A  26                                  SFLEND(*MORE)        
>      A            DSPPAG         4S 0H      SFLRCDNBR            
>
> In RPG,
>
> C                   Eval      DSPPAG = 1    
> C                                           
> C                   If        $RRN1 > 1     
> C                   Eval      $SflDsp = *On 
> C                   Eval      $SflEnd = *On 
> C                   Write     FOOTER        
> C                   Exfmt     CTLPER        
> C                   Endif                   
>
>
> Hth,
> Eric DeLong
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Doug Palme
> Sent: Monday, December 29, 2008 4:19 PM
> To: RPG Midrange L
> Subject: Displaying footer record in a windowed subfile
>
>    I have tried this probably a dozen times with no success, so here I
> go
>    again.....
>
>    I have a windowed subfile that I need to display a footer record at
> the
>    bottom of, I have never been able to get it to work......
>
>    I have the overlay turned on as it should be, the footer record is a
>    windowed file as well, the same size as the ctl record/subfile and I
> have
>    the message line turned off.  Nothing seems to work....it will appear
>    briefly  before the EXFMT statement and then its gone.
>
>    Suggestions?
>
>    Here is the display file:
>
>    A          R MAIN                      SFL                        
>    A*%%TS  SD  20081229  160242  SPISDXP     REL-V5R4M0  5722-WDS    
>    A            DSLOT         20A  O 12 49                          
>    A            DSQTY          5S 0O 12 16                          
>    A            DSDATE          L  O 12 33                          
>    A            DSSEL          1A  B 12  5                          
>    A          R MAINCTL                   SFLCTL(MAIN)              
>    A*%%TS  SD  20081229  161444  SPISDXP     REL-V5R4M0  5722-WDS    
>    A                                      SFLSIZ(0003)              
>    A                                      SFLPAG(0002)              
>    A                                      WINDOW(3 2 18 70 *NOMSGLIN)
>    A                                      CF03(03)                  
>    A                                      CF12(12)                  
>    A            DSSEL          1A  B 12  5                          
>    A          R MAINCTL                   SFLCTL(MAIN)              
>    A*%%TS  SD  20081229  161444  SPISDXP     REL-V5R4M0  5722-WDS    
>    A                                      SFLSIZ(0003)              
>    A                                      SFLPAG(0002)              
>    A                                      WINDOW(3 2 18 70 *NOMSGLIN)
>    A                                      CF03(03)                  
>    A                                      CF12(12)                  
>    A                                      CF05(05)                  
>    A  51                                  SFLDSP                    
>    A  51                                  SFLDSPCTL                  
>    A  52                                  SFLCLR                    
>    A N52                                  SFLEND                    
>    A                                  2  1USER                      
>    A                                      COLOR(BLU)                
>    A                                  1  1'EDTCSTRTD'                
>    A                                      COLOR(BLU)                
>    A  51                                  SFLDSP                  
>    A  51                                  SFLDSPCTL                
>    A  52                                  SFLCLR                  
>    A N52                                  SFLEND                  
>    A                                  2  1USER                    
>    A                                      COLOR(BLU)              
>    A                                  1  1'EDTCSTRTD'              
>    A                                      COLOR(BLU)              
>    A                                  1 27'Customer Returns Editor'
>    A                                      COLOR(WHT)              
>    A                                  1 63DATE                    
>    A                                      EDTCDE(Y)                
>    A                                  2 63TIME                    
>    A                                  4 12'Item No:'              
>    A            DITEMNO        7S 0O  4 21COLOR(WHT)              
>    A            FLD004        30A  O  4 29COLOR(BLU)              
>    A            DOQTY          5S 0O  5 21COLOR(WHT)              
>    A                                      COLOR(WHT)                
>    A                                  1 63DATE                      
>    A                                      EDTCDE(Y)                  
>    A                                  2 63TIME                      
>    A                                  4 12'Item No:'                
>    A            DITEMNO        7S 0O  4 21COLOR(WHT)                
>    A            FLD004        30A  O  4 29COLOR(BLU)                
>    A            DOQTY          5S 0O  5 21COLOR(WHT)                
>    A            DNLOT         20A  B  8 26                          
>    A                                  8  1'Quantity:'                
>    A            DNQTY          5S 0B  8 11                          
>    A                                  8 48'Exp Dt (MM/YY):'          
>    A            DNDATE         4Y 0B  8 64EDTCDE(Y)                  
>    A                                  8 18'Lot No:'                  
>    A                                  6  1'__________________________
>    A                                      ___________________________
>    A                                      _'                        
>    A                                  8  1'Quantity:'                
>    A            DNQTY          5S 0B  8 11                          
>    A                                  8 48'Exp Dt (MM/YY):'          
>    A            DNDATE         4Y 0B  8 64EDTCDE(Y)                  
>    A                                  8 18'Lot No:'                  
>    A                                  6  1'__________________________
>    A                                      ___________________________
>    A                                      _'                        
>    A                                      COLOR(WHT)                
>    A                                 11 49'Lot Number'              
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                 11 34'Exp Date'                
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                 11 18'Qty'                      
>    A                                      DSPATR(UL)                
>    A                                 11 49'Lot Number'              
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                 11 34'Exp Date'                
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                 11 18'Qty'                      
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                  9  1'__________________________
>    A                                      ___________________________
>    A                                      _'                        
>    A                                      COLOR(WHT)                
>    A                                  7 31'Adjustments'              
>    A                                      COLOR(BLU)                
>    A                                 11  4'Sel'                      
>    A                                      COLOR(WHT)                
>    A                                 11 49'Lot Number'              
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                 11 34'Exp Date'                
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                 11 18'Qty'                      
>    A                                      DSPATR(UL)                
>    A                                      COLOR(WHT)                
>    A                                  9  1'__________________________
>    A                                      ___________________________
>    A                                      _'                        
>    A                                      COLOR(WHT)                
>    A                                  7 31'Adjustments'              
>    A                                      COLOR(BLU)                
>    A                                 11  4'Sel'                      
>    A                                      COLOR(WHT)                
>    A                                  9  1'__________________________
>    A                                      ___________________________
>    A                                      _'                        
>    A                                      COLOR(WHT)                
>    A                                  7 31'Adjustments'              
>    A                                      COLOR(BLU)                
>    A                                 11  4'Sel'                      
>    A                                      COLOR(WHT)                
>    A                                      DSPATR(UL)                
>    A                                 10 23'Saved / Pending Quantities
>    A                                      COLOR(BLU)                
>    A                                  5 11'Quantity:'                
>    A                                  5 44'Pending Quantity:'        
>    A            DPQTY          5S 0O  5 62COLOR(YLW)                
>    A          R MAINFTR                                              
>    A*%%TS  SD  20081229  160242  SPISDXP     REL-V5R4M0  5722-WDS    
>    A                                      OVERLAY                    
>    A                                 10 23'Saved / Pending Quantities
>    A                                      COLOR(BLU)                
>    A                                  5 11'Quantity:'                
>    A                                  5 44'Pending Quantity:'        
>    A            DPQTY          5S 0O  5 62COLOR(YLW)                
>    A          R MAINFTR                                              
>    A*%%TS  SD  20081229  160242  SPISDXP     REL-V5R4M0  5722-WDS    
>    A                                      OVERLAY                    
>    A                                      WINDOW(3 2 18 70 *NOMSGLIN)
>    A                                 18 26'F3-Exit   F12-Cancel'    
>    A                                      COLOR(BLU)                
>    This transmission may contain information that is privileged,
> confidential
>    and/or exempt from disclosure under applicable law. If you are not
> the
>    intended recipient, you are hereby notified that any disclosure,
> copying,
>    distribution, or use of the information contained herein (including
> any
>    reliance thereon) is STRICTLY PROHIBITED. If you received this
>    transmission in error, please immediately contact the sender and
> destroy
>    the material in its entirety, whether in electronic or hard copy
> format.
>    Thank you.
> --
> This is the RPG programming on the IBM i / System i (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.
>
>
>
>   
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.176 / Virus Database: 270.10.1/1869 - Release Date: 12/30/2008 12:06 PM
>
>