Ü    COLOR

 

·         This field level keyword is used to specify the color of the field.

·         The syntax of this keyword is as shown below

COLOR ( BLU | GRN | WHT | RED | TRQ | YLW | PNK)

·         By default the color of the field will be green.

 

Example

 


Columns . . . :    1 100                   Browse                         IROBO1/QRPGLESRC
 SEU==>                                                                               DSP6
 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++++ ...+...
        *************** Beginning of data ************************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CA03(03 'EXIT')
0003.00      A          R DETAIL001
0004.00      A                                  3  2'FIELD-01: '
0005.00      A                                      COLOR(YLW)
0006.00      A            FLD01        250A  B  3 15CNTFLD(50)
        ****************** End of data ***************************************************

 

 

 

 


Columns . . . :    6 100                  Browse                            IROBO1/QRPGLESRC
 SEU==>                                                                             PGM_DSP6
 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords++++++++++++++++++Comments++++++++++++
        *************** Beginning of data **************************************************
0001.00 FDSP6      CF   E             WORKSTN
0002.00 C                   dow       *in03=*off
0003.00 C   03              leave
0004.00 C                   exfmt     Detail001
0005.00 C                   enddo
0006.00 C                   seton                                        lr
       ****************** End of data ******************************************************


 

 

OUTPUT

 

FIELD-01 is displayed in YELLOW.

The input text line is displayed in GREEN which is the default color.

 


                                                                               
                                                                               
FIELD-01:      _________________________________________________________
               _________________________________________________________
               _________________________________________________________
               _________________________________________________________
               _________________________________________________________
                                                                               
                                                                                
                                                                               




 

 







User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy