Ü    CLRL (Clear Line)

·         This keyword can be used at record level to specify that a specific number of lines that is to be cleared before displaying the record.

·         The format of this keyword is as below:

·         CLRL( Parm)

Where,

§  Parm= *NO

§  Parm= *ALL

§  Parm = nn(1 to 24 for 24*80 display)  or  (1 to 27 for 27*132 display)

§  Parm =*END

 

 

Example

 

 

Case (1):   CLRL(*NO)

 

§  When Parm=*NO, then no lines are cleared before displaying the record. In case of overlapping, the lines that are overlapped are not cleared i.e. there will be partial overlapping and some of the overlapped portion will still be displayed.

 


Columns . . . :    1 100                  Browse                          IROBO1/QRPGLESRC
SEU==>                                                                                DSP5
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++ ... 9 ...+... 0
*************** Beginning of data ********************************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CA03(03 'EXIT')
0003.00      A          R DETAIL001
0004.00      A                                      CLRL(*NO)
0005.00      A            FLD01         10Y 3B  3 15
0006.00      A                                      COLOR(YLW)
0007.00      A                                  3  2'FIELD-01: '
0008.00      A                                      COLOR(YLW)
0009.00      A            FLD02         20Y 3B  4 15
0010.00      A                                      COLOR(YLW)
0011.00      A                                  4  2'FIELD-02: '
0012.00      A                                      COLOR(YLW)
0013.00      A          R DETAIL002                 CLRL(*NO)
0014.00      A            FLD11         15Y 3B  3 20
0015.00      A                                  3  5'FIELD-11: '
0016.00      A            FLD12         25Y 3B  4 20
0017.00      A                                  4  5'FIELD-12: '
0018.00      A            FLD13         35Y 3B  5 20
0019.00      A                                  5  5'FIELD-13: '
****************** End of data **********************************************************

 

 

 

 


Columns . . . :    6 100                Browse                          IROBO1/QRPGLESRC
SEU==>                                                                          PGM_DSP5
FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++Comments++++++++++++
*************** Beginning of data ******************************************************
0001.00 FDSP5      CF   E             WORKSTN
0002.00 C                   eval      fld11=1122334.455
0003.00 C                   eval      fld12=111222333444555.455
0004.00 C                   eval      fld13=11112222333344445555.455
0005.00 C                   dow       *in03=*off
0006.00 C   03              leave
0007.00 C                   exfmt     Detail001
0008.00 C                   exfmt     Detail002
0009.00 C                   enddo
0010.00 C                   seton                                        lr
****************** End of data **********************************************************

 

 

               

OUTPUT

 

Record format DETAIL001 is in yellow color and 2nd record format DETAIL002 is in green color. Hence, if there is any overlapping it will be clearly visible.                                                                                                                   

 


 
FI FIELD-11:  000 000001122334455
FI FIELD-12:  000 0000000111222333444555455
   FIELD-13:      00000000000011112222333344445555455
 
 
 
 

                                                                               

                                                           

If we press ENTER to display another record format, then below is the output:

                    

                                                                               



FIELD-01:  : 0000000000  22334455
FIELD-02:  : 00000000000000000000  44555455
   FIELD-13:      00000000000011112222333344445555455
 
 
 
 

                                                                               

                                         

                                     

Case (2):   CLRL(*ALL)

 

·         When Parm=*ALL, then all lines are cleared before displaying the record.

 

Now we change the display file keyword to CLRL(*ALL) for record format DETAIL001 as shown below:

 


Columns . . . :    1 100                  Browse                        IROBO1/QRPGLESRC
SEU==>                                                                              DSP5
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++ ...+... 9
*************** Beginning of data ******************************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CA03(03 'EXIT')
0003.00      A          R DETAIL001
0004.00      A                                      CLRL(*ALL)
0005.00      A            FLD01         10Y 3B  3 15
0006.00      A                                      COLOR(YLW)
0007.00      A                                  3  2'FIELD-01: '
0008.00      A                                      COLOR(YLW)
0009.00      A            FLD02         20Y 3B  4 15
0010.00      A                                      COLOR(YLW)
0011.00      A                                  4  2'FIELD-02: '
0012.00      A                                      COLOR(YLW)
0013.00      A          R DETAIL002                 CLRL(*ALL)
0014.00      A            FLD11         15Y 3B  3 20
0015.00      A                                  3  5'FIELD-11: '
0016.00      A            FLD12         25Y 3B  4 20
0017.00      A                                  4  5'FIELD-12: '
0018.00      A            FLD13         35Y 3B  5 20
0019.00      A                                  5  5'FIELD-13: '
****************** End of data *********************************************************

 

