精通cobol－－9.12.2 使用SET语句对索引进行算术运算

最新推荐文章于 2022-05-21 19:34:09 发布
最新推荐文章于 2022-05-21 19:34:09 发布
阅读量2k 收藏
点赞数
文章标签： cobol up
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/COBOL_OS/article/details/2337457
版权
本文深入探讨了如何在COBOL中使用SET语句进行索引的算术运算，以实现更高效的数据操作。通过实例解析，帮助读者掌握这一高级技巧。
摘要由CSDN通过智能技术生成

对索引变量进行算术运算操作，仍然需要使用SET语句。以下依然结合上面定义的超市管理系统的索引表，通过几个小例子进行讲解。

（1）假设STORE-NDX已存有数据。现要求以该索引变量为基准，其后偏移2位索引的进货商品编号。这里并不知道当前STORE-NDX中的数据为多少。因此，必须使用算术运算，直接将STORE-NDX加上2
最低0.47元/天 解锁文章
COBOL_OS
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
精通cobol－－9.12.1 使用SET语句对索引赋值
COBOL
04-28 3112
前面讲过，不能按照通常的方式，使用MOVE语句对索引变量赋值。对索引变量赋值，必须使用SET语句。下面结合几个小例子，具体谈谈如何使用SET语句进行赋值操作。（1）求取索引为3所对应的进货商品编号和名称。此处可以首先将索引变量STORE-NDX置为3。然后，再通过该索引变量引用所求数据，并将结果存入相应位置。代码如下。SET  STORE-NDX  TO  3.            
精通cobol－－9.12 处理索引语句SET
COBOL
04-28 1945
　　前面已经讲到，对于索引表中的索引变量而言，是不能将其视作通常的变量进行处理的。如果要对索引变量进行操作，必须使用SET语句。使用SET语句对索引变量进行操作，大体上可以分为两大类型的操作。其中一种类型的操作是对其进行赋值操作，另一种是对其进行算术运算操作。下面结合一个实例分别对二者进行详细讲解。首先，以超市管理系统为基本模型。定义相应的索引表如下。01  MARKET-TABLE.
C10-COBOL 表处理
adozoo
09-26 1061
COBOL 表处理 COBOL中的数组称为表。数组是一种线性数据结构，是同一类型的单个数据项的集合。表的数据项在内部进行排序。 表声明 表在数据部（Data division）中进行声明。occurs子句用于定义一个表，表示数据名称定义的重复。它只能用于02到49的级数。不要使用带有redefines的occurs子句。一维和二维表的描述如下： 一维表 在一维表中，occurs子句仅在声明中使用一次。WS-TABLE是包含表的组项。WS-A命名出现10次的表元素。 语法 以下是定义一维表的语法： 01 WS
精通COBOL－－16.2.3 使用CEMT查询和设置资源
COBOL
04-29 1740
　　CEMT主要用于对定义后的资源进行查询以及设置，通常和CEDA的联系最为紧密。例如，以下操作将查询在CICS上定义的所有程序资源。CEMT  INQUIRE   PROGRAM(*)  CEMT  I           PROG(*)         /*此条为上条的简写方式，当熟练后通常采用此条表达方式，下同*/以上操作执行后，将会把CICS上所有定义过的程序列表出来。该列
COBOL中关于数组的操作
QueenJade的收录
03-28 6225
原文地址：COBOL中关于数组的操作作者：基股传话<br />一．表的概念<br />COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。<br />表中，序号称为下标，相对地址称为位标，下标和位标称为“出现号”。<br /> <br />二．表的建立（OCCURS子句）<br />    格式：OCCURS  整数  TIMES<br />    举例：01  PRODUCT-RECORD.<br />             03 RODUCT  OCCURS  20  TIME
open-cobol-0.30.rar_COBOL compiler_COBOL85下载_OpenCOBOL_cobol_ope
09-19
在“open-cobol-0.30.rar”这个压缩包中，包含了所有必要的文件和文档，用户只需按照提供的指南操作即可完成安装。 在实际使用过程中，OpenCOBOL 0.30支持常见的COBOL85语法，并且兼容许多COBOL74和某些COBOL2002...
大型机-COBOL大作业-COBOL练习汇总.pdf
最新发布
11-05
2. 编辑数据时，使用了表对文件中的记录进行存储和处理，并按照指定的格式输出编辑后的结果。 3. 在数据处理的过程中，会检测数据的合法性，对于不合法的数据报错或进行相应的其它处理。 4. 更新数据时，创建一个...
课程2--COBOL高级编程.pdf
06-13
本教程的目标是帮助初学者通过系统学习，掌握COBOL编程的基础知识和技能，使学习者能够在技术文档的辅助下独立进行COBOL程序的开发，并通过自我学习不断提升编程能力。 首先，教程从COBOL语言的起源讲起。COBOL诞生...
sonarlint-intellij-4.7.0.17141.zip
05-08
soanr代码质量管理-intellij插件，Sonar是一个用于代码质量管理的开源平台，用于管理源代码的质量...通过插件形式，可以支持包括java,C#,C/C++,PL/SQL,Cobol,JavaScrip,Groovy等等二十几种编程语言的代码质量管理与检测
proleap-cobol-parser:基于ProLeap ANTLR4的COBOL解析器
05-23
基于ProLeap ANTLR4的COBOL解析器 这是一个基于的COBOL解析器，它为COBOL代码生成抽象语法树（AST）和抽象语义图（ASG）。 AST以语法树结构表示普通的COBOL源代码。 ASG通过语义分析从AST生成，并提供数据和控制流...
COBOL中数组操作
张铖@南通
12-15 6316
下面是数组的例子：          01 RECORD-X.            03 MONTH OCCURS 12 TIMES.              05 NAME PIC X(12).              05 DAYS OCCURS 31 TIEMS.                07 COMMENT PIC X(20).                07 TEMP-H
COBOL非常见知识点一
bluelilyabc的专栏
05-08 1804
1. ’advancing‘是‘前进’的意思，这里有换行和换页的用法。下列是还数字是换2行，3行的写法。 MOVE H01-AREA TO OUT3-DTL. WRITE OUT3-FILE-REC FROM OUT3-REC AFTER ADVANCING PAGE. MOVE H02-AREA TO OUT3-DTL. WRITE OUT3-FILE-REC FROM OUT3-REC AFTER ADVANCING 3. MOVE
COBOL Linkage Section
程序员码工的专栏
10-19 2358
Brief introduction of variables defined in Linkage Section Linkage Section Variable Limitations Only 01 and 77 level variable is defined in Linkage-Section.All 01 and 77 level variable are allocat
cobol中的表（数组）
大道至简
05-21 1763
表 实际上是储存连续空间上相似数据的集合，等同于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-move语句
大道至简
04-20 1869
MOVE是cobol程序中最常见的语句，类似于java中的set语句。 单个数据项的复制 01 IN-STATUS PIC X(5). 01 IN-GRP. 05 IN-DATA1 PIC x(4). 05 IN-DATA2 PIC X(3). 01 OUT-STATUS PIC PIC X(5). 复制单个数据项讲源数据放在之前，TO连接复制之后数据。可以复制特定的值，也可以变量之间进行设值。 MOVE 'READY' TO IN-STATUS MOVE IN-STATUS TO OUT-ST
COBOL 教程
zhaozj610的专栏
12-07 4486
COBOL 教程 - -目录CHAPTER   1 COBOL 概述 CHAPTER   2 过程部初步 CHAPTER   3 标识部和环境部 CHAPTER   4 数据部之一 CHAPTER   5 过程部之二 CHAPTER   6 过程部之三 CHAPTER   7 各部之间的关系及程序举例 CHAPTER   8 联机及批量程序的一些差异 CHAPTER   9 COBOL 编
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－－9.13.1 SEARCH语句的格式
COBOL
04-28 4048
　　在SEARCH语句中，主要需要包含所要查找的索引表表名、判断条件、以及满足条件后的处理过程。此处所说的判断条件通常包含两个。其中一个是由用户指定的判断条件， 另一个则对应数据查找结束时的情况。SEARCH语句最基本的格式如下。SEARCH  indexed-table-entry           AT   END                 do  something
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值