Ü   ALTPAGEDWN/ALTPAGEUP (Alternative Page Down/Alternative Page Up)

 

·         It is file level keyword used as an alternative option for page-up and page-down.

·         The syntax of these keywords is given as below:

ALTPAGEDWN(CFnn)

ALTPAGEUP(CFnn)

Here, the value of nn varies from 01 to 24. But if not specified the value of CFnn for ALTPAGEUP will be CF07 and for ALTPAGEDOWN will be CF08.

·         In DDS these keywords are declared as shown below:

 

 

Example

 


Columns . . . :    1  80                 Browse                             AMIT/QRPGLESRC
SEU==>                                                                            SNGL_DSP
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
*************** Beginning of data ********************************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)                      
0002.00      A                                      CA03(03 'EXIT')                         
0003.00      A                                      PAGEDOWN(66)                            
0004.00      A                                      ALTPAGEDWN(CF08)                        
0005.00      A                                      PAGEUP(44)                              
0006.00      A                                      ALTPAGEUP(CF07)                         
0007.00      A          R HEADER                                                             
0008.00      A                                      OVERLAY                                 
0009.00      A                                  1  3USER                                    
0010.00      A                                      DSPATR(HI)                              
0011.00      A                                      COLOR(BLU)                              
0012.00      A                                  1 71DATE                                     
0013.00      A                                      EDTCDE(Y)                               
0014.00      A                                      DSPATR(HI)                              
0015.00      A                                      COLOR(BLU)                              
0016.00      A                                  2 71TIME                                    
0017.00      A                                      DSPATR(HI)                              
0018.00      A                                      COLOR(BLU)                              
0019.00      A                                  1 23'DISPLAY THE SINGLE PAGE SUBFILE'       
0020.00      A                                      DSPATR(HI)                              
0021.00      A                                      COLOR(BLU)                              
0022.00      A          R FOOTER                                                            
0023.00      A                                      OVERLAY                                 
0024.00      A                                 23  7'F3'                                    
0025.00      A                                      DSPATR(RI)                              
0026.00      A                                      COLOR(WHT)                              
0027.00      A                                 23 10'= EXIT'                                
0028.00      A                                 23 26'F12'                                   
0029.00      A                                      DSPATR(HI)                              
0030.00      A                                      DSPATR(RI)                               
0031.00      A                                 23 30'=PREVIOUS'                             
0032.00      A          R EXPD_SFL                  SFL                                     
0033.00      A  56                                  SFLNXTCHG                               
0034.00      A            S_ORG          3S 0O  8 12                                        
0035.00      A            S_ACC         12A  O  8 28                                         
0036.00      A            S_CCY          3A  O  8 49                                        
0037.00      A          R EXPD_CTL                  SFLCTL(EXPD_SFL)                        
0038.00      A                                      OVERLAY                                 
0039.00      A  52                                  SFLDSP                                  
0040.00      A  51                                  SFLDSPCTL                               
0041.00      A  50                                  SFLCLR                                  
0042.00      A  45                                  SFLEND(*MORE)                           
0043.00      A                                      SFLSIZ(0005)                            
0044.00      A                                      SFLPAG(0005)                            
0045.00      A                                  6 12'ORG CODE'                              
0046.00      A                                  6 27'ACCOUNT NUMBER'                        
0047.00      A                                  6 48'CURRENCY'                              
       ****************** End of data ***************************************************


                        

 

 

Now we handle these ALTPAGEUP/ALTPAGEDOWN indicators as shown below:

 

 


0022.00 C*                                                                             
0023.00 C*__________________PAGE DOWN__________________                                
0024.00 C*_____________________________________________                                 
0025.00 C     *IN66         IFEQ      *ON                                              
0026.00 C                   IF        *IN45=*OFF                                       
0027.00 C                   EXSR      CLRSFL                                           
0028.00 C                   EXSR      NXTPAG                                           
0029.00 C                   EXSR      FILSFL                                           
0030.00 C                   EXSR      DSPSFL                                           
0031.00 C                   ELSE                                                       
0032.00 C                   EXSR      DSPSFL                                            
0033.00 C                   ENDIF                                                      
0034.00 C                   ENDIF                                                      
0035.00 C*                                                                              
0036.00 C*__________________PAGE UP____________________                                
0037.00 C*_____________________________________________                                
0038.00 C     *IN44         IFEQ      *ON                                              
0039.00 C                   EXSR      CLRSFL                                           
0040.00 C                   EXSR      PREPAG                                            
0041.00 C                   EXSR      FILSFL                                           
0042.00 C                   EXSR      DSPSFL                                           
0043.00 C                   ENDIF                                                       
0044.00 C*____________________________________________                                 
0045.00 C                   IF        *IN66=*OFF AND *IN44=*OFF                        
0046.00 C                   EXSR      DSPSFL                                           
0047.00 C                   ENDIF                                                      
0048.00  *                                                                              
0049.00 C                   ENDSR  

 

 

 

 




 

 







User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy