Re: Issue with subfiles

On Wed, 24 Nov 2004 11:55:42 -0500, MWalter wrote
> Add the OVERLAY keyword to your control record. Then Create your FOOTER
> record. In your RPG Program, right before you to an EXFMT to your 
> RECCTL, do a WRITE to your FOOTER record. Be sure that the footer 
> will not overlay the subfile data record. Sort of like this:
> 
>  A*%%TS  SD  20041123  170003  DPALME      REL-V5R2M0  5722-WDS
>  A*%%EC
>  A                                      DSPSIZ(24 80 *DS3)
>  A          R RECSFL                    SFL
>  A*%%TS  SD  20041123  163819  DPALME      REL-V5R2M0  5722-WDS
>  A            NOTES         75A  B  3  5
>  A          R RECCTL                    SFLCTL(RECSFL)
>  A*%%TS  SD  20041123  170003  DPALME      REL-V5R2M0  5722-WDS
>  A                                      SFLSIZ(0016)
>  A                                      SFLPAG(0015)
>  A                                      CA12(12)
>  A  51                                  SFLDSP
>  A  51                                  SFLDSPCTL
>  A  52                                  SFLCLR
>  A                                      OVERLAY - I added the OVERLAY
> keyword to your control record
>  A                                  1 24'THIS IS THE CONTROL RECORD HEADER'
>     this is the new footer record
>  A          R FOOTER
>  A                                 23  2'F3=EXIT'
>                                          ...etc.
> 
> in your rpg Program:
> 
>         *************** Beginning of data ******
> 0001.00 C                   write     footer
> 0002.00 C                   exfmt     recctl
>         ****************** End of data *********
> 
> Hope this helps.
> 
> Thanks,
> 
> Mark
> 
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
> 
>              "Douglas W.                                             
>                    Palme"                                            
>                          <dpalme@blackcats                           
>                To              olutions.com>             RPG 
> programming on the AS400 /                   Sent by:                
>   iSeries <rpg400-l@xxxxxxxxxxxx>                  rpg400-l-bounces+ 
>                                          cc              
> mwalter=hanoverwi                                                    
>       re.com@xxxxxxxxxx                                     Subject  
>             om                        Issue with subfiles
> 
>              11/24/2004 11:49                                        
>                    AM
> 
>              Please respond to                                       
>                     RPG programming                                  
>                           on the AS400 /                             
>                                     iSeries                          
>                                      <rpg400-l@midrang
> 
>                   e.com>
> 
> A friend of mine sent me some printouts helping walk me through the process
> 
> of creating a subfile via the SDA tool.
> 
> It seems pretty easy to do at least from a basic viewpoint.....I am not
> going to be doing anything heavy in subfiles at this point just because
> they
> are so complicated and there are other areas that I want to fully master
> before getting into this can of worms.  However, I do have one question
> that
> hopefully someone here can assist me with.
> 
> Below is a copy of the subfile DDS, the one thing this does not have 
> is a section at the bottom of the screen to give the user some 
> indication of which function key to use to cancel or scroll through 
> the records....I would ask him but unfortunately he's out of the 
> country on vacation (honeymoon) until after the first of the year.
> 
> If someone would be kind enough to assist me with adding some type
> of "footer" where I can add some constant text for the user such
> as 'F12=CANCEL'      'PGDN - SCROLL DOWN'    'PGUP - SCROLL UP' and 
> it will
> 
> be displayed on each screen I would appreciate it.
> 
>  A*%%TS  SD  20041123  170003  DPALME      REL-V5R2M0  5722-WDS
>  A*%%EC
>  A                                      DSPSIZ(24 80 *DS3)
>  A          R RECSFL                    SFL
>  A*%%TS  SD  20041123  163819  DPALME      REL-V5R2M0  5722-WDS
>  A            NOTES         75A  B  3  5
>  A          R RECCTL                    SFLCTL(RECSFL)
>  A*%%TS  SD  20041123  170003  DPALME      REL-V5R2M0  5722-WDS
>  A                                      SFLSIZ(0016)
>  A                                      SFLPAG(0015)
>  A                                      CA12(12)
>  A  51                                  SFLDSP
>  A  51                                  SFLDSPCTL
>  A  52                                  SFLCLR
>  A                                  1 24'THIS IS THE CONTROL RECORD HEADER'
> --
> 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)