COBOL语言程序设计.ppt

《COBOL语言程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、COBOL语言程序设计许毅第四章数据部（一）4.1概述1、数据部的作用数据部（DATADIVISION）是整个COBOL程序中唯一描述数据的部分。凡是在程序中涉及的全部数据（输入数据、输出数据以及中间数据），都要在数据部中加以说明描述两种数据：孤立数据项组合组合数据项——数据是相互关联的，也就是说存在内在联系这是COBOL程序数据的最大特点程序过程部中出现的所有数据项都应当在数据部中对它门的属性进行说明。包括：(1)每一个数据项的类型(是数值型或字符型…)，它们在内存中的存储形式。它们的长度(占多少字节)。(2)数据项间的相互关系。有的数据项之间

2、有从属关系．例如一个组合项包括若干个初等项。哪些数据项是文件记录中的一部分?哪些数据项与文件无关，即不从属于记录。(3)描述记录与文件的关系，即内存中的输入输出记录区是与哪一个文件有关联(4)文件的属性。由多个记录组成一个“物理块”，一个记录包含多少个字节?文件有无标号记录等。2、数据的层次和层号COBOL中把有从属关系的数据用层次(level)关系来描述。数据的层次结构是：记录－>组合项－>初等项。逻辑上不能再细分的项，称为初等项(亦称基本项．Elementaryitem)。包含苦干个初等项的项称组合项(Groupitem)。数据项的最高层次是

3、记录(Record)。在一个记录中可以分为若干层次。如有一“工人的每周工时记录”，其数据关系如下：TIME-RECORD是记录名，WEEKS-END-DATA和HOURS-WORKED是组合项我们在数据部中按照以下方式来表示：01TIME-RECORD.03NAMEPICX(20).03WORKER-NUMBERPIC9(6).03WEEKS-END-DATE.05MONTHPIC99.05DAY-NUMBERPIC99.05YEARPIC99.03HOURS-WORKED.06REGULARPIC99.06OVERTIMEPIC99.层次规定如

4、下：(1)用来描述数据的层次结构的层号从01开始，到49，即可用的层号为01—49。记录的层次最高，定为01层号(2)从属项的层号比其上属项的层号高。即层号小的组合项包含层号大的数据项(组合项或初等项)。层号不必要求连续。(3)如果几个数据项都从属于同一组合项但互不从属，则这几个数据项应具有相同的层号3、数据部的结构数据部中通常用到的有以下几个节：(一)文件节(FILESECTION)用来描述程序中用到的输入文件和输出文件及其记录中各数据项的属性。(二)工作单元节(WORKING-STORAGESECTION)用来描述程序中用到的中间数据项。(三

5、)联接节(LINKAGESECTION)用来描述与调用程序间发生数据传递的数据项。(四)报表节(REPORTSECTION)为了完成报表编制功能，此节用来规定欲输出的报表的“体裁”，设计各报表栏的打印形式和方法等。后面两个部分将在以后介绍。4.2文件节（FILESECTION）1、文件节的作用程序中每一个输入或输出文件都要在文件节中加以描述。(1)文件名和文件属性。(2)文件中包括的记录的名字。(3)每个记录中数据的层次关系。(4)记录中各数据项的数据形式和占内存的大小。举例如下页：DATADIVISION.FILESECTION.FDACCOU

6、NTS-RECEIVABLE(文件名)LABELRECORDISSTANDARD.DATARECORDISRECEIVABLE.01RECEIVBLE.(记录名)02ACCOUNTPIC9(6).02FILLERPICX(3).02AMOUNTPIC9(6).02NAMEPICX(65).2、文件描述文件描述从FD（FILEDESCRIPTION）开始。FD后面跟文件名。此文件名为程序中使用的内部文件名LABELRECORDISSTANDARD表示“标号记录是标准”的。COBOL处理的磁盘磁带文件一般都有标号，故需要如此声明对于卡片文件、打印文件

7、等没有标号的文件则应写成：LABELRECORDISOMITTEDDATARECORDISRECEIVABLE.表示文件中包含的记录名（RECEIVABLE）。这一项可以省略最简单的文件描述体的一般格式3、记录描述记录描述由01层号开头，后跟记录名：01RECEIVABLE.注意本行末尾的句点在数据部的文件节要描述出记录的层次关系以及描述每个初等项的类型和长度如果记录下面不再分项，则如下表示01RECEIVABLEPICX(80).4、数据项描述在每一个初等项的名字后跟一个PIC子句，用来描述数据的类型和长度。例如：ACCOUNTPIC9(6).

8、数值型，6位FILLERPICX(3).字符型，3个字符AMOUNTPIC9(6).数值型，6位NAMEPICX(65).字符型，65个