Ü DSPMOD
·
This keyword is used to change the
display mode of the screen for different screen resolution i.e. 24*80 and
27*132.
·
This keyword is valid only when
both the 24 x 80 and 27 x 132 display sizes are specified on the DSPSIZ
keyword.
·
24*80 is the default display size.
Example
Columns . . . : 1 100 Browse AMITCCC/QRPGLESRC
SEU==> DSP001
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++ ...+..
*************** Beginning of data ********************************************
0001.00 A DSPSIZ(24 80 *DS3
0002.00 A 27 132 *DS4)
0003.00 A CA03(03 'EXIT')
0004.00 A R HEADER
0005.00 A OVERLAY
0006.00 A 05 DSPMOD(*DS4)
0007.00 A 2 31'XXXXXXXXXXXXXXXXXXX'
0008.00 A COLOR(BLU)
0009.00 A R DETAIL
0010.00 A OVERLAY
0011.00 A 05 DSPMOD(*DS4)
0012.00 A 5 3'FIELD 1'
0013.00 A COLOR(BLU)
0014.00 A FLD001 10 0B 5 17
0015.00 A 6 3'FIELD 2'
0016.00 A COLOR(BLU)
0017.00 A 7 3'FIELD 3'
0018.00 A COLOR(BLU)
0019.00 A FLD002 12 B 6 17
0020.00 A FLD003 3 O 7 17
0021.00 A R FOOTER
0022.00 A 05 DSPMOD(*DS4)
0023.00 A 23 3'F3 = EXIT'
****************** End of data ************************************************
PROGRAM-1: We set
the indicator 05 *OFF to get the output in 24*80 mode.
Columns . . . : 6 100 Browse AMITCCC/QRPGLESRC
SEU==> RPG001
FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++Comments+++
*************** Beginning of data ********************************************
0001.00 FDSP001 CF E WORKSTN
0002.00 C DOW *IN03=*OFF
0003.00 C 03 LEAVE
0004.00 C SETOFF 05
0005.00 C WRITE FOOTER
0006.00 C WRITE HEADER
0007.00 C WRITE DETAIL
0008.00 C READ FOOTER
0009.00 C ENDDO
0010.00 C SETON LR
****************** End of data ***********************************************
OUTPUT
The output is displayed in 24*80 mode.
XXXXXXXXXXXXXXXXXXX
FIELD 1 ___________________
FIELD 2 __________________________
FIELD 3
F3 = EXIT
PROGRAM-2: We set the indicator 05 *ON to get the output in 27*132 mode.
Columns . . . : 6 100 Edit AMITCCC/QRPGLESRC
SEU==> RPG001
FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords++++++++++++Comments++++++++++++
*************** Beginning of data ********************************************
0001.00 FDSP001 CF E WORKSTN
0002.00 C DOW *IN03=*OFF
0003.00 C 03 LEAVE
0004.00 C SETON 05
0005.00 C WRITE FOOTER
0006.00 C WRITE HEADER
0007.00 C WRITE DETAIL
0008.00 C READ FOOTER
0009.00 C ENDDO
0010.00 C SETON LR
****************** End of data **********************************************
OUTPUT
The output is displayed in 27*132 mode.
XXXXXXXXXXXXXXXXXXX
FIELD 1 ______________
FIELD 2 ___________________
FIELD 3
F3 = EXIT