Ü  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

 

 

 

 





User Comments:





Copyright © Go4as400.com, 2013-2016. Copyright notice