精通cobol－－9.12 处理索引语句SET

最新推荐文章于 2022-05-21 19:34:09 发布
最新推荐文章于 2022-05-21 19:34:09 发布
阅读量2k 收藏
点赞数
CC 4.0 BY-SA版权
文章标签： cobol
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/COBOL_OS/article/details/2337429
本文介绍了Cobol中处理索引表的关键语句——SET，强调了对索引变量进行操作时必须使用SET。内容包括SET语句的两种主要操作类型：赋值操作和算术运算操作，并通过超市管理系统实例详细解释了如何对索引变量STORE-NDX和SALE-NDX进行操作。

　　前面已经讲到，对于索引表中的索引变量而言，是不能将其视作通常的变量进行处理的。如果要对索引变量进行操作，必须使用SET语句。使用SET语句对索引变量进行操作，大体上可以分为两大类型的操作。其中一种类型的操作是对其进行赋值操作，另一种是对其进行算术运算操作。

下面结合一个实例分别对二者进行详细讲解。首先，以超市管理系统

最低0.47元/天 解锁文章

200万优质内容无限畅学
COBOL_OS
关注
精通cobol－－9.12.1 使用SET语句对索引赋值
COBOL
04-28 3232
前面讲过，不能按照通常的方式，使用MOVE语句对索引变量赋值。对索引变量赋值，必须使用SET语句。下面结合几个小例子，具体谈谈如何使用SET语句进行赋值操作。（1）求取索引为3所对应的进货商品编号和名称。此处可以首先将索引变量STORE-NDX置为3。然后，再通过该索引变量引用所求数据，并将结果存入相应位置。代码如下。SET  STORE-NDX  TO  3.            
精通cobol－－9.12.2 使用SET语句对索引进行算术运算
COBOL
04-28 2169
对索引变量进行算术运算操作，仍然需要使用SET语句。以下依然结合上面定义的超市管理系统的索引表，通过几个小例子进行讲解。（1）假设STORE-NDX已存有数据。现要求以该索引变量为基准，其后偏移2位索引的进货商品编号。这里并不知道当前STORE-NDX中的数据为多少。因此，必须使用算术运算，直接将STORE-NDX加上2，再以此引用指定数据。代码如下。SET  STORE-ND
COBOL语言总结(一)
热门推荐
杀神lwz的博客
07-15 2万+
一、COBOL简介 COBOL(Common Business Oriented Language)语言、即公用面向商业语言，是一种面向过程的高级程序设计语言，主要用于数据处理，是目前国际上应用最广泛的一种高级语言。 COBOL作为大型机上最主要的程序设计语言，迄今50多年历史。 大型机也叫主机、大机或MainFrame等，属于一种商用高端服务器。主要由IBM公司生产。 1.COBOL语法格式 COBOL程序的每行代码通常分为80列。有非标准80列的可以超过80列，写多少列都可以。 80列中列与
C10-COBOL 表处理
adozoo
09-26 1167
COBOL 表处理 COBOL中的数组称为表。数组是一种线性数据结构，是同一类型的单个数据项的集合。表的数据项在内部进行排序。 表声明 表在数据部（Data division）中进行声明。occurs子句用于定义一个表，表示数据名称定义的重复。它只能用于02到49的级数。不要使用带有redefines的occurs子句。一维和二维表的描述如下： 一维表 在一维表中，occurs子句仅在声明中使用一次。WS-TABLE是包含表的组项。WS-A命名出现10次的表元素。 语法 以下是定义一维表的语法： 01 WS
COBOL中关于数组的操作
QueenJade的收录
03-28 6440
原文地址：COBOL中关于数组的操作作者：基股传话<br />一．表的概念<br />COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。<br />表中，序号称为下标，相对地址称为位标，下标和位标称为“出现号”。<br /> <br />二．表的建立（OCCURS子句）<br />    格式：OCCURS  整数  TIMES<br />    举例：01  PRODUCT-RECORD.<br />             03 RODUCT  OCCURS  20  TIME
proleap-cobol-parser:基于ProLeap ANTLR4的COBOL解析器
05-23
基于ProLeap ANTLR4的COBOL解析器 这是一个基于的COBOL解析器，它为COBOL代码生成抽象语法树（AST）和抽象语义图（ASG）。 AST以语法树结构表示普通的COBOL源代码。 ASG通过语义分析从AST生成，并提供数据和控制流...
精通COBOL大型机商业编程技术详解.部分1
03-30
精通COBOL大型机商业编程技术详解.修订版_部分1.pdf 共两个文件，因为大于60M上传不了。就拆分成了两个文件。 本文件是第一部分
COBOL中数组操作
张铖@南通
12-15 6463
下面是数组的例子：          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 1946
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 4817
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 4205
　　在SEARCH语句中，主要需要包含所要查找的索引表表名、判断条件、以及满足条件后的处理过程。此处所说的判断条件通常包含两个。其中一个是由用户指定的判断条件， 另一个则对应数据查找结束时的情况。SEARCH语句最基本的格式如下。SEARCH  indexed-table-entry           AT   END                 do  something
一步步Cobol 400 上手自学入门教程03 - 数据部
昕友软件博客
08-12 890
数据部的作用 程序中涉及到的全部数据（输入、输出、中间）都要在此定义，对它们的属性进行说明。主要描述以下属性：       数据类型（数值/字符）和存储形式（长度）       数据项之间的关系（层次和层号）       文件与记录的关系 数据部可以分为：      文件节（file section）：用来描述程序中用到的输入输出文件及记录中各数据项的属性...
cobol中的表（数组）
大道至简
05-21 1971
表 实际上是储存连续空间上相似数据的集合，等同于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 Pointer variable
程序员码工的专栏
10-19 1014
How to define a pointer variable Define a pointer variable in Working-Storage Section 01 SILLY-POINTER USAGE IS POINTER. or 01 POINTERS-AND-OTHER-STUFF. 05 S
COBOL Linkage Section
程序员码工的专栏
10-19 2444
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-85中的IF与EVALUATE语句详解
COBOL-74版本的IF语句没有明确的END-IF结束标记，但在COBOL-85及其后续版本中引入了这个结束标志，使得代码更易读。在IF语句中，THEN部分是可选的，意味着即使没有显式写出THEN，COBOL也会理解其后的语句是IF条件的...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值