COBOL培训chart_03.pptVIP

数据部中的节 文件节（FILE SECTION）：用来描述程序中用到的输入文件和输出文件及其记录中各数据项的属性。 工作单元节（WORKING-STORAGE SECTION）：用来描述程序中用到的中间数据项。 联接节（LINKAGE SECTION）：用来描述调用程序间发生数据传递的数据项。 报表节（REPORT SECTION）:为了完成报表编制功能，此节用来规定欲输出的报表的“体裁”，设计各报表栏的打印形式和方法等。 文件节的作用：程序中每个输入或输出文件都要在文件节中加以描述。描述的内容包括 例如：DATA DIVISION. FILE SECTION. FD ACCOUNTS-RECEIVABLE LABEL RECORD IS STANDARD. DATA RECORD IS RECEIVALE. 01 RECEIVALE. 02 ACCOUNT PIC 9(6). 02 FILLER PIC X(3). 02 AMOUNT PIC 9(6). 02 NAME PIC X(65). 工作单元节：程序中用到的中间数据应在本节中描述。 工作单元节中描述的数据项分为两种： 孤立的数据，以层号77开头 组合项：以01到49之间的一个数字作为开头 对工作单元节中的数据赋以初值（VALUE子句） 只有对工作单元节中的数据项可以赋初值 如果在组合项的描述体中使用VALUE子句，初值只能是表意常量或非数值型常量 当用一个带符号的数据做初值时，相应的PIC子句中应该有“S”描述符 赋值时应注意类型的一致性 VALUE子句给出的值应适合PIC子句描述的范围，否则会出现截断或产生错误 COBOL 数据部初步 数据部（DATA DIVISION） 数据部是整个COBOL源程序中唯一描述数据的部分。 DATA DIVISION. WORKING-STORAGE SECTION. 77 NAME PIC 9(3). 数据部头 工作单元节 变量层次数 变量名称 表示要定义一个变量 变量的类型和长度 数据部（DATA DIVISION） 个人的基本情报 姓名 性别 生年月日 年 月 日 民族 01 PERSON_INF. 03 NAME-1 PIC X(20). 03 SEX-1 PIC X(2). 03 BIRTHDAY-1. 05 YEAR-1 PIC 9999. 05 MONTH-1 PIC 99. 05 DAY-1 PIC 99. 03 FOLK PIC X(2). COBOL中把有从属关系的数据用层次(level)关系来描述。 公司名称 77 COMPANY_NAME PIC X(20). 独立的变量，层号应为77 数据部（DATA DIVISION） 文件节（FILE SECTION） 工作单元节（WORKING-STORAGE SECTION） 数据部（DATA DIVISION） 02 A PIC 9PPPP. ? 30000 02 B PIC 9P(4). 变量低位的若干的零可以用‘P’来表示。 ‘P’ 02 A PIC S99. ? -30 02 B PIC S9(2). 定义一个带符号的数。 ‘S’ 02 A PIC 999V99. ? 123.82 02 B PIC 9(3)V9(2). 指出在定义的变量中隐含的小数点的位置。 ‘V’ 02 A PIC 9999. ? 4568 02 B PIC 9(4). 在变量中的每一位只能存放0-9之间的数字。 ‘9’ 举例 说明 数值型变量 数据部（DATA DIVISION） 在字母型变量中只允许存放字母或空格。但是不能放入字母和空格以外的字符。 02 A PIC AAAA. ? HELL 02 A PIC A(4). 在字符型变量中可以存放一些即非数字又非字母的字符。 比如 ‘/’ ， ‘*’。 02 A PIC X(8). ? 1/1/2004 字母型变量 字符型变量 数据部（DATA DIVISION） 浮动 ‘Z’ ‘*’ ‘$’ ‘+’ ‘-’ 02 A PIC B999B