【正文】 parm var2 C parm result C eval result=var1+var2 C eval *inlr=39。 C return 主過程由F、D、I、C、O規(guī)范表組成，使用’*ENTRY PLIST’語句指定模塊入口參數(shù)。Dvar1 s 10s 0 Dvar2 s 10s 0 Dresult s 15s 0 C eval var1=100 C eval var2=200 C call 39。 C parm var1 C parm var2 C parm result C result dsply C eval *inlr=39。 C return 子過程（1）、有返回值，在調(diào)用時(shí)當(dāng)作函數(shù)使用原型說明庫名：hbrccu文件:exam成員:aaaaDresult s 10i 0 inz(*zero) Da s 10i 0 Db s 10i 0 D*原型說明Dfunction pr 10i 0 Da 10i 0 value Db 10i 0 value C eval a=10 C eval b=10 C*有返回值，當(dāng)作函數(shù)使用 C eval result=function(a:b) C result dsply C EVAL *INLR=*ON C RETURN 庫名：hbrccu文件:exam成員:bbbbHnomainD*原型說明(加粗部分為過程或函數(shù)的返回值說明，也可以沒有返回值) Dfunction pr 10i 0 Da 10i 0 value Db 10i 0 value Dresult s 10i 0 D*子過程接口的定義（加粗部分表明可以被外部程序調(diào)用）Pfunction B export Dfunction pi 10i 0 Da 10i 0 value Db 10i 0 value C eval result=a+b C return result Pfunction E開始編譯：CRTRPGMOD MODULE(HBRCCU/FUNC1) SRCFILE(HBRCCU/EXAM) SRCMBR(BBBB)CRTRPGMOD MODULE(HBRCCU/MAIN) SRCFILE(HBRCCU/EXAM) SRCMBR(AAAA)CRTPGM PGM(HBRCCU/FUNCTION) MODULE(HBRCCU/MAIN HBRCCU/FUNC1) 編譯完成。運(yùn)行后顯示0. 注意value是值傳遞。假如沒有export關(guān)鍵字，在執(zhí)行CRTPGM PGM(HBRCCU/FUNCTION) MODULE(HBRCCU/MAIN HBRCCU/FUNC1) 報(bào)錯(cuò)。extfactor2+++++++result++++++++len++d+hiloeqc 1 add sum sum c sum dsply c*相當(dāng)于cl0n01factor1+++++++opcodeamp。139。139。139。139。1239。139。12339。139。gaodianhua39。 is a good boy39。oo39。not found39。%checkr(parator:base{:start})：在base串中查找最后一個(gè)不在parator中存在的字符的位置，如果base中的所有的字符均在prator中存在，則返回0。它也可用作帶 EVAL 操作碼的賦值的結(jié)果%STR（基指針{:最大長(zhǎng)度}）（右邊）%STR（基指針:最大長(zhǎng)度）（左邊）%alloc(number)Dealloc ptr1%realloc(ptr:number)Number必須是不帶小數(shù)的非浮點(diǎn)數(shù)。0039?？稍谧址磉_(dá)式有效的位置處使用此內(nèi)置函數(shù)。在此情況下，結(jié)果值的長(zhǎng)度與指定的長(zhǎng)度相同?？芍付ǖ淖畲箝L(zhǎng)度是 65535。）。Dptr1 s *Dbuf s 20a based(ptr2)C eval ptr1=%alloc(20)C eval %str(ptr1:20)=’gaodianhua’C eval ptr2=%alloc(20)C eval buf=’gaodianhua’C*與下面的結(jié)果相同C eval %str(ptr2:20)=’gaodianhua’舉例:Dptr1 s * Dbuf s 20a C eval ptr1=%alloc(20) C eval %str(ptr1:20)=39。 C eval buf=%str(ptr1:20) C*或 eval buf=%str(ptr1)C buf dsply C dealloc ptr1 C eval *inlr=39。 C return 或如下例子Dptr2 s * Dbuf s 30a based(ptr1) Dbuf1 s 20a C eval ptr2=%alloc(20) C eval ptr1=%alloc(%size(buf)) C eval buf=39。 C eval %str(ptr2:20)=%str(ptr1:30) C eval buf1=%str(ptr2) C buf1 dsply C dealloc ptr2 C dealloc ptr1 C eval *inlr=39。 C return 注意： Darr s 20a dim(5 ) Dparr s * dim(5 ) Dt s 3p 0 C for t=1 to 5 by 1 C eval arr(t)=39。+%char(t) C endfor C eval parr=%addr(arr) C*當(dāng)％addr的參數(shù)是數(shù)組的名時(shí)，則在基指針中存放的都是數(shù)組arr第一個(gè)元素C*的地址 C eval parr=%addr(arr(*)) C*當(dāng)％addr的參數(shù)是帶下標(biāo)(*)的數(shù)組名時(shí)，則在基指針中存放的相應(yīng)元素的地址 C for t=1 to 5 by 1 C eval gdh=%str(parr(t):20) C gdh dsply C endfor 6.%REPLACE（替換字符串:源字符串{:開始位置:要替換的源長(zhǎng)度}）Dsrc_str s 30a inz(*zero) VARYING Drpl_str s 15a inz(*zero) VARYING Dgdh s 40a