東軟cobol培訓(xùn)2(7)-文庫(kù)吧
2025-07-17 14:48 本頁(yè)面
【正文】 LABEL RECORD IS STANDARD. DATA RECORD IS RECEIVABLE. 01 RECEIVABLE. 02 ACCOUNT PIC 9(6). 02 FILLER PIC X(3). 02 AMOUNT PIC 9(6). 02 NAME PIC X(65). Neusoft Group Ltd. 2022年 3月 8日 ISS 過(guò)程部需要做什么？ 輸入輸出語(yǔ)句： 語(yǔ)句 描述 ACCEPT 從終端接受一個(gè)數(shù)據(jù) DISPLAY 向指定的輸出設(shè)備上輸出信息 OPEN 打開指定的文件 READ 從指定的文件中讀入一條記錄 WRITE 向指定的文件中寫入一條記錄 CLOSE 關(guān)閉指定的文件 Neusoft Group Ltd. 2022年 3月 8日 ISS ＯＰＥＮ語(yǔ)句 ? 其中： – 程序如果需要讀文件或?qū)懳募?，則該文件必須先用OPEN語(yǔ)句打開 – 一個(gè) OPEN語(yǔ)句可以打開一個(gè)或多個(gè)文件 OPEN INPUT|OUTPUT 文件名 1，文件名 2 ?? Neusoft Group Ltd. 2022年 3月 8日 ISS ＲＥＡＤ語(yǔ)句 ? 其中： – 在 READ語(yǔ)句中操作的對(duì)象是文件 ,每執(zhí)行一次 READ語(yǔ)句，就從指定文件中讀入一條記錄 – 在計(jì)算機(jī)內(nèi)存區(qū)中專門開辟一片存儲(chǔ)單元（輸入記錄區(qū)）來(lái)存放從文件讀入的信息 – 文件讀完時(shí)的處理 ,這是由 READ語(yǔ)句中的“ AT END” 子句來(lái)實(shí)現(xiàn)的 – 以用一個(gè) READ語(yǔ)句讀入一條記錄，并馬上將記錄區(qū)的內(nèi)容轉(zhuǎn)送到另一數(shù)據(jù)項(xiàng)中去 READ 文件名 RECORD [INTO 標(biāo)識(shí)符 ] [ 。 AT END 執(zhí)行語(yǔ)句 ] Neusoft Group Ltd. 2022年 3月 8日 ISS ＷＲＩＴＥ語(yǔ)句 ? 其中： – 輸出在環(huán)境部中確定所用的輸出設(shè)備 – 在用 WRITE語(yǔ)句輸出一個(gè)輸出記錄之前應(yīng)當(dāng)向該記錄區(qū)傳送數(shù)據(jù) – 可以用一個(gè) WRITE語(yǔ)句先把內(nèi)存中另一數(shù)據(jù)項(xiàng)的內(nèi)容傳給輸出的記錄區(qū)然后再輸出 – 當(dāng)不出現(xiàn) BEFORE或 AFTER時(shí)，大多數(shù)系統(tǒng)按等價(jià)于AFTER 1
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1