Re: Rollup Subfile through Code or Pressing Pagedown Key through code ?

Luqman,

Ok, yes you turned on the indicator, but you didn't execute the routine to
load the next page.

In the display file, on the ctl record, you need to go the indicator
section and specify PAGEUP AND PAGEDOWN assigning indicators to them so
that you can use in RPG.

PAGEUP                 70
PAGEDOWN         71

Dow (not exit Key)

   If not anyerrors
     ExSr Load Next Page
   EndIf
   Write Footer
   Exfmt ctl
   If *InKC;
      Leave;
   EndIf;
   If *In70;  // If pageup, reload previous page.
      ExSr Read back previous 20 records, so that
            Load Next Page will load previous page, instead of next page.
      ItEr;
   EndIf;
   If *In71;  // Load Next Page.
      ItEr;
   EndIf;
EndDo;


Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             "Luqman"                                                      
             <luqman@pearlsoft                                             
             .com.pk>                                                   To 
             Sent by:                  rpg400-l@xxxxxxxxxxxx               
             rpg400-l-bounces@                                          cc 
             midrange.com                                                  
                                                                   Subject 
                                       Rollup Subfile through Code or      
             04/13/2006 07:06          Pressing Pagedown Key through code  
             AM                        ?                                   
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




How can I rollup the subfile through code or Press Pagedown key through
code
?

I tried setting Rollup Indicator=*ON but it does not work.

dow (not exit key)
exfmt ctl
rollupkey=*ON
iter
enddo



Best Regards,

Luqman





--
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.