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