第一篇：AS400 中系統(tǒng)安全性

系統(tǒng)安全性系統(tǒng)安全性是由操作系統(tǒng)提供的一系列保護措施。使系統(tǒng)管理員能夠保護和控制系統(tǒng)設(shè)備、數(shù)據(jù)、程序等資源的使用，并且能夠防止偶然事故或者蓄意破壞的發(fā)生。系統(tǒng)安全性的基本內(nèi)容包括： ? 物理安全性 ? 安全級別 ? 用戶特征文件（User Profile）? 用戶級別 ? 聯(lián)機安全（Sign On）? 資源安全

第二篇：第九章,系統(tǒng)安全性

第九章 系統(tǒng)安全性

1.信息資源的安全包括數(shù)據(jù)機密性，數(shù)據(jù)完整性，系統(tǒng)可用性三個方面。

2.對稱加密算法的優(yōu)點是加密速度快，而飛對稱加密算法的優(yōu)點則是秘鑰管理簡單。

3.為了防止口令被攻擊者猜出，用戶設(shè)置的口令必須足夠長，而系統(tǒng)則應(yīng)嚴(yán)格限制用戶輸入不正確口令的次數(shù)。

4.為了實現(xiàn)發(fā)送者A 和接受者B之間的保密數(shù)字簽名，發(fā)送者 A對要發(fā)送的信息可先用A的私用密鑰，再用B的公開密鑰進行加密之后再進行發(fā)送，而接受者在收到信息后，則先用B的私用密鑰，再用A的公開密鑰進行數(shù)據(jù)解密。

5.目前，利用公開密鑰進行身份認(rèn)證的工業(yè)標(biāo)準(zhǔn)是SSL協(xié)議。在利用該協(xié)議時，通信雙方必須先申請數(shù)字證書，并在通信之前通過其握手協(xié)議完成身份認(rèn)證，協(xié)商加密算法和密鑰。

6.不少系統(tǒng)中，在文件的FCB中存放有該文件的存取控制信息，這種方法其實是用訪問控制表來實現(xiàn)訪問控制矩陣的。

7.計算機病毒的主要特征是寄生性，傳染性，隱蔽性和破壞性。

8.對計算機病毒的檢測有多種方法，其中基于病毒數(shù)據(jù)庫的病毒檢測法主要是通過對可執(zhí)行文件與數(shù)據(jù)庫中的病毒樣本的比較來進行的；基于文件改變的病毒檢測法則主要是通過檢查文件的長度或者文件的修改日期和時間進行判斷；而完整性檢測法則是通過校驗和的檢查進行的。

第三篇：中國網(wǎng)上銀行系統(tǒng)安全性分析

中國網(wǎng)上銀行系統(tǒng)安全性分析

前言：本文是對于一般性質(zhì)的網(wǎng)上銀行系統(tǒng)安全性的技術(shù)分析文章，對于目前中國國內(nèi)具體銀行的安全性不具有評測功能，也不對任何第三方評測數(shù)據(jù)負(fù)責(zé)。以下是正文。

網(wǎng)絡(luò)銀行是一個比較新的概念，中國的網(wǎng)絡(luò)銀行大多是對現(xiàn)有銀行專用網(wǎng)的延伸和對銀行傳統(tǒng)業(yè)務(wù)方式的補充，銀行增加一些軟、硬件設(shè)備，使得用戶可以通過家用電腦連接銀行系統(tǒng)，進行各種普通的銀行業(yè)務(wù)，以彌補傳統(tǒng)銀行業(yè)務(wù)中營業(yè)網(wǎng)點少和營業(yè)時間短的不足。中國的網(wǎng)上銀行起步比較早的是深圳招商銀行，他們開發(fā)過第一個面向最終用戶的網(wǎng)銀系統(tǒng)。招行的網(wǎng)絡(luò)銀行有大眾版和專業(yè)版之分。隨著網(wǎng)絡(luò)的大規(guī)模普及，中國各個銀行也都逐步開啟自己的網(wǎng)銀系統(tǒng)，有些銀行的系統(tǒng)僅局限在賬戶信息查詢方面，有些則包含轉(zhuǎn)賬付款等功能，還有的已經(jīng)涉及貸款、投資等方面的內(nèi)容。隨著網(wǎng)銀的普及，網(wǎng)銀的安全性成為整個系統(tǒng)中最為至關(guān)重要的部分了。

今年以來，大量的關(guān)于網(wǎng)上銀行發(fā)生騙盜的報道不斷見諸報端。不法分子通過竊取用戶的卡號和密碼，大量盜竊資金和冒用消費，因此雖然網(wǎng)銀對于銀行和用戶都有不少好處，但是發(fā)生這些情況使得銀行在推廣網(wǎng)銀面臨非常巨大的風(fēng)險，提高網(wǎng)銀的安全性也是刻不容緩。

根據(jù)一般的報道分析，不法分子竊取用戶信息主要通過木馬程序來進行，比如，黑客首先在用戶電腦系統(tǒng)注入木馬程序后，駐留在中招電腦系統(tǒng)里的監(jiān)控系統(tǒng)就可以截取、監(jiān)控系統(tǒng)及用戶上網(wǎng)時打開的網(wǎng)銀密碼窗口。也就是說當(dāng)用戶在網(wǎng)銀程序里輸入卡號或密碼時計算機就會自動將相關(guān)信息的編碼發(fā)送給黑客，他們再據(jù)此進行反讀取以破譯，錢便被黑走了。目前的網(wǎng)銀系統(tǒng)的主要問題是，用戶安全性過于依賴用戶本身的素質(zhì)，對于安全觀念較差的用戶，其密碼很容易被盜取，因此這種“信任用戶”的安全模式設(shè)計是很不合理的。用戶的電腦可能安裝木馬程序，用戶的一舉一動都可能被監(jiān)聽和竊取，安全的網(wǎng)銀系統(tǒng)應(yīng)該設(shè)計成為這樣的：假設(shè)網(wǎng)銀的管理員是黑客，并在最終用戶電腦安裝木馬并且可以監(jiān)聽用戶的一切鍵盤鼠標(biāo)操作，網(wǎng)銀的管理員還可以進行系統(tǒng)管理和操作，但是網(wǎng)銀的管理員依舊無法通過網(wǎng)銀系統(tǒng)來竊取最終用戶的資金。如果能做到這一點，那么這個網(wǎng)銀系統(tǒng)就算是比較安全了。

