基於CICS的COBOL程式順序檔案處理

2021-08-26 09:51:26 字數 1318 閱讀 5384

cics順序檔案處理中,使用瀏覽(browse)概念來進行操作。因而這些操作包括開啟瀏覽,執行檔案記錄讀取(正向/反向),關閉瀏覽等。

由於是cics命令,在cobol中使用時,必須包含在exec cics語句對中。

瀏覽可以用於訪問vsam檔案,包括pds,esds, ksds和rsds。

1. 開啟瀏覽(start browse)命令 startbr,命令格式:

startbr file() fct中的檔名 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()] 返回條件值

如果找到沒有匹配記錄,則返回notfnd條件值,否則返回normal條件值。

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相關產品的名字。如果將子程式的字首命名為以上名字,則在主程式中將不能對其進行呼叫。當在主程...