COBOL讀寫檔案HELLOWORD

2021-06-16 05:20:32 字數 1433 閱讀 3365

培訓cobol找不到多少資料,弄了一下午,才弄出乙個cobol讀寫檔案的helloword

**如下

000010 identification   division.

000020 program-id.   file1.

000030 environment   division.

000040 input-output   section.

000050 file-control.

000060     select goods-file  

000070     assign to "d:/goods.txt".

000080

000090 data    division.

000100 file     section.

000110 fd  goods-file.

000120 01  goods.

000130     03 goods-name  pic x(04).

000140 procedure   division.

000150     open input goods-file.

000160     read goods-file.

000170

000180     close goods-file.

000190     display goods-name.

000200     stop run.

ps:在標題部以外的三個部都有有關讀寫的**。

環境部中,有乙個叫input-output的節,節中有乙個file-control段。

在此段中用select關鍵字關聯內部和外部檔案。

內部檔案 goods-file,外部檔案d:/goods.txt,即在d盤根目錄下goods.txt檔案,這個檔案中我寫了四個字元。

資料部中要有環境部中定義的內部檔案,在file 節中,定義,fd關鍵字是定義出入力檔案的

在過程部中,首先用open關鍵字開啟檔案,其後跟乙個關鍵字限制許可權,許可權如下

input:

檔案只能用於讀取。 寫入,修改或者刪除操作會發生錯誤

output:

檔案只能用於寫入。讀取該檔案會發生錯誤。若開啟的檔案已存在則刪除所有現存記錄。

i-o:

檔案可以讀寫。

extend:

檔案只能寫入。將記錄插入到現有檔案的末尾。

值後用read關鍵字讀檔案,我覺得讀是讀入記憶體。

讀完之後要關閉,用close關鍵字,這裡的檔案只有一行,四個位元組。

所以沒有迴圈控制

總結:

感覺cobol的i/o很原始,在硬碟中有入出力檔案,在程式中有乙個入出力檔案的對映,在程式中可以操作這個對映,然後通過讀寫完成。

在三個部中都有內部檔名的,在環境部中連線,在資料部中通過fd定義,然後再操作部中操作。

C13 COBOL 檔案訪問模式

截至目前,已經對檔案組織方案進行了討論。對於每乙個檔案組織方案,可以使用不同的訪問模式。以下是檔案訪問模式的型別 本章節中提到的語法及其各自的術語,僅涉及它們在程式中的用法。使用這些語法的完整程式將在下一章討論。當訪問模式是按順序的,記錄檢索的方法根據所選的檔案組織而變化。語法 以下是順序訪問模式的...

c 檔案讀寫 文字讀寫

include int main else return 0 格式 intfscanf file stream,constchar format,返回值 如果成功,該函式返回成功匹配和賦值的個數。如果到達檔案末尾或發生讀錯誤,則返回 eof 引數1 file stream 檔案指標 引數2 cons...

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

cics順序檔案處理中,使用瀏覽 browse 概念來進行操作。因而這些操作包括開啟瀏覽,執行檔案記錄讀取 正向 反向 關閉瀏覽等。由於是cics命令,在cobol中使用時,必須包含在exec cics語句對中。瀏覽可以用於訪問vsam檔案,包括pds,esds,ksds和rsds。1.開啟瀏覽 s...