【正文】 例如，2 月 10 日的天部分是 10 而不是 41。 8 14:00:00 *ISO 國際標(biāo)準(zhǔn)組織 . 8 *USA IBM USA 標(biāo)準(zhǔn)。39。 8 01/15/91 *DMY 日/月/年 dd/mm/yy / . , 39。如下：（1）．表達(dá)式?jīng)]有任何分隔符Ddatestr s 10a inz(39。12 214539。 C eval buf=%xlate(from:to:buf) C buf dsply Buf顯示為:abc456 /*4未被空格替代*/實(shí)際上from和to之間的位數(shù)是一一對(duì)應(yīng)的。 C eval buf=39。 C eval to=39。舉例：Dfrom s 30A Dto s 30A Dbuf s 40A （1）from串長度＝to串長度C eval from=39。Dbuf s 30a inz(*zero)C eval buf=’gaodianhua’C eval len=%len(buf)C*len=30Dbuf s 30a inz(*zero) varyingC eval buf=’gaodianhua’C eval len=%len(buf)C*len=10Varying的效果等同于:C eval len=%len(%trim(buf))二、 轉(zhuǎn)換及日期函數(shù)%char (表達(dá)式{:格式}): 可以將數(shù)字、日期、時(shí)間或時(shí)間戳記數(shù)據(jù)轉(zhuǎn)換為字符型。: C src_str)+3:4)C*同上C*gdh=’liuhaitao ,is notood boy’C eval gdh=%replace(rpl_str:gdh:%scan(39。 C eval rpl_str=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?？芍付ǖ淖畲箝L度是 65535。它也可用作帶 EVAL 操作碼的賦值的結(jié)果%STR（基指針{:最大長度}）（右邊）%STR（基指針:最大長度）（左邊）%alloc(number)Dealloc ptr1%realloc(ptr:number)Number必須是不帶小數(shù)的非浮點(diǎn)數(shù)。 is a good boy39。139。139。運(yùn)行后顯示0. 注意value是值傳遞。 C return 主過程由F、D、I、C、O規(guī)范表組成，使用’*ENTRY PLIST’語句指定模塊入口參數(shù)。 c return c eval count=0 c eval sum=0 c dow count=100 c eval sum=sum+count c eval count=count+1 c enddo c eval count=0 c eval sum=0 c dou count100 c eval sum=sum+countc eval count=count+1c enddo c sum dsply 中斷l(xiāng)eave 進(jìn)行下一次循環(huán)iter選擇結(jié)構(gòu)c if not (sum=5049 and count=100)c 10000 dsply c elseif sum = 5049 c 10001 dsply c elseif sum = 5051 c 10002 dsply c else c 10003 dsplyc*實(shí)現(xiàn)了嵌套c if sum=5050 c 10004 dsply c if sum 5049 c 10005 dsply c else c 10006 dsply c endif c else c 10007 dsply c endif c*實(shí)現(xiàn)了組選擇c select c when sum=5051 c 39。,*allg39。時(shí)間戳記文字的格式為 z39。日期文字的格式為 d39。139。在結(jié)果字段中指定數(shù)據(jù)區(qū)數(shù)據(jù)結(jié)構(gòu)時(shí)，VisualAge RPG 應(yīng)用程序在程序開始時(shí)檢索數(shù)據(jù)區(qū)中的數(shù)據(jù)，并在程序結(jié)束時(shí)將數(shù)據(jù)寫至數(shù)據(jù)區(qū)。 C eval other=39。 C*給第二個(gè)mystru賦值C 2 occur mystru C*等同于C eval %occur(mystru)=2C eval name=39。 C eval age=30 C eval addr=39。dpos1 s 5i 0 inz(*zero)dpos2 s 10i 0 inz(*zero)dpos3 s 3i 0 inz(*zero)dpos4 s 20i 0 inz(*zero)注意s(區(qū)位十進(jìn)制)dpos5 s 16s 0 inz(*zero) 浮點(diǎn)數(shù)只能定義為4字節(jié)和8字節(jié)df1 s 4f inz(*zero)df2 s 8f inz(*zero)c eval f2=c f2 dsply c eval f1=c f1 dsply 注意在小數(shù)點(diǎn)位數(shù)必須為blank。INZ關(guān)鍵字會(huì)讓系統(tǒng)在程序被激活時(shí)，自動(dòng)按結(jié)C* 構(gòu)各子字段的類型自動(dòng)初始化，否則上述結(jié)構(gòu)中SFld1字段的值將是一個(gè)非法的空格值而不是數(shù)字零。0317734879239。1373116956239。若未指定因子2，則將結(jié)果字段用作數(shù)據(jù)區(qū)名稱。139。 x39。xxxxxx39。abcdefghijklmnopqrstuvwxyz39。x1..39。pppp39。139。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