cobol_文件操作

《cobol_文件操作》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、文件操作文件种类1.顺序文件2.索引文件顺序文件环境部(FILE-CONTROL)SELECT[OPTIONAL]file-nameASSIGNTOFILE_VMS[ORGANIZATIONISSEQUENTIAL][ACCESSMODEISSEQUENTIAL]FILESTATUSISfile-status顺序文件数据部（FILESECTION）FDfile-name[LABELRECORDSARESTANDARD/OMITTED].01     record-name.-----recordname          05    PROD-CODE PIC  9（04）.    

2、      05    PROD-QUANTITY PIC  9（05）.          05    PROD-PRICE PIC  9（06）.          05    MANU-DATE.10DATE-CCYY PIC  9（04）.                   10  DATE-MM PIC  9（02）.                   10  DATE-DD PIC  9（02）.顺序文件（程序部）OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部）OPEN1.INPUT只读2.OUTPU

3、T只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部）读文件READfile-name[ATENDstatements][NOTATENDstatements]END-READ顺序文件（程序部）写文件WRITErecord-name[fromident-name].关闭文件CLOSEfile-name索引文件环境部(FILE-CONTROL)SELECT[OPTIONAL]file-nameASSIGNTOFILE_VMSORGANIZATIONISINDEXEDACCESSMODEISDYNAMICRECORDKEYISfile-prikeyFILESTATUSISf

4、ile-status.索引文件数据部（FILESECTION）FDfile-name[LABELRECORDSARESTANDARD/OMITTED].01     record-name.-----recordname          05    PROD-CODE PIC  9（04）.          05    PROD-QUANTITY PIC  9（05）.          05    PROD-PRICE PIC  9（06）.          05file-prikey.10DATE-CCYY PIC  9（04）.                   

5、10  DATE-MM PIC  9（02）.                   10  DATE-DD PIC  9（02）.索引文件（程序部）OPEN1.INPUT只读2.OUTPUT只写3.I-O读写索引文件（程序部）读文件READfile-name[INVALIDKEYstatements][NOTINVALIDKEYstatements]END-READ索引文件（程序部）写文件WRITErecord-name[INVALIDKEYstatements][NOTINVALIDKEYstatements]END-WRITE关闭文件