Ü  DSPSIZ

 

·         This keyword is used to mention the display screen size.

·         Two screen sizes are possible. 24*80 and 27*132

·         We use DSPMOD to change the size of the screen.

·         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 display size.

 


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 display size.

                                                                               


                              XXXXXXXXXXXXXXXXXXX                              
                                                                               
                                                                               
                  FIELD 1     ___________________
                  FIELD 2     __________________________
                  FIELD 3
                                                                               
                                                                               
                                                                                
                                                                               
                                                                               
                                                                           
  F3 = EXIT                             

                                                                               

 

 

 

 

 

PROGRAM-2: We set the indicator 05 *ON to get the output in 27*132 display size. 

 

 

 
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 display size.

                                                                                                          


                                XXXXXXXXXXXXXXXXXXX
 
 
                      FIELD 1   ______________
                      FIELD 2   ___________________
                      FIELD 3
 
 
 
 


F3 = EXIT

                                                                                                                                   

 

 

 

 





User Comments:





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