OUTPUT

              

Since everything is cleared, there won’t be anything like overlapping here.

 

 
 
FIELD-01:    0000000000
FIELD-02:    00000000000000000000
 
 

                                                                                

                                                                               

Press ENTER to see another record format.

                                                                               


 
FIELD-11:      000001122334455
FIELD-12:      0000000111222333444555455
FIELD-13:      00000000000011112222333344445555455
 
 
 
 

                                                                                

                                                                               

                                                                               

Case (3):  CLRL(nn)

 

·         When Parm=nn, then the clearance starts from the very first line of the record and continues up to  nn specified.

 

Now we change the display file keyword to CLRL(1) for record format DETAIL001 as shown below:

 


Columns . . . :    1 100                  Browse                        IROBO1/QRPGLESRC
SEU==>                                                                              DSP5
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++ ...+... 9 ...+.
*************** Beginning of data ***************************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CA03(03 'EXIT')
0003.00      A          R DETAIL001
0004.00      A                                      CLRL(1)
0005.00      A            FLD01         10Y 3B  3 15
0006.00      A                                      COLOR(YLW)
0007.00      A                                  3  2'FIELD-01: '
0008.00      A                                      COLOR(YLW)
0009.00      A            FLD02         20Y 3B  4 15
0010.00      A                                      COLOR(YLW)
0011.00      A                                  4  2'FIELD-02: '
0012.00      A                                      COLOR(YLW)
0013.00      A          R DETAIL002                 CLRL(*ALL)
0014.00      A            FLD11         15Y 3B  3 20
0015.00      A                                  3  5'FIELD-11: '
0016.00      A            FLD12         25Y 3B  4 20
0017.00      A                                  4  5'FIELD-12: '
0018.00      A            FLD13         35Y 3B  5 20
0019.00      A                                  5  5'FIELD-13: '
****************** End of data *******************************************************

 

                                                                               

CLRL(1) means that 1 lines starting from FIELD-01 will be cleared. Hence the 2nd and 3rd fields will be overlaid.


 
FIELD-01:  : 0000000000
FIELD-02:  : 00000000000000000000  44555455
   FIELD-13:      00000000000011112222333344445555455
 
 
 
 

                                                                               

                                         

Press Enter…

 


 
FIELD-11:      000001122334455
FIELD-12:      0000000111222333444555455
FIELD-13:      00000000000011112222333344445555455
 
 
 

                                                      

Case (4):  CLRL(*END)

·         When Parm=*END, then the clearance starts from the very first field of the record and continues up to  END of the display i.e. 24 or 27.

                                                                               

 


Columns . . . :    1 100                  Browse                        IROBO1/QRPGLESRC
SEU==>                                                                              DSP5
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++ ...+... 9 ...+
*************** Beginning of data ******************************************************
0001.00      A                                      DSPSIZ(24 80 *DS3)
0002.00      A                                      CA03(03 'EXIT')
0003.00      A          R DETAIL001
0004.00      A                                      CLRL(*ALL)
0005.00      A            FLD01         10Y 3B  3 15
0006.00      A                                      COLOR(YLW)
0007.00      A                                  3  2'FIELD-01: '
0008.00      A                                      COLOR(YLW)
0009.00      A            FLD02         20Y 3B  4 15
0010.00      A                                      COLOR(YLW)
0011.00      A                                  4  2'FIELD-02: '
0012.00      A                                      COLOR(YLW)
0013.00      A          R DETAIL002                 CLRL(*ALL)
0014.00      A            FLD11         15Y 3B  3 20
0015.00      A                                  3  5'FIELD-11: '
0016.00      A            FLD12         25Y 3B  4 20
0017.00      A                                  4  5'FIELD-12: '
0018.00      A            FLD13         35Y 3B  5 20
0019.00      A                                  5  5'FIELD-13: '
****************** End of data **********************************************************

 

OUTPUT

              

Here the clearing will start from FIELD-01 and will continue upto END.

Since everything is cleared, there won’t be anything like overlapping here.

 


 
FIELD-01:    0000000000
FIELD-02:    00000000000000000000
 
 
 
 

                                                                               

                                                                               

Press ENTER to see another record format.

                                                                                


 
FIELD-11:      000001122334455
FIELD-12:      0000000111222333444555455
FIELD-13:      00000000000011112222333344445555455
 
 
 

                                                                               

 





User Comments:





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