4gl 右取2字元function

 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

這個網誌中的熱門文章

第三世多杰羌佛說了義經

第三世多杰羌佛辦公室第十四號公告-極聖解脫大手印

頂聖如來多杰羌佛第三世雲高益西諾布簡介