明天，我將繼續(xù)介紹，這樣的網(wǎng)銀系統(tǒng)安全性是如何實現(xiàn)，從那些方面可以保證系統(tǒng)的安全性，以及這樣的系統(tǒng)存在什么樣的漏洞。

第四篇：RPG AS400程序員培訓(xùn)手冊6

CL、CMD

其實有關(guān)這一章，以及屏幕文件的，在網(wǎng)上已經(jīng)有很多人寫過了，想了想，還是說一下吧。

5.1 CL 程序

5.1.1 基本認(rèn)識

簡單的理解，CL 程序就是和RPG 相對應(yīng)的，是控制語言（Control Language）。類型為

CLP、CLLE 的源代碼編譯出來的程序，都屬于CL 程序。

可能還是不夠直觀，這么說吧，我們在交互式命令行上輸入的命令，用程序的方式來執(zhí)

行，這個執(zhí)行的程序，就是CL 程序。

學(xué)過UNIX 的會比較好懂，CL 程序有點類似于SHELL，不過SHELL 是可以直接執(zhí)行的，而且不用編譯；CL 程序需要編譯，而且要用CALL 的方式來執(zhí)行。不過原理是接近的，都是在程序中直接調(diào)用命令行的語句。

所以說，CL 程序其實很好寫，只要會輸入命令，就可以寫CL 程序了。在編輯CL 程

序時，也可以用“命令 + F4”的方式來寫，不需要老老實實的整行輸入。

CL 程序不像RPGLE 程序，在編寫時，可以使用自由格式書寫；一行的內(nèi)容如果太長

要，在最末尾處用“+”表示換行

舉個最簡單的例子，比如說新建個名為FHS01CL 的CLP 源程序，代碼如下：

PGM

WRKACTJOB

ENDPGM

編譯此程序，然后CALL 之，系統(tǒng)就會執(zhí)行命令WRKACTJOB，查看當(dāng)前的活動作業(yè)，效果與在交互式命令行下輸入WRKACTJOB 是一樣的。

當(dāng)我們輸入F12，退出WRKACTJOB 時，系統(tǒng)就會繼續(xù)向下執(zhí)行，發(fā)現(xiàn)是ENDPGM，表示程序結(jié)束了，于是判定執(zhí)行完畢，退出至交互式畫面。

5.1.2 CL 程序的常用語法及命令：

一、程序的開始與結(jié)束：

PGM PARM(&A &B)/* 開始CL 程序 */

ENDPGM /* 結(jié)束CL 程序 */

CL 程序，和RPGLE 程序一樣，也可以有程序的入口參數(shù)，而且程序的入口參數(shù)

都是可傳遞的（也就是輸入的參數(shù)如果在程序中被修改過，那么原調(diào)用的程序中的相應(yīng)

參數(shù)也會進行變化。不過CL 的入口參數(shù)只能為字符型，或數(shù)字型的單個字段，不能象

RPGLE 程序中那么多樣化（字段、結(jié)構(gòu)、數(shù)組、指針）。

如果CL 程序沒有入口參數(shù)時，那么就可以不需要后面的PARM 語句，直接寫成PGM

即可。

寫CL 程序時，不妨多使用F4，看看系統(tǒng)的幫助，這樣就不用記那么多命令的參

數(shù)名。

二、變量及其定義

CL程序中的所有變量，都使用&做為前綴，這一點與RPGLE 程序不同。比如說

PGM PARM（&A &B）

就表示入口參數(shù)為A、B 這兩個變量

在CL 程序中使用到的變量，都必須使用DCL 語句來定義：

DCL VAR(&FLD01)TYPE(*CHAR)LEN(10)

DCL VAR(&FLD02)TYPE(*DEC)LEN(10 2)

上述語句表示：

定義變量FLD01，10 位長的字符型變量

定義變量FLD02，10 長，其中2 位小數(shù)的數(shù)字型變量

除了字符、數(shù)字之外，CL 程序還可以定義邏輯變量(*LGL)，邏輯變量允許的值只

能為’1’或’0’。不過通常有字符與數(shù)字也就夠了。CL 程序的主要功能在于進行命令處理，而不是處理字符串以及數(shù)據(jù)庫

三、CL 常用命令：

CHGVAR--變量賦值

CHGVAR VAR(&FLD01)VALUE(‘ABCD’)

即是將變量FLD01 賦值成為’ABCD’(左對齊)，同理，VALUE 的括號中也可

以填寫一個變量，即表示將此變量的值賦值到變量FLD01 中。

數(shù)字型變量的賦值同樣也是使用CHGVAR 語句。

當(dāng)變量中只包含數(shù)字時（0—9），數(shù)字型變量與字符型變量可以使用CHGVAR

語句進行轉(zhuǎn)換，這一點與RPGLE 中的MOVE 語句比較類似。

IF--條件判斷語句

IF COND(&FLD01 *EQ '1')THEN(CHGVAR VAR(&FLD02)+

VALUE('0'))

當(dāng)變量FLD01 等于’1’時，將變量FLD02 中的值更改為’0’

THEN 后面，即是當(dāng)符合條件時，要執(zhí)行的命令。寫起來其實沒有看上去那么

復(fù)雜，多用F4 就會發(fā)現(xiàn)CL 程序?qū)懞唵巍?/p>

就比如上例，先寫IF，然后按F4，在Condition 處填寫條件語句，然后在

Command 處填上CHGVAR，再按F4，再去填相應(yīng)的處理語句，這樣寫，就比直

接把整句抄下來就簡單多了。

上面這種寫法，只能在符合條件時，執(zhí)行一條CL 語句；如果要執(zhí)行多條，就

必須寫做：

IF COND(&FLD01 *EQ '1')THEN(DO)

CHGVAR VAR(&FLD02)VALUE(‘0’)

其它執(zhí)行語句

ENDDO 也就是THEN 后面，用DO，表示接下來的語句都是在這個IF 條件成立時才

執(zhí)行（DO）的。

然后結(jié)束處用ENDDO，必須要有。ENDDO 在這里和循環(huán)沒有任何關(guān)系，表

示的是ENDIF 的意思，但是CL 語句里沒有ENDIF，只有ENDDO。

IF 語句中，表示判斷的關(guān)鍵字與RPGLE 中的Ifxx 操作碼類似，有

*EQ *GT *LT *GE *LE *NE

用來表示邏輯關(guān)系的關(guān)鍵字有

*AND, *OR, *NOT

GOTO--跳轉(zhuǎn)語句

GOTO 語句與RPGLE 中的GOTO 是一樣的，都是跳轉(zhuǎn)的意思。

FHSTAG：

GOTO CMDLBL(FHSTAG)

注意，這里定義標(biāo)簽是用“：” 冒號

MONMSG--監(jiān)控錯誤信息

我們使用CL 語句時，執(zhí)行的命令可能會報出一些異常錯誤，從而導(dǎo)致整個程

序中斷，需要手工干預(yù)。MONMSG 命令可以監(jiān)控我們預(yù)定的錯誤信息，使CL 程

序正常的向下運行。舉例而言，如果CL 程序中有如下語句：

CALL PGM(FHS01R)

MONMSG MSGID(CPF4131)

則表示當(dāng)系統(tǒng)調(diào)用程序FHS01R 時，如果發(fā)現(xiàn)有CPF4131（聲明的文件重新編

譯過，但程序未重新編譯）的錯，那么CL 程序?qū)⒉粫惓Ｖ袛?，僅僅只是不運行

程序FHS01R，然后繼續(xù)向下執(zhí)行CL 程序

MONMSG 還可以用于在監(jiān)控到錯誤信息之后，進行處理，如下：

CALL PGM(FHS01R)MONMSG MSGID(CPF4131)EXEC(CHGVAR VAR(&FLD01)+

VALUE('0'))

這句話就表示當(dāng)發(fā)現(xiàn)有CPF4131 的錯誤之時，將變量FLD01 賦值成為’0’

如果要執(zhí)行多句的話，和IF 語句的方法類似，也是使用DO 與ENDDO

MONMSG MSGID(CPF4131)EXEC(DO)

CHGVAR VAR(&FLD01)VALUE(‘0’)

其它處理語句

ENDDO

5.1.3 不常用的語法

%SST--取字符串

CHGVAR VAR(&FLD01)VALUE(%SST(&FLD02 3 1))

表示將字符變量FLD02，從第3 位開始，取1 位，左對齊賦值到變量FLD01 中。

%SST 的括號的參數(shù)中，第一個參數(shù)必須為字符型變量，第二個參數(shù)表示起始位，第三個參數(shù)表示要截取的長度。

*CAT--拼字符串

DCL VAR(&FLD01)TYPE(*CHAR)LEN(10)

CHGVAR VAR(&FLD01)VALUE('A' *CAT 'B')

即表示將10 位長的字符型變量賦值成為’AB ‘

‘A’，‘B’，也可以使用變量，如

CHGVAR VAR(&FLD01)VALUE(&FLD02 *CAT &FLD03)

要注意，*CAT 不能去掉字符串末尾的空，從效果上來看，有點類似于RPGLE 中的EVAL 操作碼，而不是CAT 操作碼

+、-、*、/--數(shù)學(xué)運算

數(shù)字型變量，可以進行數(shù)學(xué)運算 CHGVAR VAR(&FLD01)VALUE(&FLD01 + &FLD02)

即等同于RPGLE 程序中的 EVAL FLD01 = FLD01 + FLD0

2同理，-、*、/ 分別對應(yīng)減、乘、除

不過數(shù)學(xué)運行常用于RPGLE 程序中，較少用在CL 控制里面，這里只是介紹一下。

讀取文件：（From Cuer：P1421）

DCL VAR(&FLD01)TYPE(*CHAR)LEN(2)

DCLF FILE(FHSLIB/PFFHS)

RCVF

CHGVAR VAR(&FLD01)VALUE(&FHS01)

以上這段CL 的意思，就是在CL 程序中讀取PFFHS 文件，然后將讀到的第一條記

錄賦值到CL 的臨時變量FLD01 中。

如果要將一個文件從頭讀到尾，則可以用如下語句來實現(xiàn)：

DCLF FILE(FHSLIB/PFFHS)

LOOP：

RCVF

MONMSG MSGID(CPF0864)EXEC(GOTO CMDLBL(EXIT))

讀取到每條記錄后的處理語句

GOTO CMDLBL(LOOP)

EXIT：

也就是說，信息CPF0864，即表示未讀取到記錄。

在CL 程序中聲明文件使用DCLF 語句，一個CL 文件中只能聲明一個文件，聲明

語句必須在CL 控制語句之前。

使用聲明的文件中的字段，同樣需要在字段名前加上“&” ；

CL 程序中，無法控制游標(biāo)，無法對記錄進行定位操作。所以CL 程序?qū)ξ募牟? 作是比較弱的，通常我最多只用來讀取某些只含少量記錄的參數(shù)文件。

5.2 CMD

CMD 是用來生成命令的，執(zhí)行后可以像其它系統(tǒng)命令一樣，直接輸入命令，或是F4，不需要像CLP 一樣，要CALL 一下。

其實CMD 本質(zhì)上也是執(zhí)行CLP 或RPGLE（在編譯時指定），用起來，無非就是好看點，直接一些，除此之外的意義，似乎也就沒什么了。

舉個例子，比如我們查看一個文件中的內(nèi)容時，可以使用SQL 來查看，也可以使用命

令RUNQRY 命令來實現(xiàn)（RUNQRY QRYFILE（文件名））。但在我們要頻繁查看文件

時，這兩種方式似乎都不是很爽，也就是說要輸入的內(nèi)容都不是最少的，那我們可以設(shè)計一

個CMD，譬如說叫SEE，希望實現(xiàn)的最終效果，是在命令行輸入“SEE 文件名”，就

可以查看PF 文件中的記錄。那么，我們按如下步驟來實現(xiàn)：

1.建立一個CLP 程序，比如叫SEECLP，代碼如下

PGM PARM(&FILENAME)

RUNQRY QRYFILE(&FILENAME)

ENDPGM

2.編譯此程序

3.建立一個CMD 程序（即源代碼的屬性為CMD），代碼如下：

CMD PROMPT(' 顯示文件記錄 ')

PARM KWD(NAME)TYPE(*CHAR)LEN(10)MIN(1)+

CHOICE(' 顯示文件記錄內(nèi)容 ')+

PROMPT('Display file record')

4.編譯此CMD，用F4，可見如下畫面：

Create Command(CRTCMD)

Type choices, press Enter.Command............> SEE Name

Library...........> FHSLIB Name, *CURLIB

Program to process command...> SEE Name, *REXX

Library...........> *LIBL Name, *LIBL, *CURLIB

Source file..........> FHSFILE Name

Library...........> FHSLIB Name, *LIBL, *CURLIB

Source member.........> SEE Name, *CMD

Threadsafe...........*NO *YES, *NO, *COND

其中，藍色字體顯示的，就是我們需要輸入這個CMD 要調(diào)用的程序名（默認(rèn)值與

CMD同名），這里我們將此項內(nèi)容填為SEECLP，表示SEE 這個CMD，調(diào)用的是SEECLP

這個程序

5.編譯成功之后，我們在命令行執(zhí)行“SEE 文件名”，就可以看到指定文件的記錄。也可以用SEE + F4 的方式來使用

6.要注意，CMD 中，PARM 表示的就是CMD 命令的參數(shù)，參數(shù)的個數(shù)、類型、長

度都必須與其調(diào)用的程序相匹配，但名稱可以與其調(diào)用的程序中的參數(shù)名稱不一

樣，而且名稱前面不能有“&”字符。

7.在PARM 參數(shù)中，MIN(1)，表示該項參數(shù)必須有值（即最小的有效長度為1），當(dāng)

參數(shù)無值時，將會自動出現(xiàn)SEE + F4 的效果，同時該項參數(shù)高亮顯示。試一試

就知道了

第五篇：RPG AS400程序員培訓(xùn)手冊

2.8.4.4 O--R

ON-ERROR(On-Error)

沒用過

OPEN {(E)}(Open File for Processing)打開文件

Factory 1 Operation Factory 2 Result HI LO EQ

OPEN 文件名

OPEN 后面的目標(biāo)，必須是在當(dāng)前程序中已聲明的文件名（不是文件的記錄格式名），而且在OPEN 操作之后，在程序結(jié)束之前之前，必須有對應(yīng)的CLOSE 操作。

使用OPEN 操作，文件在聲明時，必須使用USROPN 關(guān)鍵字（詳見D 行說明）。

ORxx(Or)邏輯判斷—或

Factory 1 Operation Factory 2 Result HI LO EQ

FLD01 IFGT FLD0

3FLD01 OREQ FLD0

2等價于

IF FLD01>FLD03 OR FLD01=FLD02

與IF、IFxx，AND、ANDxx 類似，RPGLE 的寫法OR，比RPG 的寫法ORxx 要靈活，而且可以用來表達一些復(fù)雜的邏輯關(guān)系。有鑒于此，所以通常IF 語句中，我會以O(shè)R 為主，基本不用ORxx。如果在編程序方面，公司/項目組無硬性要求，那我覺得還是少用ORxx 吧，總覺得這種寫法的邏輯關(guān)系看起來不直接，尤其是有很復(fù)雜的AND,OR 時。

OTHER(Otherwise Select)分支語句的判斷

與分支語句SELECT 一起使用，表示不符合上述所有條件時的操作，如下：

Factory 1 Operation Factory 2 Result HI LO EQ

SELECT

WHEN 條件判斷1 處理語句1

WHEN 條件判斷

2處理語句2

OTHER

處理語句

3ENDSL

在這個例子中，當(dāng)滿足條件判斷1 時，運行處理語句1，運行結(jié)束后跳至ENDSL 處；

如果不滿足條件判斷1，則程序繼續(xù)向下執(zhí)行，判斷是否滿足條件判斷2。當(dāng)滿足條件判斷2 時，運行處理語句2，跳至ENDSL；當(dāng)不滿足

當(dāng)不滿足條件判斷2 時，程序繼續(xù)向下執(zhí)下，當(dāng)讀到OTHER 操作碼時，無條件運

行處理語句3（即當(dāng)程序當(dāng)前不滿足以上所以條件判斷時，則執(zhí)行OTHER 之后的語句。

處理語句允許有很多句；

條件判斷可以寫得很復(fù)雜，也允許對不同的字段進行判斷；比如說C 語言也有分支語

句switch，但是這個語句只能對一個字段進行分支判斷，ILE 語言與它不同，允許對不同的字段進行判斷

就我目前掌握的測試情況，上述的SELECT—WHEN--OTHER—ENDSL，其實也可以

寫做：

IF 條件判斷

1處理語句1

ELSEIF 條件判斷2

處理語句2

ELSE

處理語句3

ENDIF 即WHEN 與ELSEIF 是類似的，這樣說，應(yīng)該可以明白了吧。

總之，SELECT—ENDSL 是一個很好用的語法，尤其是在表示很多不同的分支處理時。

OUT {(E)}(Write a Data Area)

沒用過，講數(shù)據(jù)域的。

PARM(Identify Parameters)定義入口參數(shù)

Factory 1 Operation Factory 2 Result HI LO EQR

*ENTRY PLIST

PARM FLD01

關(guān)于具體內(nèi)容講解，詳見前面所說“入口參數(shù)”一章。

允許做為入口參數(shù)的有：普通變量、結(jié)構(gòu)變量、數(shù)組變量

關(guān)于PARM、PLIST，還有一種在Factory 1，F(xiàn)actory 2 也填寫變量或指示器的用

法，不過我不知道它具體表示什么意思，也不知道該怎么用。請用過的來補充。PLIST(Identify a Parameter List)同上

POST {(E)}(Post)

沒用過

READ {(N | E)}(Read a Record)讀取記錄

1.基本語法：

Factory 1 Operation Factory 2 Result HI LO EQ

READ 文件記錄格式名 45 46

READ后面跟的，必須是聲明的文件記錄格式名；

LO 指示器表示鎖表指示器，當(dāng)在指定的時間（CHGPF，WAITRCD 項可看到），需要讀取的記錄仍被鎖，將會打開LO 指示器，即*IN45=’1’；

EQ指示器為是否讀到指示器。當(dāng)未讀到仸何記錄時，打開EQ 指示器，即*IN46=’1’

2.當(dāng)文件在程序中，是用只讀的方式聲明時，READ 操作并不會造成鎖表； 如果文件在程序中是用修改的方式聲明，READ 操作成功后，該記錄被鎖；直到執(zhí)

行解鎖操作（UNLOCK，或UPDATE），或READ 該文件的其它記錄，才會解鎖

如果文件是用修改的方式聲明，但希望READ 操作不鎖表時，那么就用READ（N），即

Factory 1 Operation Factory 2 Result HI LO EQ

READ(N)文件記錄格式名 45 46

這樣讀文件，就不會鎖記錄，但是同時也不能修改記錄。如果需要修改記錄，那么 在修改之前（包括對文件字段賦值之前），還必須再對該記錄進行一次定位操作（比如

CHAIN、READ 語句均可）。也就是說，如果要修改記錄，必須先鎖住當(dāng)前記錄（很合理吧）

3.當(dāng)執(zhí)行READ 操作時，程序是根據(jù)游標(biāo)當(dāng)前在文件中所指向的位置，順序讀取下

一條記錄。關(guān)于游標(biāo)是如何指向，還不是一個很簡單的問題，所以將會在下一章“數(shù)

據(jù)庫相關(guān)知識”中具體講解。

4.執(zhí)行READ 操作時，允許聲明的文件沒有鍵值。（即PF 文件）

READC {(E)}(Read Next Changed Record)

沒用過，讀下一次修改過的記錄？

READE {(N | E)}(Read Equal Key)讀取鍵值相等的記錄

語法與READ 操作碼大致一樣，這里不再重復(fù)，只說不同的：

假設(shè)程序中已聲明邏輯文件PFFHSL3（鍵值為FHS01+FHS02）

Factory 1 Operation Factory 2 Result HI LO EQ

FHSKEY KLIST

KFLD FLD0

1KFLD FLD02

FHSKEY SETLL FMTFHS DOW 1=1

FHSKEY READE FMTFHS 1

5IF *IN15=’1’

LEAVE

ENDIF

ENDDO

這段話的意思，就是定義組合鍵值FHSKEY，然后根據(jù)這個FHSKEY 在邏輯文件

PFFHSL3 中去定位，循環(huán)讀取PFFHSL3 中，F(xiàn)HS01、FHS03 與FLD01、FLD02 相等的記

錄。當(dāng)讀取記錄結(jié)束，或鍵值不等時，退出循環(huán)（*IN15 是EQ 指示器）。如果將READE 操

作碼換成READ 操作碼的話（當(dāng)然，F(xiàn)actory 1 處也就不能有值），就沒有“鍵值不等時退出

循環(huán)”這一層意思，只是讀不到記錄時就退出循環(huán)，但有時我們使用邏輯文件，僅僅是需要

它的排序，而不需要讀不到鍵值相等的記錄就退出循環(huán)。所以說，使用READ 操作碼，還

是READE 操作碼，需要根據(jù)實際的要求來決定。

以上的Factory 1 處填寫值的系統(tǒng)處理，當(dāng)READE 操作碼在Factory 1 處未填寫值時，系統(tǒng)實際上是將當(dāng)前的值與讀到的上一條記錄的關(guān)鍵字進行比較，而不是與SETLL 時的鍵

值做比較（讀第一條記錄不做比較?。绻I值不等時，置EQ 指示器為1。也就是說，如果沒有與FHSKEY 鍵值相同的錄，那么系統(tǒng)并不是直接找開EQ 指示器，而是會一直保

持正常地往下讀，直到找到與讀到的第一條記錄關(guān)鍵字不同的記錄，才會打開EQ 指示器，所以要注意。

READP {(N | E)}(Read Prior Record)讀取記錄—游標(biāo)上移

簡單來說，READ、READE 操作時，游標(biāo)在數(shù)據(jù)文件中，是下移的；即讀完第一條記

錄，游標(biāo)指向第二條記錄；讀完第二條記錄，游標(biāo)指向第三條記錄，依此類推，直至最后一 條記錄。但READP 則正好相反，游標(biāo)是上移的，即讀完第三條記錄后，游標(biāo)指向第二條記

錄；讀完第二條記錄后，游標(biāo)指向第一條記錄，直至讀完第一條記錄。一般來說，用READ、READE 的概率會比READP、READPE 的概率高得多，不過在某些情況下，使用READP 操作，又的確會很省事，這個一時間想不起例子來，大家可在編

程序時多實踐。

READPE {(N | E)}(Read Prior Equal)

雖然我沒用過，但猜想它應(yīng)該就是指游標(biāo)上移，按鍵值去讀取文件。與READP 的關(guān)系，就類似于READE 與READ 的關(guān)系。

REALLOC {(E)}(Re-allocate Storage)

沒用過

REL {(E)}(Release)

沒用過

RESET {(E)}(Reset)

將數(shù)據(jù)結(jié)構(gòu)賦值成為初始值。

注意是初始值，不是清空。如定義結(jié)構(gòu)：

D FHSDS DS

D FHS01 10 INZ（’ABCD’）

D FHS02 5 INZ（’EFGH’）

那么，不管對該結(jié)構(gòu)如何賦值，當(dāng)執(zhí)行語句： C RESET FHSDS

之后，F(xiàn)HS01 將會變成’ABCD，F(xiàn)HS02 將會變成’EFGH’，即恢復(fù)成為初始值。

RETURN {(H | M | R)}(Return to Caller)

RETURN 是程序結(jié)束。

在前面，“簡單的程序流程”中，我們講過，“SETON LR” 與RETURN 這兩句話一

起，做為程序的結(jié)束。這里，再詳細(xì)解釋一下兩者之間的區(qū)別，以及關(guān)系： 如果不寫RETURN，只寫“SETON LR”，程序執(zhí)行完最后一句之后，將會再從第一

句開始執(zhí)行，造成死循環(huán)。在簡單的程序流程這個例子中，程序原來只想修改讀到的第一條 記錄，而如果沒有RETURN 的話，將會把所有的記錄都修改掉，直到最后找不到可修改的記錄，然后系統(tǒng)報錯，異常中斷。（這種離奇的現(xiàn)象現(xiàn)在又測試不到了，可能是當(dāng)時寫錯程 序了？把F 寫成了P？不管它，當(dāng)是我寫錯了，總之RETURN 是表示程序結(jié)束，沒有

RETURN，主程序無可執(zhí)行的語句時，它也會結(jié)束；如果RETURN 出現(xiàn)在主程序的中間，那么RETURN 后面的語句將不會執(zhí)行）

如果只寫RETURN，不打開指示器*INLR，根據(jù)blogliou 所說 “程序不會強制將內(nèi)存

中的數(shù)據(jù)寫到磁盤中。400 缺省的是BLOCK 輸出，即數(shù)據(jù)記錄滿一個BLOCK 塊時才會將

這一組記錄寫到磁盤上。那么如果這時BLOCK 沒滿，數(shù)據(jù)信息不會立刻寫到磁盤上。之后 有其它作業(yè)用到該文件，讀取的數(shù)據(jù)就不完整?！?/p>

但如果文件有唯一鍵字，或記錄日志，必須同步寫時，其實BLOCK 實際被忽略，也就 是此時不會有錯。目前我們用的是MIMIX 備份，客戶實際上將所有的文件都列入日志，這

時不寫也不會出現(xiàn)上述錯誤。但為避免一些潛在的問題，養(yǎng)成良好的編程風(fēng)格，建議將 SETON LR 與RETURN 一同，做為程序結(jié)束的標(biāo)志。當(dāng)然，如果某個程序頻繁被調(diào)用，且 不涉及文 操作時，可考慮不打開指示器*INLR，僅用RETURN 作為結(jié)束，這樣程序不

會被PURGE 出內(nèi)存，可提高調(diào)用效率。

如果沒寫RETURN，也沒有打開指示器*INLR，在編譯時，系統(tǒng)將會報40 級錯，說找

不到程序結(jié)束的語句，所以大可放心。ROLBK {(E)}(Roll Back)

1.基本語法

Factory 1 Operation Factory 2 Result

ROLBK

2.該操作碼無其它參數(shù)，就是指對事務(wù)處理進行回滾操作。3.ILE 程序中，ROLBK 操作可隨時進行，也允許在沒有聲明COMMIT 類型的文件的情況下，仍進行ROLBK 操作（對該進程這前的事務(wù)進行確認(rèn)處理）f

4.關(guān)于日志的確認(rèn)回滾操作，在后面會另設(shè)專門章節(jié)講述。

2.8.4.5 S--Z SCAN {(E)}(Scan Character String)掃描字符串

掃描字符或字符串Factory 1 在目標(biāo)字符串Factory 2 中是否存在Factory 1 Operation Factory 2 Result HI LO EQ

FLD01 SCAN FLD02 N 26

FLD01 可以是字符，也可以是字符變量；可以是一位長，也可以是多位長。

當(dāng)FLD01 在FLD02 中存在時，EQ 指示器打開，即*IN26=’1’，同時將FLD02 中的起始

位置，賦值給N；

當(dāng)FLD01 在FLD02 中不存在時，EQ 指示器保持關(guān)閉狀態(tài)，即*IN26=’0’，同時N=0

允許從FLD02 中的指定位置開始檢查：

FLD01 SCAN FLD02:2 N 26

如上句，即表示從FLD02 的第2 位，開始掃描。

在實際使用中，比如說我們判斷某個字符是否為數(shù)字，就可以先定義一個0—9 的常量，然后將要判斷的字符去SCAN 一下這個常量

SELECT(Begin a Select Group)分支語句

在操作碼“OTHER”中講過，為方便讀者，列出簡單語法如下：

Factory 1 Operation Factory 2 Result HI LO EQ

SELECT

WHEN 條件判斷

1處理語句1

WHEN 條件判斷2 處理語句

2OTHER

處理語句

3ENDSL

要注意，SELECT 操作碼，必須有對應(yīng)的ENDSL 操作碼，否則編譯無法通過。

SETGT {(E)}(Set Greater Than)定位操作—大于

舉個例子吧，假設(shè)文件中有一個字段，是標(biāo)識順序號的，1、2、3、4。即該字段為1，表示第一條記錄，該字段為2，表示第2 條記錄。那么： Factory 1 Operation Factory 2 Result HI LO EQSETGT 文件記錄格式名

READ 文件記錄格式名

這個READ 操作，READ 到的，是第3 條記錄。也就是說，SETGT 操作碼，會將游標(biāo)

定位到大于鍵值的第一條記錄前。

在實際使用中，如果我們是按邏輯文件讀取，而且讀了一條記錄之后，對其鍵值相同的 記錄都不需要再讀取時，就可以用SETGT，不過需要注意，F(xiàn)actory 1 項，需要是與鍵值相

同的變量，即如果文件是使用多個字段做為鍵值，那么我們也需要先定義一個組合鍵值的變

量，然后Factory 1 處填寫這個組合鍵值的變量名。

當(dāng)聲明文件的鍵值有多項時，F(xiàn)actory 1 項的鍵值，允許小于文件的鍵值，但順序必須

