- 1、本文档共89页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第四章 数据部之一;4.1 概述;组合数据项——数据是相互关联的,也就是说存在内在联系
这是COBOL程序数据的最大特点; 程序过程部中出现的所有数据项都应当在数据部中对它们的属性进行说明。包括:
(1)每一个数据项的类型(是数值型或字符型…),它们在内存中的存储形式。它们的长度(占多少字节)。
(2)数据项间的相互关系。有的数据项之间有从属关系.例如一个组合项包括若干个初等项。哪些数据项是文件记录中的一部分?哪些数据项与文件无关,即不从属于记录。
(3)描述记录与文件??关系,即内存中的输入输出记录区是与哪一个文件有关联
(4)文件的属性。由多个记录组成一个“物理块”,一个记录包含多少个字节?文件有无标号记录等。;2、数据的层次和层号
COBOL中把有从属关系的数据用层次(level)关系来描述。数据的层次结构是:文件-记录-组合项-初等项。
逻辑上不能再细分的项,称为初等项(亦称基本项.Elementary item)。
包含苦干个初等项的项称组合项(Group item )。
数据项的最高层次是记录(Record)。在一个记录中可以分为若干层次。
;如有一“工人的每周工时记录”,其数据关系如下:
TIME-RECORD是记录名,
WEEKS-END-DATA和HOURS-WORKED 是组合项;我们在数据部中按照以下方式来表示:
01 TIME-RECORD.
03 NAME PIC X(20).
03 WORKER-NUMBER PIC 9(6).
03 WEEKS-END-DATE.
05 MONTH PIC 99.
05 DAYY PIC 99.
05 YEAR PIC 99.
03 HOURS-WORKED.
06 REGULAR PIC 99.
06 OVERTIME PIC 99. ;层次规定如下:
(1)用来描述数据的层次结构的层号从01开始,到49,即可用的层号为01—49。记录的层次最高,定为01层号
(2)从属项的层号比其上属项的层号高。即层号小的组合项包含层号大的数据项(组合项或初等项)。 层号不必要求连续。
(3)如果几个数据项都从属于同一组合项但互不从属,则这几个数据项应具有相同的层号;3、数据部的结构
数据部中通常用到的有以下几个节:
(一)文件节(FILE SECTION)
用来描述程序中用到的输入文件和输出文件及其记录中各数据项的属性。
(二)工作单元节(WORKING-STORAGE SECTION)
用来描述程序中用到的中间数据项。
(三)联接节(LINKAGE SECTION)
用来描述与调用程序间发生数据传递的数据项。
(四)报表节(REPORT SECTION)
为了完成报表编制功能,此节用来规定欲输出的报表的“体裁”,设计各报表栏的打印形式和方法等。
后面两个部分将在以后介绍。;4.2 文件节(FILE SECTION); DATA DIVISION.
FILE SECTION.
FD ACCOUNTS-RECEIVABLE (文件名)
LABEL RECORD IS STANDARD.
DATA RECORD IS RECEIVABLE.
01 RECEIVBLE. (记录名)
02 ACCOUNT PIC 9(6).
02 FILLER PIC X(3).
02 AMOUNT PIC 9(6).
02 NAME PIC X(65).
;2、文件描述
文件描述从FD(FILE DESCRIPTION)开始。FD后面跟文件名。此文件名为程序中使用的内部文件名
LABEL RECORD IS STANDARD表示“标号记录是标准”的。COBOL处理的磁盘磁带文件一般都有标号,故需要如此声明
对于卡片文件、打印文件等没有标号的文件则应写成: LABEL RECORD IS OMITTED
DATA RECORD IS RECEIVABLE.表示文件中包含的记录名( RECEIVABLE)。这一项可以省略
;3、记录描述
记录描述由01层号开头,后跟记录名:
01 RECEIVABLE.
文档评论(0)