[計算機]rpgas400程序員培訓手冊-資料下載頁
2025-03-23 13:19本頁面
【正文】 3 ENDSL WHENxx (When True Then Select) 上面的語法，是RPGLE 的語法，WHENxx 是RPG 的語法，也就是 SELECT FLD01 WHENEQ FLD02 處理語句1 …….. 這樣的語法，在表達復雜的邏輯關系時，必須與ANDxx，ORxx 一起使用，所以我不 使用WHENxx 這個操作碼。 WRITE (Create New Records) 寫記錄 常用的方式： Factory 1 Operation Factory 2 Result HI LO EQ CLEAR 文件記錄格式名 EVAL 文件字段1=xxxx EVAL 文件字段2=xxxx WRITE 文件記錄格式名 表示在文件中寫入一條新記錄。文件需要聲明為可寫的。 通常會在給文件字段賦值之前，作一次CLEAR 操作來進行初始化，以避免不必要 的麻煩。 XFOOT {(H)} (Sum the Elements of an Array) 沒用過，看幫助，是表示對數組字段的累加統(tǒng)計。 假設DIMDATA 定義為一個數字型的數組變量，FHS01 為一個足夠大的數字型變量 Factory 1 Operation Factory 2 Result HI LO EQ XFOOT DIMDATA FHS01 就表示將數組DIMDATA 中的所有記錄的值都取出來，匯總相加，賦值到數字變量 FHS01 中 XLATE {(P | E)} (Translate) 將一個字符串中指定的字符，更換成另外的字符。 舉例：如MYCHAR1， MYCHAR2 都是兩個20 位長的字符型變量 C MOVEL 39。ABCAAAC12339。 MYCHAR1 C 39。A39。:39。939。 XLATE MYCHAR1 MYCHAR2 執(zhí)行過這個語句之后，MYCHAR2 就等于”9BC999C123’，即將字符串MYCHAR1 中所 有的“A”都變成了“9”； XLATE 也可能指定起始位置。如上句更改為： C 39。A39。:39。939。 XLATE MYCHAR1：4 MYCHAR2 則MYCHAR2 等于“ABC999C123”，指從第4 位開始（含第4 位），將“A”變成“9” 賦值。 ZADD {(H)} (Zero and Add) 向數字型變量賦值 Factory 1 Operation Factory 2 Result HI LO EQ ZADD FLD01 FLD02 將數字型變量FLD01，賦值到數字型變量FLD02 中。 ZADD、MOVE 雖然同是賦值操作碼，但ZADD 的用法就遠沒有MOVE 那么變化多 端，只能在數字型變量之間賦值。所以也沒有什么可說的了。zero 如果要對數字型變量賦初值，使用*ZERO ZADD *ZERO FLD02 ZSUB {(H)} (Zero and Subtract) 用0 減 Factory 1 Operation Factory 2 Result HI LO EQ ZSUB FLD01 FLD02 等價于 0 SUB FLD01 FLD02 等價于 EVAL FLD02=FLD01*(1) *ALL *ALL 是個很有意義的變量，舉例： EVAL FLD01=*ALL’0’ 表示將字符型變量FLD01 賦值為全’0’ 而 CLOSE *ALL 就表示關閉所有文件，意義與上面是不同的 ％LEN 取字符串的長度，舉例： (MYLEN 為數字型變量，FLD01 為字符型變量) EVAL MYLEN = %LEN(FLD01) 這句話的意思，是指取字符串FLD01 的長度，不過通常這樣用是沒意義的，因為直接 用%LEN 操作碼，取到的是字符串的總長度，不是有效字符的長度，也就是說FLD01 長度 為2，那么MYLEN 就恒等于2，不會變。就算變量FLD01 中沒有值，取出的MYLEN 也等 于2.。 所以，%LEN 通常會與%TRIM 或是%TRIMR 一起使用，語法在下面介紹。 %TRIM，%TRIMR 都是去字符串變量中的空字符意思，%TRIM 是去字符串左邊的空字符；%TRIMR 是去 字符串右邊的空格。 通常我們在寫程序中，都是默認字符串變量左對齊，所以我們使用%TRIMR 操作碼的 概率應該高一點。舉例： EVAL MYLEN = %LEN(%TRIMR(FLD01)) 這時的MYLEN，就是指變量FLD01 中的有效長度（前提條件是FLD01 中如果有值， 是左對齊）。如果FLD01 為空，那么MYFLEN 為0；如果FLD01 首位有值，第二位為空， 那么MYLEN 為1；如果FLD01 兩位都不為空，那么MYLEN 就等于2。 如果字符串左對齊，那么就使用%TRIMR 還有一種用法，假設字符串FLD04 為4 位長的字符，FLD01，FLD02 都是2 位長的字 符，且FLD01 等于“A ”，FLD02 等于“BC”，那我們執(zhí)行： EVAL FLD04 = FLD01 + FLD01 + FLD02 FLD04 就等于“A A ”，也就是第二位與第四位都是空的，最后加的FLD02 其實無 效。 而如果執(zhí)行 EVAL FLD04 = %TRIMR(FLD01) + %TRIMR(FLD01) + FLD02 則FLD04 就等于“AABC”，也就是說，在這里，%TRIMR(FLD01)，是等價于單字符 “A”的 MONITOR 監(jiān)控程序信息。據說是可以屏蔽掉出錯信息，避免程序異常中斷，未經測試。
環(huán)評公示相關推薦
鄂ICP備17016276號-1