【正文】 s 1a inz(*blank) Dint s 2s 0 inz(*zero ) C eval char1 = 39。 C return 此時字符串實際長度小于數(shù)字長度，move時，此時int顯示DSPLY 1Dchar1 s 2a inz(*blank) Dint s 2s 0 inz(*zero ) C eval char1 = 39。 C return 此時字符串實際長度大于數(shù)字長度，movel時，此時int顯示DSPLY 12move時，此時int顯示DSPLY 23當int向char移動時也遵循這個結(jié)果.函數(shù)比較一、 字符函數(shù)da s 30a inz(*blank)db s 20a inz(*blank)dc s 50a inz(*blank) 字符串連接c eval a=39。 dsply c else c pos dsply c endif %check(parator:base{:start}) : 在base串中查找第一個不在parator中存在的字符的位置，如果base中的所有字符均在parator中存在，則返回0。在運行時，若在指定的長度中找不到 NULL 終止符，則不出錯。gaodianhua is a good boy39。gaodianhua39。,39。139。轉(zhuǎn)換后返回的值具有與string相同的類型和長度。12345639。123439。abc39。 C eval to=39。對于字符或數(shù)字輸入，第二個參數(shù)是日期格式。)Ddate s dC eval date=%date(datestr:*iso)C date dsply（3）.%date()不指定任何參數(shù)，則返回系統(tǒng)日期(*ISO )Ddate s dC eval date=%date()C date dsplyDatefromat的格式共有如下幾種：RPG名稱 描述 格式（缺省分隔符） 有效分隔符 Length 示例 *MDY 月/日/年 mm/dd/yy / . , 39。39。對于數(shù)字或字符輸入，第二個參數(shù)是時間格式。第一個參數(shù)是日期、時間或時間戳記值。2006082139。左邊的值必須是日期或時間戳記。第一個參數(shù)是要轉(zhuǎn)換的值。 8 15/01/91 *YMD 年/月/日 yy/mm/dd / . , 39。Date－format假設是*ISO,則默認為”“Ddatestr s 10a inz(39。 C return 此時char1顯示為:ab ba45當from有如下定義時Dfrom s 3a inz(*zero ) Char1顯示為：abcba45 和日期有關的函數(shù)%date (expression{:dateformat})}:將表達式的值由字符、數(shù)字或時間戳記數(shù)據(jù)轉(zhuǎn)換成日期型, 第一個參數(shù)是要轉(zhuǎn)換的值。 C eval from=39。123439。12345639。abc39。截斷所有小數(shù)%inth(數(shù)字表達式):與%INT相同，不同點：轉(zhuǎn)換為帶四舍五入的整數(shù)格式%float(數(shù)字表達式): 將數(shù)字表達式的值轉(zhuǎn)換為浮點格式。,39。 not39。139。對基指針操作，務必現(xiàn)分配空間或賦值一個已分配空間的地址。）。:a:1)c if pos = 0 c 39。 C movel char1 int C int dsply C eval *inlr=39。 C move char1 int C int dsply C eval *inlr=39。 算數(shù)函數(shù)或操作碼 addcl0n01factor1+++++++opcodeamp。EXAM1039。oooo39。xxxxyyyy39。abcdefghijklmnopqrstuvwxyz39。）中。UNLOCK:對IN或OUT鎖定的數(shù)據(jù)區(qū)解鎖. 常量十六進制文字的格式是：x39。wuqiao39。文件狀態(tài)數(shù)據(jù)結(jié)構(gòu)F FileName CF E WORKSTN INFDS(FileDS)D FileDS DSD FileSt *STATUS數(shù)據(jù)域數(shù)據(jù)類型包括*CHAR，*DEC和*LGL三種。 河北省吳橋縣 111139。1373116956239。 結(jié)構(gòu)D ParmDS DS 1024D SFld1 5 0D SFld2 200D … …C *ENTRY PListC Parm ParmDSC* 這是我們經(jīng)常使用的一種結(jié)構(gòu)定義方式和使用方式，這種用于傳遞入口參數(shù)的數(shù)據(jù)結(jié)構(gòu)，一定不能使用INZ關鍵字。dcharr s 5a dim(12) 基指針基指針必須為4字節(jié)，且必須與 4 字節(jié)邊界對齊。 C eval tel1=39。 C eval age=30 C eval addr=39。 C*依次訪問每個數(shù)組元素C for t=1 to 2 C t occur mystru C addr dsply C endfor 外部描述數(shù)據(jù)結(jié)構(gòu)D DSName E DS EXTNAME（FileName） INZExtname(filename:{fmtname}) 關鍵字用來引用filename中的記錄格式，如未制定記錄格式名，則默認第一個記錄格式名。gaodianhuaC eval addr=39。OUT:寫入數(shù)據(jù)區(qū),當因子1是*LOCK時, 寫操作后數(shù)據(jù)區(qū)保持鎖定狀態(tài),當因子1為BLANK時, 數(shù)據(jù)區(qū)更新后解鎖。其中：d 指示文字是日期類型的 xxxxxx 是有效日期，其格式為控制規(guī)范上指定的格式 xxxxxx 包圍在單引號（39。其中：z 指示該文字是時間戳記類型的 yyyymmdd 是有效日期（年月日） 是有效時間（） 括在單引號中 毫秒是可選的，若未指定，則缺省為 0命名常量：可以代constd upper c 39。,*allu39。 dsply c when sum=5050 c 39。Dvar1 s 10s 0 Dvar2 s 10s 0 Dresult s 15s 0 C eval var1=100 C eval var2=200 C call 39。假如沒有export關鍵字，在執(zhí)行CRTPGM PGM(HBRCCU/FUNCTION) MODULE(HBRCCU/MAIN HBRCCU/FUNC1) 報錯。139。12339。oo39。0039。）。 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 eval gdh=%replace(rpl_str:src_str) C*gdh=’liuhaitao ,is a good boy’C eval rpl_str=39。: C src_str)+3:0)C*gdh=’liuhaitao ,is not a good boy’,當?shù)?個參數(shù)為0時，則插入rpl_strC eval gdh=%replace(rpl_str:gdh:%scan(39。如：％char（date:*iso） 或 ％char（time：*hms）%int(數(shù)字表達式) : %INT 將數(shù)字表達式的值轉(zhuǎn)換為整數(shù)。 C eval to=39。 C eval buf=39。 C eval buf=%xlate(from:to:buf) C buf dsply Buf顯示為:abc 56 /*4被空格替代*/當to的定義長度大于實際賦值長度時會出現(xiàn)這種情況：Dfrom s 30A Dto s 3 A Dbuf s 40A C eval from=39。abcoobb39。139。)Ddate s dC