Ü  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 © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy