Go4AS400-Image

The Web Ask Go4AS400
Share  
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me



Ü  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

                                                                                                                                   

 

 

 

 


Comments:


Copyright © Go4as400.com, 2014. Copyright notice