Re: Issue with subfiles

[MWalter@xxxxxxxxxxxxxxx]

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.