Ü  PAGEDOWN / PAGEUP

 

·         This keyword is used at file or record level to control the PAGE DOWN and PAGE UP activity for the subfile.

·         PAGEDOWN activity is same as ROLL UP and PAGE UP is same as ROLL DOWN.

·         We assign a response indicator with this keyword and handle the activity with these indicators.

·         The format of the keyword is as shown below:

PAGEDOWN( Response Indicator)

PAGEUP(Response Indicator)

 

 

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 can handle the PGE UP and PAGE DOWN with the response indicator 66 and 44.

 

 


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