Compress (exclude carriage line)

  cedesc01=Compress(strip(compress(dthnar01,,'h')),,'kw');