精通cobol－－9.3.1 OCCURS语句的使用方法

OCCURS语句的语法格式如下。

OCCURS n TIMES.

其中，“n”为一个整型数据类型，指明了重复的次数。“TIMES”是该语句固定格式的一部分内容，不可任意指定。OCCURS语句用于在数据部的工作存储节定义表，并且OCCURS不能出现在01级数据类型后。例如，以下代码就错误地使用了OCCURS语句。

01 TEST-TABLE-ONE OCCURS 5 TIMES. ← 错误的用法

05 TEST-ITEM-ONE PIC X (3).

05 TEST-ITEM-TWO PIC X (5).

这里，TEST-TABLE是一个01级数据，其后是不允许跟OCCURS语句的。通常，应该如下使用OCCURS语句进行表的定义。

01 TEST-TABLE-ONE

05 TEST-ITEM-ONE PIC X (3). OCCURS 5 TIMES.

05 TEST-ITEM-TWO PIC X (5). OCCURS 5 TIMES.

以上代码中，TEST-ITEM-ONE数据条目和TEST-ITEM-TWO数据条目重复次数相同。因此，为简便起见，通常情况下可使用表的列来统一定义。当使用表的列来定义时，OCCURS语句应出现在表的列中，代码如下。

01 TEST-TABLE-ONE

05 TEST-ROW OCCURS 5 TIMES. /*OCCURS语句在表的列后*/

10 TEST-ITEM-ONE PIC X (3).

10 TEST-ITEM-TWO PIC X (5).

这样，该段代码和上段代码实现的效果是等价的，但此处只出现了一条OCCURS语句。当表中数据条目较多时，可以很显著地简化代码的书写。

精通cobol－－9.3.1 OCCURS语句的使用方法相关推荐

结束php语句的正确方法是,2011-2012-1-《PHP网页设计》试卷b
中国成教大学 2011-2012学年第一学期期末试卷(B卷) 课程名称<PHP网页设计>考生姓名_____________ 学号________ 考生须知:本课程为闭卷机试,考试时间为1 ...
asp.net select Case条件语句的使用方法
原文:http://www.111cn.net/net/vb-net/38548.htm 如果 testexpression 与任何 Case expressionlist 表达式匹配 ,则执行此 C ...
C#中return语句的使用方法
C#中return语句的使用方法 return语句终止它所在的方法的执行,并将控制权返回给调用方法,另外,它还可以返回一个可选值.如果方法为void类型,则可以省略return语句. return语句 ...
imp导入时出现IMP-00017：由于 ORACLE 错误 6550, 以下语句失败: 解决方法
imp导入时出现IMP-00017:由于 ORACLE 错误 6550, 以下语句失败: 解决方法参考文章: (1)imp导入时出现IMP-00017:由于 ORACLE 错误 6550, 以下 ...
python字典中删除键值对的del语句与pop方法
删除字典中的键值对的有del语句与pop方法,del 语句和 pop() 函数作用相同,pop() 函数有返回值,返回值为对应的值,del语句没有返回值.pop()函数语法:pop(key[,defa ...
sql语句ding_Navicat写sql语句的具体方法步骤
你们知道Navicat中怎么写sql语句吗?不清楚的朋友可以去下文学习一下Navicat写sql语句的具体方法步骤哦. Navicat写sql语句的具体方法步骤步骤一打开你电脑里的Navicat ...
结束php语句的正确方法是,结束 PHP 语句的正确方法是?
结束 PHP 语句的正确方法是? 答:; 航天器达到环绕地球所需要的最小速度被称为第一宇宙速度.() 答:√ 大学生时间管理常见问题的成因主要包括哪些答:缺乏时间管理的技巧周围环境.人际关系.其他 ...
ppst 视频—— mysql 的语句的优化方法介绍
ppst 视频-- mysql 的语句的优化方法介绍 :具体视频请点击 mysql的优化视频, 请关注ppst 技术微博视频分享平台 1.explain 指令的使用介绍 EXPLAIN select ...
ie的javascript语句失效修复方法
2007-01-20 01:01 ie的javascript失效了,不是设置的问题折腾了一晚上终于在水木上找到答案了,经过试验成功了.感谢这位haning.也希望转载之后,这篇文章能帮助更多的人. ...
oracle sql语句常用优化方法
oracle sql语句常用优化方法最近做一些报表查询,经常做一些小优化,在这里总结一下语句上的优化: 1.SELECT 语句中避免使用*,用那些字段就摘出哪些. 2.SQL语句尽量用大写: 因为 ...

精通cobol－－9.3.1 OCCURS语句的使用方法

精通cobol－－9.3.1 OCCURS语句的使用方法相关推荐

最新文章

热门文章