function ccl_null(p_str)

function ccl_null(p_str)
define p_str string
define l_len integer
  let l_len=length(p_str.trim())
  if l_len = 0 then
     return true
  else
     return false
  end if

end function