第六章 COBOL中的表.pptVIP

  1. 1、本文档共46页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第六章 COBOL中的表

第六章 COBOL中的表 6.1 表的概念 6.2 表的声明 6.3 表的赋值与引用 6.4 表的应用 6.1 表的概念 COBOL语言中的表(TABLE)类似于其他高级语言中的数组(ARRAY)。 01 student-record. 02 wang. 03 math pic 9(4). 03 eng pic 9(4). 02 zhang. 03 math pic 9(4). 03 eng pic 9(4). …… 02 zhu. 03 math pic 9(4). 03 eng pic 9(4). 表中,序号(即指出表中第几个元素)称为下标,相对地址(相对于表中第一个元素的字节地址)称为位标,下标和位标统称为“出现号”。 6.2 表的声明(OCCURS子句) 格式:OCCURS 整数 TIMES (在数据部中说明) 举例:01 STUDENT-RECORD. 02 STUDENT OCCURS 100 TIMES. 03 MATH PIC 9(4). 03 ENG PIC 9(4). 进一步简化: 03 COURSE OCCURS 2 TIMES. 这样又建立了一个表 “COURSE”,它的元素需要两个下标才能确定,因此是一个二维表。如果要找第三个学生的英语成绩,则:COURSE (3, 2) , 第一个下标是指第几个学生,第二个下标指出第几门成绩。 此时STUDENT是一维表还是二维表? 01 EXAMPLE-TABLE-ONE. /*表的名称*/ 05 TABLE-COL OCCURS 5 TIMES. /*表的一列,共重复5列*/ 10 TABLE-ITEM-1 PIC X(1). /*表的第一个条目*/ …… /*省略表的其他条目*/ 10 TABLE-ITEM-N PIC X(3). /*表的最后一个条目*/ 当表中仅有一个条目时,则不需要定义表的列,而直接由条目 取代。 在该情况下表的定义如下。 01 EXAMPLE-TABLE-TWO. /*表的名称*/ 05 TABLE-ITEM PIC X(5) /*表的条目*/ OCCURES 3 TIMES. /*该条目重复3次*/ 01 TABLE. 02 A1 OCCURS 5 TIMES. 03 B1 PIC X(3). 03 B2 OCCURS 10 TIMES PIC 9(4). 03 B3 OCCURS 8 TIMES. 04 C1 PIC 9(6). 04 C2 OCCURS 20 TIMES PIC 99. 04 C3 PIC 9(4). 03 B4 PIC X(3). 02 A2 PIC X(5). 02 A3 PIC X(10). 1)A1,B1,B4是一维表,引用表元素只需一个出现号。如:A1(3),B1(5),B4(1)等。 2)B2,B3,C1,C3是二维表。引用它们需用两个出现号。如:B2(5,3), B3(4,8), C1(2,7), C3(1,8)等。 3)C2是一个三维表。引用时需用三个出现号。如:C2(4,3,1)。 4)A2, A3不是“表名”,而是普通的初等数据项。 01 TaxRec. 02 PAYENum PIC 9(8) 02 CountyCode PIC 99. 02 TaxPaid PIC 9(7)V99.

文档评论(0)

shuwkb + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档