function ccl_numstr(p1,p2) define p1,l_ret,l_ret1 string define 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