Ü    CNTFLD (Continued Entry field)

 

·         This keyword is used at field level, to define a field as continues entry field.

 

 

 

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

 

There will be total 250/50=5 lines here. Each will be of length 50.

 


                                                                               
                                                                               
FIELD-01:      _________________________________________________________
               _________________________________________________________
               _________________________________________________________
               _________________________________________________________
               _________________________________________________________
                                                                               
                                                                                
                                                                               

 





User Comments:





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