cics順序檔案處理中,使用瀏覽(browse)概念來進行操作。因而這些操作包括開啟瀏覽,執行檔案記錄讀取(正向/反向),關閉瀏覽等。
由於是cics命令,在cobol中使用時,必須包含在exec cics語句對中。
瀏覽可以用於訪問vsam檔案,包括pds,esds, ksds和rsds。
1. 開啟瀏覽(start browse)命令 startbr,命令格式:
startbr file() fct中的檔名如果找到沒有匹配記錄,則返回notfnd條件值,否則返回normal條件值。ridfieild() 定義起始位置,可以是索引鍵值(key),rrn或rba
[rrn | rba] 指示起始位置表述是rrn(relative record number用於rrds)還是rba
(relataive byte addres用於esds或ksds)
[gteq | equal] 起始於第乙個鍵值大於等於或嚴格等於指定索引鍵值的記錄
(故只對ridfield為索引鍵有效)
[generic] 只對ksds有效,指示僅部分ridfield指定的鍵值被使用
[keylength(data | literal)] 和generic共用,用於指示鍵長。二進位製半字長或字面值
[resp()] 返回條件值
2. 順序讀取(前向readnext / 反向readprev),命令格式:
file() fct中的檔名into() 讀出資料的存放位置
ridfld() 位置指標,和開啟瀏覽相承,會隨著讀取而相應前進或後退;
使用者也可在讀取之前指定之從而設定讀取位置
[rrn | rba] 起始位置表述內容,類似於開啟瀏覽
[keylength(~)] 類似於開啟瀏覽
3. 關閉瀏覽命令endbr,命令格式:
endbr file() fct中的檔名4. 重置瀏覽命令resetbr,命令格式:
resetbr file()其引數和開啟命令類似,起作用是重新開始乙個已經開啟的瀏覽ridfld()
[rrn | rba]
[gteq | equal]
[generic]
[keylength(~)]
返回條鍵值表:
條件值
原因
filenotfound
檔案沒有在fct中定義
endfile
到達檔案邊緣,沒有記錄可讀
illogic
vsam錯誤
invreq
瀏覽命令錯誤,通常是沒有在讀取之前啟動瀏覽
ioerr
底層輸入輸出錯誤
notfnd
命令中指定的記錄沒有找到
notopen
檔案沒有開啟(fct中配置屬性問題)
基於CICS的COBOL程式順序檔案處理
cics順序檔案處理中,使用瀏覽 browse 概念來進行操作。因而這些操作包括開啟瀏覽,執行檔案記錄讀取 正向 反向 關閉瀏覽等。由於是cics命令,在cobol中使用時,必須包含在exec cics語句對中。瀏覽可以用於訪問vsam檔案,包括pds,esds,ksds和rsds。1.開啟瀏覽 s...
COBOL的程式結構
cobol程式的結構比較嚴格。乙個完整的cobol程式由4部 division 組成 identification division.標識部 environment division.環境部 data division.資料部 procedure division.過程部 而每個部又由若干節 sec...
精通COBOL 11 2 1 子程式的命名規則
子程式的命名通常和普通程式的命名方式相同。但是需要注意的是,對於子程式而言,不可將其字首命名為以下這幾個名字。afbafh cbccee edcibm ifyigy igzilb 實際上,以上名字都屬於 ibm相關產品的名字。如果將子程式的字首命名為以上名字,則在主程式中將不能對其進行呼叫。當在主程...