Occasionally it comes in handy to know the length of the data within a field.  One example would be when moving larger fields to smaller ones.  If the actual data contained in the larger field will be truncated you may want to know during processing.  This can be done very easily with the CHECKR command.

DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++

D @SIZE                            S                                3  0   INZ(000)

D Holiday                          S                               50      

CL0N01Factor1+++++++Opcode&ExtExtended-factor2+++++++++++++++++++

C            ' '                            CHECKR     Holiday            @SIZE

If the value for Holiday was  'Festivus for the rest of us!                      '

@SIZE would be returned with a value of 28