Compress (with carriage line as space)

  ceterm = strip(TRANWRD(compress(upcase(compbl(dthcause)),,'h'),'0D0A'x,''));