- 1、本文档共46页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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.
您可能关注的文档
- 第八章 叶理和线理.ppt
- 第八组 ping命令.ppt
- 第八章第3课时 空间点、直线、平面之间的位置关系 课件(教材回扣夯实双基+考点突破+瞭望高考,共68页).ppt
- 第八组-物联网.ppt
- 第八章 酶的定向进化.ppt
- 第八讲 中文成语英译法定稿.ppt
- 第八章大学生恋爱与心理健康2011-1.ppt
- 第八讲 争议处理条件.ppt
- 第八讲 信用证2.ppt
- 第八组Niagara Falls.ppt
- 2025年休闲食品健康化转型下的市场拓展策略与渠道创新报告[001].docx
- 农村电商服务站品牌建设:2025年运营模式创新与品牌传播报告.docx
- 2025年互联网金融平台合规整改与金融科技监管的合规监督与可持续发展策略.docx
- 2025年短视频平台内容监管与平台社会责任关系研究报告.docx
- 农产品溯源体系在农产品质量安全监管中的信用体系构建与实施策略研究.docx
- 2025年工业互联网平台数据备份与恢复策略创新方案探讨.docx
- 2025年线上法律咨询服务平台法律咨询行业竞争策略研究.docx
- 农业产业集群农产品流通体系构建与发展机制报告.docx
- 智能制造领航者:2025年3D打印技术在规模生产中的应用效果分析报告[001].docx
- 农村金融服务创新与农村金融消费者权益保护法规实施效果分析报告.docx
文档评论(0)