与使用READ命令读取文件相对应,可以使用WRITE命令将数据写入文件。不过通常是使用REWRITE命令对文件中的数据进行写入更新的。在使用REWRITE命令之前,需要通过READ UPDATE命令指定更新数据所在的位置。同时,记录中的关键字是不可被更改的。以下代码反映了REWRITE命令的大致用法:
IDENTIFICATION DIVISION.
PROGRAM-ID. FWRITEPG.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
……
*
PROCEDURE DIVISION.
……
EXEC CICS READ FILE(‘TESTF’)
UPDATE /*此处需要包含UPDATE选项*/
RIDFLD(RECKEY)
INTO(REC-FIELD)
LENGTH(RECL)
RESP(ERR-CODE)
END-EXEC.
……
EXEC CICS REWRITE FILE(‘TESTF’)
FROM(REC-FIELD)
LENGTH(RECL)
RESP(ERR-CODE)
END-EXEC.
……
此外,通过COBOL程序在CICS中也可删除KSDS和RRDS文件中的记录。删除记录实际上也相当于是对文件数据的一种更新操作。以下代码反映了在程序中通过DELETE命令,删除文件中指定记录的大致方式:
IDENTIFICATION DIVISION.
PROGRAM-ID. FDELPG.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
……
*
PROCEDURE DIVISION.
……
EXEC CICS DELETE FILE(‘TESTF’)
RIDFLD(RECKEY)
LENGTH(RECL)
RESP(ERR-CODE)
END-EXEC.
……