trim 字串的範例

main
   define a string
   define b varchar(20)

  let a="1234567890"

  display a
  let b=ccl_trim(a)
  display b

  let b='  09876543  '
  let a=ccl_trim(b)
  display a

  let a="    abcde"
  display ccl_trim(a)

end main

function ccl_trim(p_str)
define p_str string
define l_str base.StringBuffer
   let l_str=base.StringBuffer.create()
   call l_str.append(p_str)
   call l_str.trim()
   return l_str.tostring()
end function