OPEN I-O STUDENT. MOVE '1000' TO STUDENT-ID. DELETE STUDENT RECORD INVALID KEY DISPLAY 'Invalid Key' NOT INVALID KEY DISPLAY 'Record Deleted' END-DELETE. CLOSE STUDENT. STOP RUN. JCL 执行上面的COBOL程序 −//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HE...
顺序文件（程序部） OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部） OPEN1.INPUT只读2.OUTPUT只写3.I-O读写4.EXTEND写（文件末尾追加）顺序文件（程序部） 读文件READfile-name[ATENDstatements][NOTATENDstatements]END-READ 顺序文件（程序部）写文件...
OPEN "mode" file-name. 1. 在这里,文件名是字符串文字,你将用它来命名你的文件。文件可以在以下模式中打开: Read(读取)动词 读取动词是用于读取文件记录。读取功能是从文件中获取记录。在每个读取动词中,只有一个记录可以读入文件结构。要执行读操作,请在INPUT或I-O模式下打开文件。在每个读取语句中,文件指针...
OPEN I–O FILE–NAME. 可读可写的文件。 OPEN EXTEND FILE–NAME. 生成写入的文件。与UOTPUT的区别在于,若文件已存在,EXTEND将纪录加在文件末尾。 如果OPEN不成功,执行USE语句。USE语句不存在,则程序结束。 顺序文件的OPEN可以有以下方式: OPEN INPUT FILE–NAME [(WITH NO REWIND)/REVERSED]. OPEN OUTPUT FI...
功能 顺序I-O模块提供按建立的顺序存取文卷记录的功能。这个顺序是由把记录写到文卷上而建立的。级别特征 对文卷控制款、文卷描述款及I-O-CONTROL段中的各款,1级顺序I-O提供局部功能。在过程部中对CLOSE、OPEN、READ、USE和WRITE语句,1级顺序I-O提供了局部功能,而对READ和REWRITE语句提供了完整功能。
| | | | present at the time the OPEN statement is | | | | | executed. The file has been created if | | | | | the open mode is I-O or EXTEND. This does | | | | | not apply to MVS and VM VSAM sequential | | | | | files. | | | |---+---| | | | 7 | For ...
54 005500 OPEN I-O DISPFILE. 55 005600 ACCEPT CURRENT-DATE FROM DATE. 56 005700 SET NOT-END-OF-JOB TO TRUE. 57 005800 PERFORM UNTIL END-OF-JOB 005900 58 006000 MOVE ZEROS TO INDIC-AREA 6 59 006100 IF CURR-DAY = 01 THEN 60 006200 SET NEW-MONTH TO TRUE 7 006300 END-IF 61 ...
o PostgreSQL C Library (libpq) 8.4 or later https://www.postgresql.org/ https://www.postgresql.jp/ 2) COBOL Development System Ocesql is tested with the following COBOL compilers: o OpenCOBOL 1.1 https://sourceforge.net/projects/open-cobol/ o opensource COBOL 1.5.2J https://www.osscons...
I-O Input-Output 模式用于读取和重写文件的记录。 Read 动词 Read 动词用于读取文件记录。read 的功能是从文件中获取记录。在每个读取动词处,只能将一条记录读入文件结构。要执行读取操作,请在 INPUT 或 IO 模式下Open 文件。在每个读取语句中,文件指针都会递增,因此会读取连续的记录。 句法 以下是文件访问模...
55、CS9(3)V9(2)、05IM-INVENTORY-DAT、A10IM-REORDER-POINTPIC S9(5) 、10IM-ON-HAND PIC S9(5) 、10IM-ON-ORDER PIC S9(5) 、PROCEDUREDIVISION、A000-UPDATE-INVENTORY-FI、LEOPENINPUTI-OINVMASTOUTPUTERRTRANVALTRANPERFORM B000-PROCESS-INVENTORY-TRANTHRU000-EXITUNTILVALTRAN-EOFCLOSEVALTRANINVMA...