function ccl_str_lastchar(p_str)

function ccl_str_lastchar(p_str)
#取得字串的最後一個字元
define p_str string
define l_len integer
define l_ans like type_file2.chr1
let l_len=p_str.getlength()
let l_ans=p_str.substring(l_len,l_len)
return l_ans
end function