FILE SECTION. WORKING-STORAGE SECTION. 77 END-OF-SESSION-SWITCH PIC X VALUE "N". 77 SALES-AMOUNT PIC 9(5)V99. 77 SALES-TAX PIC Z,ZZZ.99. * PROCEDURE DIVISION. 000-CALCULATE-SALES-TAX. PERFORM 100-CALCULATE-ONE-SALES-TAX UNTIL END-OF-SESSION-SWITCH = "Y". DISPLAY "END OF SESSION...
②.FILE SECTION.//文件节标识 ③.WORKING-STORAGE SETION.//工作存储节标识 ④.LINKAGE SECTION.//连接节标识 ⑤.COMMUNICATION SECTION.//通讯节标识 ⑥.REPORT SECTION.//报表节标识 过程部 A.功能:即程序逻辑处理部分、包含过程性语句 B.元素 ①.PROCEDUREDIVISION.//部起始标识 2XXXXXX SECTION...EXIT//...
输入输出节(INPUT-OUTPUT SECTION).文件的物理路径的定义。方法二:(过程部中动态指定文件)SELECT FILE-LOG ASSIGN TOSELECT-FILEORGANIZATION IS LINE SEQUENTIAL .在数据部定义字符串变量SELECT-FILE, 在文件 FILE-LOG 打开前动态指定文件路径。3 、数据部(DATA DIVISION) 。程序中的变量都在数据部中定义,Cobol 3...
FILE SECTION. FD INP-FILE RECORD CONTAINS 81 CHARACTERS DATA RECORD IS PER-IN. 01 PER-IN. 02 NAME PIC X(6). 02 BIRTHDAY PIC X(11). 02 AGE PIC 9(2). 02 NON-IN4 PIC 9(2). 02 GRADE PIC 9(2). 02 NON-IN5 PIC X. 02 STU-NUM PIC X(10). 02 SARARY PIC 9(4). 02 NON...
FILE SECTION.文件节 WORKING-STORAGE SECTION.工作存储节 LINKAGE SECTION.连接节 COMMUNICATION SECTION.通信节 REPORT SECTION.报表节 1.文件节 程序中每一个输入或输出文件都要在文件节中定义。包括: (1)文件名和文件属性。 (2)文件中包括的记录名。
コボル基本語法 一、COBOL基本語法 compla項目使用的Cobol是Micro Focus 公司生产的Cobol,采用在HP-UNIX上运行。一、cobol的书写格式（每行）1、前6列为序号区(一般不编辑)2、第7列为标示列，仅可以写如下几个标示符。a. “＊”注释符(注释当前行的代码)b “/“注释符(注释当前行的代码,程序编译时，强制...
文件节(FILE SECTION) 用来描述程序中用到的输入输出文件及其记录中各数据项的属性。 工作单元节(WOKING-STORAGE SECTION) 用来描述程序中用到的中间数据项。 联系节(LINKAGE-SECTION) 用来描述与调用程序间发生数据传递的数据项。 报表节(REPORT SECTION) 为了完成报表编辑功能,此节用来规定欲输出的报表的“体裁”,...
（1）首先，cobol程序可以跳开JCL，直接在cobol程序中直接指定外部文件（当然、大型开发没有这么做的），例：环境（ENVIRONMENT）部、INPUT-OUTPUT节、FILE-CONTROL段：ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTROL.SELECT FILE001 ASSIGN TO 'c:\1.txt'ORGANIZATION IS LINE SEQUENTIAL F...
DATADIVISION.FILESECTION.FDCBLABELRECORDSARESTANDARDVALUEOFFILE-IDIS"CB".COPYLLCFCBOFOLASSOURCE.01CBFILE-REC.COPYDD-R001OFCB.*通过copy系统中LLDCB的表的字段来定义本文件字段 3.文件的读 读文件使用READ命令,后面直接加上要读取的文件的文件名,一次只能读一条记录,想读文件中的多条记录时...
file-1 为导入后的source name 中划线-将被被替换为下划线_ file section 文件节 *---copybook 此处用实际copy句替换掉 stop run. 描述文件终止结束运行 注意:每行前八位为空格 结尾为英文句号,copy语句中的中划线在导入之后会被替换为下划线. 第八行注释,通过copy句或copybook替换掉,例如test.cbl 橙色...