Ü
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