02 PROD-PRICEPIC 9(6)。
02 MANU-DATE
05 DATE-CCYYPIC 9(4)。
05 DATE-MMPIC 9(2)。
05 DATE-DDPIC 9(2)。
LABLE RECORD IS OMITTED :凡输出设备是打印机的都必须写明此句。如输出设备是磁盘,
则仍用 LABLE RECORD IS STANDARD。
01 层定义‘输出纪录区’ 的名字为 OUT-RECORD,由于 01 层属于 FD 描述体,因此也就指定
了
OUT-RECORD 和 OUT-FILE 的关系。
在用 WRITE 语句输出一个记录之前,应向输出记录区传送数据。如已将数据传送到上述各数
据项中,则在执行 W RITE OUT-RECORD 语句后,则记录区中的数据通过打印机打印出来。
WRITE 语句的一般形式: 标识符 2LINE
BEFORE 整数 LINES
WRITE 记录名 [FROM 标识符 1 ] AFTER ADVANCING 助忆名
PAGE
5。OPEN 语句:程序中如果需要读写文件,则该文件必须先用 OPEN 语句打开,系统在执行
READ,WRITE 以前先检查该文件是否已在规定的外部设备上准备就绪。
OPEN 语句的一般格式为:
INPUT文件名 1 [,文件名 2]。。。
OPEN OUTPUT文件名 3 [,文件名 4]。。。 。。。
6。CLOSE 语句:当对一个文件的读或写的操作已完成,就应关闭该文件。
CLOSE 语句的一般格式为:
CLOSE文件名 1 [,文件名 2]。。。
COBOL 通过 2 位长度的文件状态字(FILE-STATUS)来表示文件的操作结果是否成功,常见的
文件状态值及意义: