精通cobol－－9.3.2 使用OCCURS语句得到的表空间结构

最新推荐文章于 2023-09-17 13:06:16 发布
最新推荐文章于 2023-09-17 13:06:16 发布
阅读量3.1k 收藏
点赞数
文章标签： cobol 存储
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/COBOL_OS/article/details/2303326
版权
本文详细介绍了COBOL中OCCURS语句的作用，强调它并不节省存储空间，而是为了简化代码。通过实例展示了使用OCCURS定义的表结构，并解释了如何正确计算由此产生的存储空间大小，提醒初学者避免在计算时忽略OCCURS的重复次数。
摘要由CSDN通过智能技术生成

    这里需要说明的是，使用OCCURS语句只是避免了重复书写相类似的定义代码。OCCURS语句并没有压缩定义数据的存储空间。数据的存储空间大小和不使用OCCURS语句时，定义数据的存储空间大小是相同的。

通过下面的图解可以更直观的说明这一点。首先，使用OCCURS语句定义一个普通结构的表，代码如下。

01   TEST-TABLE-TWO             

     05     TEST-ROW           OCCURS 3 TIMES.        

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

最低0.47元/天 解锁文章
COBOL_OS
关注
利用cobol 的occurs 表特性，打印分析 报表
shenghuiping2001的专栏
10-21 2137
今天在家，实现了有cobol 来对数据进行处理，打印报表， 对数据的过滤，分析很有用，下面先看一下打印的结果： C:\MinGW\local\bin>C:\2012\cobol_t\test\SAMPLE_25                    0    5   10   15   20   25   30 (恖)      +----+----+----+----+----+--
COBOL中关于数组的操作
QueenJade的收录
03-28 6301
原文地址：COBOL中关于数组的操作作者：基股传话<br />一．表的概念<br />COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。<br />表中，序号称为下标，相对地址称为位标，下标和位标称为“出现号”。<br /> <br />二．表的建立（OCCURS子句）<br />    格式：OCCURS  整数  TIMES<br />    举例：01  PRODUCT-RECORD.<br />             03 RODUCT  OCCURS  20  TIME
精通cobol－－9.3.1 OCCURS语句的使用方法
COBOL
04-18 7035
OCCURS语句的语法格式如下。OCCURS n TIMES.其中，“n”为一个整型数据类型，指明了重复的次数。“TIMES”是该语句固定格式的一部分内容，不可任意指定。OCCURS语句用于在数据部的工作存储节定义表，并且OCCURS不能出现在01级数据类型后。例如，以下代码就错误地使用了OCCURS语句。01   TEST-TABLE-ONE               OCCU
精通cobol－－9.3 定义表语句OCCURS
COBOL
04-18 2421
  从前面所述已经可以看到，定义一个表关键是通过OCCURS语句进行的。OCCURS语句定义了表中条目的重复次数。拥有可重复的数据条目结构是表区别于其他数据结构的本质特征。因此，可以直观地根据是否具有OCCURS语句，来判断该数据结构是否为表。 
COBOL
weixin_34409741的博客
07-17 96
2019独角兽企业重金招聘Python工程师标准>>> ...
COBOL......6
技术的死亡
03-06 678
COBOL语言之数组 数组子句(OCCURS 子句) OCCURS 子句指定数据项为固定项目数或可变项目数的数组。OCCURS 子句不能 用于01 和77 层的项目，但可以用于基本或组合数据项目。如： 01 TIME-WORKED. 03 WEEK PIC 9 OCCURS 7 （T...
proleap-cobol-parser:基于ProLeap ANTLR4的COBOL解析器
05-23
AST以语法树结构表示普通的COBOL源代码。 ASG通过语义分析从AST生成，并提供数据和控制流信息（例如，变量访问）。 EXEC SQL，EXEC SQLIMS和EXEC CICS语句被提取为文本。 该解析器是受测试驱动开发的，通过了NIST...
COBOL-Source-Viewer:使用 Web 浏览器查看和导航 COBOL 源文件
06-21
创建适当的文件夹结构：- mkdir ./source/code mkdir ./source/copy mkdir ./html/code mkdir ./html/copy 将所有 COBOL 代码放在 ./source/code 文件夹中，并将 COBOL copybook 代码放在 ./source/copy 文件夹...
精通COBOL大型机商业编程技术详解.部分1
03-30
精通COBOL大型机商业编程技术详解.修订版_部分1.pdf 共两个文件，因为大于60M上传不了。就拆分成了两个文件。 本文件是第一部分
Cobol学习笔记（整理中80%）
最新发布
m0_65939803的博客
09-17 4903
01 A03 AA注释：外部文件只有数据结构，没有部节等信息。03 YMD.注释：重定义共享内存地址，一个质变了影响另一个值，不能用在文件节01层，可用在数据单元节01层，层号必须相同，长度相同，重定义子句不能赋初值。
C10-COBOL 表处理
adozoo
09-26 1101
COBOL 表处理 COBOL中的数组称为表。数组是一种线性数据结构，是同一类型的单个数据项的集合。表的数据项在内部进行排序。 表声明 表在数据部（Data division）中进行声明。occurs子句用于定义一个表，表示数据名称定义的重复。它只能用于02到49的级数。不要使用带有redefines的occurs子句。一维和二维表的描述如下： 一维表 在一维表中，occurs子句仅在声明中使用一次。WS-TABLE是包含表的组项。WS-A命名出现10次的表元素。 语法 以下是定义一维表的语法： 01 WS
cobol中的表（数组）
大道至简
05-21 1834
表 实际上是储存连续空间上相似数据的集合，等同于java中的数组。 按照类型不同表可分为： 下标表和索引表 定长表和变长表 下标表 01 ANNUAL-DEPOSIT-TABLE. 05 DEPOSITS PIC 9(5) OCCURES 12 TIMES. 05 DEPOSITS-SUB PIC 99 USAGE IS COMP. cobol中表的定义使用OCCURES，如上图所示，DEPOSITS定义的就是一个表，里面有十二个元素，每个长度为5。DEPOSITS-SUB是为了便于访问表中的数据
COBOL学习(2)-关键字和语法
uniqueren的专栏
12-01 2566
********************************************************************COPY * REPLACING * BY *.********************************************************************REPLACE * BY *REPLACE OFF.**************
COBOL语法和文法(2)
张铖@南通
12-15 4345
ACCEPT    从键盘或其他输入设备读取数据。    ACCEPT A FROM DEV.    从DEV读取数据到A，也可以省略FROM DEV，表示从键盘读取。    ACCEPT A FROM DATE/DAY/DAY-OF-WEEK/TIME.读取日期，表示为6个字符，如990909（1999年9月9日）。    读取当前日期在年度（前2位）中为第几天（后3位），表示为6个字符，如19
C6-COBOL 数据布局
adozoo
09-22 1665
COBOL 数据布局 COBOL布局是每个字段的使用及展现价值的描述，以下是COBOL中使用的数据描述项： Redefines（重定义）子句 Renames（重命名）子句 Usage（用法）子句 Copybook Redefines（重定义）子句 重定义子句用于定义具有不同数据描述的存储。如果一个或多个数据项不被同时使用，那么可以将相同的存储用于另一个数据项。因此，可以使用不同的数据项来引用相同的存储。 作用：不同的数据项可以共用内存中的同一段空间。例如已给数据项A分配了一段内存空间，在经过某一段的过程
COBOL 知识点集锦（下）
热门推荐
lanyanjiayu的专栏
06-05 1万+
知识点集锦（下）" alt="COBOL  知识点集锦（下）" src="http://blog.blogchina.com/template/common/img/array.gif" style="line-height:20px; border-right-width:0px; border-top-width:0px; border-bottom-width:0px; border-lef
cobol学习之五简单输入成绩的计算
指尖残雪
11-15 2148
代码功能：输入4科成绩，计算平均值，并用小数点形式输出，因为cobol在计算中使用V
COBOL-85中的IF与EVALUATE语句详解
"这篇文档是关于COBOL编程语言的一些补充知识，主要集中在IF语句和EVALUATE语句的使用上，包括不同版本的差异、多重分支的处理以及如何进行多条件测试。此外，还提及了REDEFINES子句在数据定义中的应用。" 在COBOL...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值