简介：最新cobol专著《精通cobol——大型机商业编程技术详解 》

原站：http://blog.csdn.net/COBOL_OS/

指数：

“COBOL”的内容更新

累计：10 篇（自 2009-10-28 起）

更新：约4篇/年，最后更新842 天前

COBOL

精通cobol－－9.4.4 PERFORM VARYING语句和PERFORM语句

在本小节最后，来比较一下perform varying语句和之前学习过的perform语句。通过比较，加深对于perform varying语句的理解。同时，也可以此作为对于perform语句的一个简单回顾。在上面用到的的工资管理系统模型中，使用perform varying语句计算全年总工资的代码如下。perform 200-add-to-total varying salary-sub from 1 by 1 until salary-sub > 12……200-add-to-total. add salari... (307 天前)

http://inezha.com/w/ehklux6

COBOL

精通cobol－－9.4.3 PERFORM VARYING语句的一些灵活应用

在实际应用中，perform varying语句不仅仅用于计算表中所有数据的总和。下面，仍然结合工资管理系统的模型，通过几个例子讲解perform varying语句的灵活应用。（1）计算单号月份的工资总和。这里实际上是要计算1、3、5、7、9、11这6个月的工资总和。可以看出，相邻两个月之间都相隔1个月，是有规律的。实际上，具体到代码实现，也就是表中的下标每次增量要求为2。代码如下。perform 2... (307 天前)

http://inezha.com/w/rbv4rwu

COBOL

精通cobol－－9.4.2 如何使用PERFORM VARYING语句处理表

上面谈到了perform varying语句的基本处理流程。那么，如何使用perform varying语句处理表中数据呢？下面仍然结合具体实例进行讲解。以员工工资管理系统为例，首先进行简化模型提取。提取模型只包括一个员工一年12个月的工资，即只含有12个数据项。将这12个数据定义为下标表结构如下。01 annual-salary-table. 05 salaries pic 9(5) occurs 12 times.05 salary-sub pic 99 usage is c... (307 天前)

http://inezha.com/w/n7sz2wt

COBOL

精通cobol－－9.4.1 PERFORM VARYING语句的使用方法

perform varying语句的基本格式如下所示。perform …varying …from …by…until …其中，“…”部分则是相应的变量，根据具体的不同情况而有所不同。q statement变量：指进行处理过程的名称。q item-sub变量：通常为表中数据对应的下标。q x1变量：通常指从表中的哪一个下标开始处理。q x2变量：通常指每次处理后对于下标的增量。q x3变量：通常指下标经过増量处理后达到的上限值。使... (307 天前)

http://inezha.com/w/9ck9bwq

COBOL

精通cobol－－9.4 浏览表语句PERFORM VARYING

上一小节中讲到的occurs语句是在表的定义中需要使用到的。本节将主要讲解在表的操作中经常用到的一个语句，即perform varying语句。... (307 天前)

http://inezha.com/w/bkvjjwy

COBOL

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

这里需要说明的是，使用occurs语句只是避免了重复书写相类似的定义代码。occurs语句并没有压缩定义数据的存储空间。数据的存储空间大小和不使用occurs语句时，定义数据的存储空间大小是相同的。通过下面的图解可以更直观的说明这一点。首先，使用occurs语句定义一个普通结构的表，代码如下。01 test-table-two 05 test-row occurs 3 times. 10 test-item-one pic x (1). 10 test-item... (307 天前)

http://inezha.com/w/t6skywp

COBOL

精通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 pi... (307 天前)

http://inezha.com/w/x9kcuwe

订阅者 ( 1 )

相关订阅源