精通cobol－－9.12.1 使用SET语句对索引赋值

最新推荐文章于 2022-05-21 19:34:09 发布
最新推荐文章于 2022-05-21 19:34:09 发布
阅读量3k 收藏 2
点赞数
文章标签： cobol
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/COBOL_OS/article/details/2337447
版权
前面讲过，不能按照通常的方式，使用MOVE语句对索引变量赋值。对索引变量赋值，必须使用SET语句。下面结合几个小例子，具体谈谈如何使用SET语句进行赋值操作。（1）求取索引为3所对应的进货商品编号和名称。此处可以首先将索引变量STORE-NDX置为3。然后，再通过该索引变量引用所求数据，并将结果存入相应位置。代码如下。SET  STORE-NDX  TO  3.            
摘要由CSDN通过智能技术生成

前面讲过，不能按照通常的方式，使用MOVE语句对索引变量赋值。对索引变量赋值，必须使用SET语句。下面结合几个小例子，具体谈谈如何使用SET语句进行赋值操作。

（1）求取索引为3所对应的进货商品编号和名称。此处可以首先将索引变量STORE-NDX置为3

最低0.47元/天 解锁文章
COBOL_OS
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
精通cobol－－9.12 处理索引语句SET
COBOL
04-28 1932
　　前面已经讲到，对于索引表中的索引变量而言，是不能将其视作通常的变量进行处理的。如果要对索引变量进行操作，必须使用SET语句。使用SET语句对索引变量进行操作，大体上可以分为两大类型的操作。其中一种类型的操作是对其进行赋值操作，另一种是对其进行算术运算操作。下面结合一个实例分别对二者进行详细讲解。首先，以超市管理系统为基本模型。定义相应的索引表如下。01  MARKET-TABLE.
精通cobol－－9.12.2 使用SET语句对索引进行算术运算
COBOL
04-28 2057
对索引变量进行算术运算操作，仍然需要使用SET语句。以下依然结合上面定义的超市管理系统的索引表，通过几个小例子进行讲解。（1）假设STORE-NDX已存有数据。现要求以该索引变量为基准，其后偏移2位索引的进货商品编号。这里并不知道当前STORE-NDX中的数据为多少。因此，必须使用算术运算，直接将STORE-NDX加上2，再以此引用指定数据。代码如下。SET  STORE-ND
cobol中的表（数组）
大道至简
05-21 1732
表 实际上是储存连续空间上相似数据的集合，等同于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之旅---基础知识4
wjok2009的专栏
02-01 1947
表1.表概念。table 相当于其他算法语言中的数组。表元素 ， 赋值 引用  表处理。 2.表的建立：如果一个数据名不是代表单一的数据项，而是一个表的名字，则应在数据部中做说明。指出表包含多少个表元素。如：01 STUDENT-RECORD       02 NAME PIC X(20).       02 COURSE OCCURS 5 TIMES PIC 9(
COBOL中数组操作
张铖@南通
12-15 6296
下面是数组的例子：          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
C10-COBOL 表处理
adozoo
09-26 1050
COBOL 表处理 COBOL中的数组称为表。数组是一种线性数据结构，是同一类型的单个数据项的集合。表的数据项在内部进行排序。 表声明 表在数据部（Data division）中进行声明。occurs子句用于定义一个表，表示数据名称定义的重复。它只能用于02到49的级数。不要使用带有redefines的occurs子句。一维和二维表的描述如下： 一维表 在一维表中，occurs子句仅在声明中使用一次。WS-TABLE是包含表的组项。WS-A命名出现10次的表元素。 语法 以下是定义一维表的语法： 01 WS
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
1. 在编辑数据的过程中，使用了 READ 和 WRITE 对文件进行了操作，读取输入文件中的数据并进行处理。 2. 编辑数据时，使用了表对文件中的记录进行存储和处理，并按照指定的格式输出编辑后的结果。 3. 在数据处理的...
sonarlint-intellij-4.7.0.17141.zip
05-08
soanr代码质量管理-intellij插件，Sonar是一个用于代码质量管理的开源平台，用于管理源代码的质量...通过插件形式，可以支持包括java,C#,C/C++,PL/SQL,Cobol,JavaScrip,Groovy等等二十几种编程语言的代码质量管理与检测
sonarqube-8.4.1.35646.zip
08-12
sonarqube 8.4 SonarQube 是一款用于代码质量管理的开源工具，它主要用于管理源代码的质量。 通过插件形式，可以支持众多...同时 Sonar 还对大量的持续集成工具提供了接口支持，可以很方便地在持续集成中使用 Sonar。
COBOL 知识点集锦（下）
cuiyadll的博客
07-14 921
COBOL 知识点集锦（下） cobol子程序调用 内部子程序 IDENTIFICATION DIVISION. PROGRAM-ID. PROC-A. ENVIRONMENT DIVISION. ... DATA DIVISION. ... PROCEDURE DIVISION. ... IDEN...
COBOL中关于数组的操作
QueenJade的收录
03-28 6189
原文地址：COBOL中关于数组的操作作者：基股传话<br />一．表的概念<br />COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。<br />表中，序号称为下标，相对地址称为位标，下标和位标称为“出现号”。<br /> <br />二．表的建立（OCCURS子句）<br />    格式：OCCURS  整数  TIMES<br />    举例：01  PRODUCT-RECORD.<br />             03 RODUCT  OCCURS  20  TIME
cobol-move语句
大道至简
04-20 1842
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非常见知识点一
bluelilyabc的专栏
05-08 1778
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 教程
zhaozj610的专栏
12-07 4446
COBOL 教程 - -目录CHAPTER   1 COBOL 概述 CHAPTER   2 过程部初步 CHAPTER   3 标识部和环境部 CHAPTER   4 数据部之一 CHAPTER   5 过程部之二 CHAPTER   6 过程部之三 CHAPTER   7 各部之间的关系及程序举例 CHAPTER   8 联机及批量程序的一些差异 CHAPTER   9 COBOL 编
cobol I-O-CONTROL.里面的apply怎么用
06-11
在COBOL语言中，APPLY是I-O-CONTROL的一个子句，用于应用控制参数。在使用APPLY子句时，需要提供一个控制参数的列表，然后将其应用于指定的文件。APPLY子句的语法如下： ``` I-O-CONTROL. APPLY control-parameter-...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值