【文章內(nèi)容簡(jiǎn)介】 CU/MAIN HBRCCU/FUNC1) 編譯完成。（2）、沒有返回值，使用CALLP調(diào)用（注意加粗部分的調(diào)用）庫(kù)名：hbrccu文件:exam成員:aaaaDresult s 10i 0 inz(*zero) Da s 10i 0 Db s 10i 0 Dfunction pr Da 10i 0 value Db 10i 0 value Dresult 10i 0 C eval a=10 C eval b=10 C callp function(a:b:result)C result dsply C EVAL *INLR=*ON C RETURN 庫(kù)名：hbrccu文件:exam成員:aaaaHnomain Dfunction pr Da 10i 0 value Db 10i 0 value Dresult 10i 0 Pfunction B export Dfunction pi Da 10i 0 value Db 10i 0 value Dresult 10i 0 C eval result=a+b C return Pfunction E 運(yùn)行function后顯示20.注意：（1）在加粗斜體部分，如果改成如下：Dresult 10i 0 value 則表明是值傳遞，在function中調(diào)用改變不影響其外部的值。運(yùn)行后顯示0. 注意value是值傳遞。（2）export 表明定義的這個(gè)子過程可以被外部調(diào)用。假如沒有export關(guān)鍵字，在執(zhí)行CRTPGM PGM(HBRCCU/FUNCTION) MODULE(HBRCCU/MAIN HBRCCU/FUNC1) 報(bào)錯(cuò)。 算數(shù)函數(shù)或操作碼 addcl0n01factor1+++++++opcodeamp。extfactor2+++++++result++++++++len++d+hiloeqc 1 add sum sum c sum dsply c*相當(dāng)于cl0n01factor1+++++++opcodeamp。extfactor2+++++++result++++++++len++d+hiloeqc eval sum＝sum＋1c sum dsply subc sum sub 1 sum c sum dsply c*相當(dāng)于c eval sum=sum1c sum dsplymultc 3 mult 2 sumc sum dsply c*相當(dāng)于c eval sum=3*2c sum dsplydivc 12 div 3 sumc sum dsply c*相當(dāng)于c eval sum=12/3c sum dsply%rem()取余c eval count=%rem(13:3)c count dsply c*相當(dāng)于c 14 div 3 sum c mvr countc count dsplyc*注意：mvr只能用在div操作碼的后面,不能用在eval sum=14/3的后面，編譯報(bào)錯(cuò)move和movelMove 自右向左取值賦值給int，并右靠齊Movel 自左向右取值賦值給int，并左靠齊Dchar1 s 1a inz(*blank) Dint s 2s 0 inz(*zero ) C eval char1 = 39。139。 C movel char1 int C int dsply C eval *inlr=39。139。 C return 此時(shí)字符串實(shí)際長(zhǎng)度小于數(shù)字長(zhǎng)度，movel時(shí)，此時(shí)int顯示DSPLY 10Dchar1 s 1a inz(*blank) Dint s 2s 0 inz(*zero ) C eval char1 = 39。139。 C move char1 int C int dsply C eval *inlr=39。139。 C return 此時(shí)字符串實(shí)際長(zhǎng)度小于數(shù)字長(zhǎng)度，move時(shí)，此時(shí)int顯示DSPLY 1Dchar1 s 2a inz(*blank) Dint s 2s 0 inz(*zero ) C eval char1 = 39。1239。 C move char1 int C int dsply C eval *inlr=39。139。 C return 此時(shí)字符串實(shí)際長(zhǎng)度等于數(shù)字長(zhǎng)度，movel和move時(shí)，此時(shí)int都顯示DSPLY 12Dchar1 s 3a inz(*blank) Dint s 2s 0 inz(*zero ) C eval char1 = 39。12339。 C movel char1 int C int dsply C eval *inlr=39。139。 C return 此時(shí)字符串實(shí)際長(zhǎng)度大于數(shù)字長(zhǎng)度，movel時(shí)，此時(shí)int顯示DSPLY 12move時(shí)，此時(shí)int顯示DSPLY 23當(dāng)int向char移動(dòng)時(shí)也遵循這個(gè)結(jié)果.函數(shù)比較一、 字符函數(shù)da s 30a inz(*blank)db s 20a inz(*blank)dc s 50a inz(*blank) 字符串連接c eval a=39。gaodianhua39。 c eval b=39。 is a good boy39。 c eval c=a+b c c dsply c*c的值dsply為 gaodianhua is a good boy c eval a=%trim(a)+%trimr(b)c a dsplyc*c的值dsply為 gaodianhua is a good boy 掃描字符串c eval pos=%scan(39。oo39。:a:1)c if pos = 0 c 39。not found39。 dsply c else c pos dsply c endif %check(parator:base{:start}) : 在base串中查找第一個(gè)不在parator中存在的字符的位置，如果base中的所有字符均在parator中存在，則返回0。%checkr(parator:base{:start})：在base串中查找最后一個(gè)不在parator中存在的字符的位置，如果base中的所有的字符均在prator中存在，則返回0。%SUBST（字符串:開始位置{:長(zhǎng)度}）返回自變量字符串的一部分。它也可用作帶 EVAL 操作碼的賦值的結(jié)果%STR（基指針{:最大長(zhǎng)度}）（右邊）%STR（基指針:最大長(zhǎng)度）（左邊）%alloc(number)Dealloc ptr1%realloc(ptr:number)Number必須是不帶小數(shù)的非浮點(diǎn)數(shù)。%STR既可以用來獲取以 NULL 結(jié)束的字符串（當(dāng)在表達(dá)式的右邊使用時(shí)，此函數(shù)返回第一個(gè)參數(shù)指向的數(shù)據(jù)，直至（但不包括）指定長(zhǎng)度中找到的第一個(gè)空字符（x39。0039。）?？稍谧址磉_(dá)式