培訓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...