Ü   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 © Go4as400.com, 2013-2016. Copyright notice