一致。即聲明的文件如果鍵值為：FHS01、FHS02、FHS03，那么我們在程序中定義三個類

型與之相同的變量FLD01、FLD02、FLD03，以下寫法都是有效的FLDKEY KLIST

KFLD FLD0

1KFLD FLD0

2KFLD FLD03 FLDKEY SETGT 文件記錄格式名

FLDKEY KLIST

KFLD FLD01

KFLD FLD02

FLDKEY SETGT 文件記錄格式名

FLD01 SETLL 文件記錄格式名

SETLL {(E)}(Set Lower Limit)定位操作—小于

語法與SETGT 相同，含義與SETGT 不同。SETLL 操作碼，會將游標(biāo)定位到與鍵值相

等的第一條記錄之前，仍是上例，如果是 2 SETLL 文件記錄格式名

READ 文件記錄格式名

那么READ 操作碼讀到的記錄，就是第2 條記錄，看到了吧，和SETGT 不同。

SETLL 操作碼還可以用來簡單判斷當(dāng)前鍵值是否存在有記錄，以PFFHSL3 為例（鍵值

為FHS01、FHS02）

Factory 1 Operation Factory 2 Result HI LO EQ

FHSKEY KLIST

KFLD FLD0

1KFLD FLD0

2EVAL FLD01=’01’

EVAL FLD02=’02’

FHSKEY SETLL 文件記錄格式名 44

當(dāng)文件中有相應(yīng)記錄時，EQ 指示器打開，即*IN44=’1’

當(dāng)文件中無相應(yīng)記錄時，EQ 指示器關(guān)閉，即*IN44=’0’（與CHAIN 正好相反，要注意）

而在這種用法中，SETLL 與CHAIN 的區(qū)別在于，CHAIN 是定位讀取了記錄，而SETLL 僅僅只是判斷該記錄是否存在。所以用SETLL 操作，不能修改記錄，也無法取出記錄的值。

只能判斷記錄是否存在。如果要修改記錄，或取出記錄的值，還需要有一個讀取定位的操作，如READ，或READE、READP 等（最常用的，應(yīng)該就是READ 操作）

SETOFF(Set Indicator Off)關(guān)閉指示器

Factory 1 Operation Factory 2 Result HI LO EQ

SETOFF 10 11 1

2等價于

EVAL *IN10=’0’

EVAL *IN11=’0’

EVAL *IN12=’0’

在SETOFF 這個操作碼中，指示器填在HI、LO、EQ 哪里都沒關(guān)系，都是表示要被關(guān)

閉的指示器

SETON(Set Indicator On)打開指示器

Factory 1 Operation Factory 2 Result HI LO EQ

SETOFF 10 11 1

2等價于

EVAL *IN10=’1’

EVAL *IN11=’1’

EVAL *IN12=’1’

在SETON 這個操作碼中，指示器填在HI、LO、EQ 哪里都沒關(guān)系，都是表示要被關(guān)閉的指示器

SHTDN(Shut Down)

沒用過

SORTA(Sort an Array)沒用過

SQRT {(H)}(Square Root)開方

Factory 1 Operation Factory 2 Result HI LO EQSQRT 3 N

這時，N=3（因為3 的平方為9）9、3 都可以是數(shù)字型變量，或者直接是數(shù)字 SUB {(H)}(Subtract)減法操作

Factory 1 Operation Factory 2 Result HI LO EQ

FLD01 SUB FLD02 FLD0

3SUB FLD02 FLD03

看過前面的ADD、MULT 操作碼，這里不用解釋也應(yīng)該明白是什么意思了吧。那就不

多說了。

SUBDUR {(E)}(Subtract Duration)日期相減

1.減日期

Factory 1 Operation Factory 2 Result HI LO EQ

FLD01 SUBDUR N:*Y FLD02

表示將日期型變量FLD01 減去N 年，賦值到日期型變量FLD02 中；

N 可以是一個數(shù)字型變量，也可以就是一個數(shù)字，N 允許為負(fù)數(shù) *Y，*M，*D（還有其它的參數(shù)值，可見ADDDUR，其中有詳細(xì)解釋）

2.判斷兩個日期型變量之間的天/月/年數(shù)

Factory 1 Operation Factory 2 Result HI LO EQ

FLD01 SUBDUR FLD02 N:*D

這時，N 做為一結(jié)果變量，表示日期型變量FLD01 與FLD02 之間的天數(shù)

SUBST {(P | E)}(Substring)取字符/字符串 Factory 1 Operation Factory 2 Result HI LO EQSUBST FLD01:3 FLD02

表示從字段FLD01 的第3 位開始，取2 位，左對齊賦值到字段FLD02 中。

要求字段FLD01 的長度必須大于或等于3+2 位，否則程序會報錯。

可以嘗試用%SUBST 語句，也是等價的，如下

EVAL FLD02=%SUBST(FLD01:3:2)

表示的是同樣的意思。

起始位數(shù)3，取的長度2，在兩種寫法之下，都可以使用數(shù)字型變量來表達。

相比較之下，%SUBST 還有一種用法，就是對字符的指定位置賦值，這個就厲害了：

EVAL %SUBST(FLD02:3:2)=’01’

看到了吧，這句話就是說，使字段FLD02 的第3、4 位（即從第三位開始，兩位長）等

于“01”

TAG(Tag)定義標(biāo)簽，與GOTO 同用

Factory 1 Operation Factory 2 Result HI LO EQ

FHSTAG TAG

TEST {(D | T | Z | E)}(Test Date/Time/Timestamp)

沒用過

TESTB(Test Bit)

沒用過

TESTN(Test Numeric)

沒用過

TESTZ(Test Zone)

沒用過

TIME(Time of Day)--取當(dāng)前系統(tǒng)時間 Factory 1 Operation Factory 2 Result HI LO EQ

TIME FLD01

FLD01 可以是時間型或數(shù)字型變量

UNLOCK {(E)}(Unlock a Data Area or Release a Record)解鎖

Factory 1 Operation Factory 2 Result HI LO EQ

UNLOCK 文件記錄格式名

