4gl 右取2字元function
function ccl_numstr(p1,p2)
define p1,l_ret,l_ret1 stringdefine p2 integer
define l_len integer
define l_i integer
if ccl_isnum(p1) then
let l_ret1='00000000000000000000000000000000000',p1
let l_len=p1.getLength( )
let l_i=l_len-p2+1
let l_ret=l_ret1.substring(l_i,p2)
else
return NULL
end if
end function