Ü    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-2016. Copyright notice