UNLOCK 是解鎖操作，在某種程度上，可以將UNLOCK 視為ROLBK，將UPDATE

視為COMMIT。即如果鎖定某條記錄，并對其字段進行賦值之后，使用UPDATE 語句，將

會把修改后的結(jié)果保存下來，即修改文件，而UNLOCK 語句則不會修改文件，即否認(rèn)了之 前對文件字段做的賦值修改。

從程序的執(zhí)行效率上來講，UNLOCK 的執(zhí)行效率是高于UPDATE 的，因為UPDATE

操作時，系統(tǒng)需要對文件的每一個字段進行確認(rèn)處理(DEBUG 時可以看到)，而UNLOCK 就

是簡單的解鎖而已。

UPDATE(Modify Existing Record)修改記錄

語法與UNLOCK 一樣。

這里需要說明一下，在執(zhí)行UPDATE 的時候，必須先使用READ、CHAIN 等操作碼鎖

定一條記錄。如果未鎖住記錄，UPDATE 操作碼將會報錯。當(dāng)執(zhí)行了UNLOCK、UPDATE、以及ROLBK 語句時，等于是解鎖，此時再執(zhí)行UPDATE 操作碼之前，必須再次鎖住記錄

操作；

WHEN {(M | R)}(When)分支判斷語句中的條件判斷

在操作碼“OTHER”，“SELECT”中都講過，仍列出簡單語法如下：

Factory 1 Operation Factory 2 Result HI LO EQ

SELECT

WHEN 條件判斷1 處理語句1

WHEN 條件判斷

2處理語句2

OTHER

處理語句

3ENDSL

WHENxx(When True Then Select)

上面的語法，是RPGLE 的語法，WHENxx 是RPG 的語法，也就是

SELECT

FLD01 WHENEQ FLD02

處理語句

1……..這樣的語法，在表達復(fù)雜的邏輯關(guān)系時，必須與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)

沒用過，看幫助，是表示對數(shù)組字段的累加統(tǒng)計。

假設(shè)DIMDATA 定義為一個數(shù)字型的數(shù)組變量，F(xiàn)HS01 為一個足夠大的數(shù)字型變量

Factory 1 Operation Factory 2 Result HI LO EQ

XFOOT DIMDATA FHS01

就表示將數(shù)組DIMDATA 中的所有記錄的值都取出來，匯總相加，賦值到數(shù)字變量

FHS01 中

XLATE {(P | E)}(Translate)

將一個字符串中指定的字符，更換成另外的字符。

舉例：如MYCHAR1，MYCHAR2 都是兩個20 位長的字符型變量

C MOVEL 'ABCAAAC123' MYCHAR1

C 'A':'9' XLATE MYCHAR1 MYCHAR2

執(zhí)行過這個語句之后，MYCHAR2 就等于”9BC999C123’，即將字符串MYCHAR1 中所

有的“A”都變成了“9”；

XLATE 也可能指定起始位置。如上句更改為：

C 'A':'9' XLATE MYCHAR1：4 MYCHAR2

則MYCHAR2 等于“ABC999C123”，指從第4 位開始（含第4 位），將“A”變成“9”

賦值。

Z-ADD {(H)}(Zero and Add)向數(shù)字型變量賦值

Factory 1 Operation Factory 2 Result HI LO EQ

Z-ADD FLD01 FLD02

將數(shù)字型變量FLD01，賦值到數(shù)字型變量FLD02 中。

Z-ADD、MOVE 雖然同是賦值操作碼，但Z-ADD 的用法就遠(yuǎn)沒有MOVE 那么變化多

端，只能在數(shù)字型變量之間賦值。所以也沒有什么可說的了。zero 如果要對數(shù)字型變量賦初值，使用*ZERO

Z-ADD *ZERO FLD02

Z-SUB {(H)}(Zero and Subtract)用0 減

Factory 1 Operation Factory 2 Result HI LO EQ

Z-SUB FLD01 FLD02

等價于

0 SUB FLD01 FLD02

等價于

EVAL FLD02=FLD01*(-1)

*ALL

*ALL 是個很有意義的變量，舉例：

EVAL FLD01=*ALL’0’

表示將字符型變量FLD01 賦值為全’0’

而

CLOSE *ALL

就表示關(guān)閉所有文件，意義與上面是不同的％LEN

取字符串的長度，舉例：

(MYLEN 為數(shù)字型變量，F(xiàn)LD01 為字符型變量)

EVAL MYLEN = %LEN(FLD01)

這句話的意思，是指取字符串FLD01 的長度，不過通常這樣用是沒意義的，因為直接

用%LEN 操作碼，取到的是字符串的總長度，不是有效字符的長度，也就是說FLD01 長度

為2，那么MYLEN 就恒等于2，不會變。就算變量FLD01 中沒有值，取出的MYLEN 也等

于2.。所以，%LEN 通常會與%TRIM 或是%TRIMR 一起使用，語法在下面介紹。

%TRIM，%TRIMR

都是去字符串變量中的空字符意思，%TRIM 是去字符串左邊的空字符；%TRIMR 是去

字符串右邊的空格。

通常我們在寫程序中，都是默認(rèn)字符串變量左對齊，所以我們使用%TRIMR 操作碼的概率應(yīng)該高一點。舉例：

EVAL MYLEN = %LEN(%TRIMR(FLD01))

這時的MYLEN，就是指變量FLD01 中的有效長度（前提條件是FLD01 中如果有值，是左對齊）。如果FLD01 為空，那么MYFLEN 為0；如果FLD01 首位有值，第二位為空，那么MYLEN 為1；如果FLD01 兩位都不為空，那么MYLEN 就等于2。

如果字符串左對齊，那么就使用%TRIMR

還有一種用法，假設(shè)字符串FLD04 為4 位長的字符，F(xiàn)LD01，F(xiàn)LD02 都是2 位長的字

符，且FLD01 等于“A ”，F(xiàn)LD02 等于“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)控程序信息。據(jù)說是可以屏蔽掉出錯信息，避免程序異常中斷，未經(jīng)測試。