COBOL - PERFORM

二师弟&

已于 2023-05-18 08:57:57 修改

阅读量486

点赞数 1

分类专栏： COBOL 语言文章标签： java 开发语言 COBOL

于 2023-05-17 16:55:51 首次发布

本文链接：https://blog.youkuaiyun.com/zhu_fangyuan/article/details/130729931

版权

COBOL 语言专栏收录该内容

4 篇文章

订阅专栏

文章介绍了COBOL编程语言中的PERFORM和PERFORMVARYING语句，它们用于执行程序段。PERFORM用于调用函数，而PERFORMVARYING在循环执行的基础上增加了变量递增的功能，特别适合处理表格数据。举例说明了如何使用这两种语句计算全年总工资，展示了它们在循环控制上的差异和应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

COBOL - PERFORM

PERFORM 就是调用程序中的函数，也就是执行，每个执行有且只有一个名字


000200 PERFORM INIT-SYORI.
000210*
000220 PERFORM MAIN-SYORI UNTIL WK-END-FLG = "ON " OR
      						  WK-ERR-FLG = "ON ".
000230*
000240 PERFORM END-SYORI.

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 SALARIES  (SALARY-SUB)
     TO  ANNUAL-TOTAL.

该段代码实现的功能，实际上同样也可以使用PERFORM语句完成，代码如下。

MOVE  1  TO  SALARY-SUB.
PERFORM  200-ADD-TO-TOTAL
	UNTIL      SALARY-SUB > 12
	……

       
200-ADD-TO-TOTAL.
  ADD  SALARIES  (SALARY-SUB)
       TO  ANNUAL-TOTAL.
  ADD 1 TO SALARY-SUB.

由此可见，PERFORM VARYING语句和PERFORM语句都具有循环结构。但PERFORM VARYING语句在循环结构的基础上，还增加了一个步进的功能。该功能用于对表进行操作是十分方便的。