Length = 0 ..

Call Max Items ( I, 'T' : 
                          T = I.Volume
               ) 
               ( R, K :
                        Length = StrLen( R.Volume )
               )