- COBOL 教程
- COBOL - 主页
- COBOL - 概述
- COBOL - 环境设置
- COBOL - 程序结构
- COBOL - 基本语法
- COBOL - 数据类型
- COBOL - 基本动词
- COBOL - 数据布局
- COBOL - 条件语句
- COBOL - 循环语句
- COBOL - 字符串处理
- COBOL - 表处理
- COBOL - 文件处理
- COBOL - 文件组织
- COBOL - 文件访问模式
- COBOL - 文件处理动词
- COBOL - 子例程
- COBOL - 内部排序
- COBOL - 数据库接口
- COBOL 有用资源
- COBOL - 问题与解答
- COBOL - 快速指南
- COBOL - 有用的资源
COBOL - 循环语句
有些任务需要一遍又一遍地完成,例如读取文件的每条记录直到结束。COBOL 中使用的循环语句是 -
- 执行直通
- 执行直到
- 表演次数
- 执行变化
执行直通
Perform Thru 用于通过给出序列中第一个和最后一个段落名称来执行一系列段落。执行完最后一段后,控制权返回。
在线执行
PERFORM 内的语句将被执行,直到到达 END-PERFORM。
句法
以下是内联执行的语法 -
PERFORM DISPLAY 'HELLO WORLD' END-PERFORM.
越线执行
这里,在一个段落中执行一条语句,然后将控制权转移到其他段落或部分。
句法
以下是外线执行的语法 -
PERFORM PARAGRAPH1 THRU PARAGRAPH2
例子
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. PROCEDURE DIVISION. A-PARA. PERFORM DISPLAY 'IN A-PARA' END-PERFORM. PERFORM C-PARA THRU E-PARA. B-PARA. DISPLAY 'IN B-PARA'. STOP RUN. C-PARA. DISPLAY 'IN C-PARA'. D-PARA. DISPLAY 'IN D-PARA'. E-PARA. DISPLAY 'IN E-PARA'.
JCL来执行上面的COBOL程序。
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO
当您编译并执行上述程序时,它会产生以下结果 -
IN A-PARA IN C-PARA IN D-PARA IN E-PARA IN B-PARA
执行直到
在“执行直到”中,执行一个段落直到给定的条件变为真。“With test before”是默认条件,表示在执行段落中的语句之前检查条件。
句法
以下是执行直到的语法 -
PERFORM A-PARA UNTIL COUNT=5 PERFORM A-PARA WITH TEST BEFORE UNTIL COUNT=5 PERFORM A-PARA WITH TEST AFTER UNTIL COUNT=5
例子
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-CNT PIC 9(1) VALUE 0. PROCEDURE DIVISION. A-PARA. PERFORM B-PARA WITH TEST AFTER UNTIL WS-CNT>3. STOP RUN. B-PARA. DISPLAY 'WS-CNT : 'WS-CNT. ADD 1 TO WS-CNT.
JCL执行上述 COBOL 程序 -
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO
当您编译并执行上述程序时,它会产生以下结果 -
WS-CNT : 0 WS-CNT : 1 WS-CNT : 2 WS-CNT : 3
表演次数
在“执行次数”中,一个段落将被执行指定的次数。
句法
以下是执行时间的语法 -
PERFORM A-PARA 5 TIMES.
例子
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. PROCEDURE DIVISION. A-PARA. PERFORM B-PARA 3 TIMES. STOP RUN. B-PARA. DISPLAY 'IN B-PARA'.
JCL执行上述 COBOL 程序 -
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO
当您编译并执行上述程序时,它会产生以下结果 -
IN B-PARA IN B-PARA IN B-PARA
执行变化
在执行变化中,将执行一个段落,直到直到短语中的条件变为真为止。
句法
以下是执行变化的语法 -
PERFORM A-PARA VARYING A FROM 1 BY 1 UNTIL A = 5.
例子
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-A PIC 9 VALUE 0. PROCEDURE DIVISION. A-PARA. PERFORM B-PARA VARYING WS-A FROM 1 BY 1 UNTIL WS-A=5 STOP RUN. B-PARA. DISPLAY 'IN B-PARA ' WS-A.
JCL执行上述 COBOL 程序 -
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO
当您编译并执行上述程序时,它会产生以下结果 -
IN B-PARA 1 IN B-PARA 2 IN B-PARA 3 IN B-PARA 4
转到声明
GO TO 语句用于更改程序中的执行流程。在 GO TO 语句中,传输仅向前进行。它用于退出段落。使用的不同类型的 GO TO 语句如下 -
无条件转到
GO TO para-name.
有条件转到
GO TO para-1 para-2 para-3 DEPENDING ON x.
如果'x'等于1,则控制权将转移到第一段;如果'x'等于2,则控制权将转移到第二段,依此类推。
例子
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-A PIC 9 VALUE 2. PROCEDURE DIVISION. A-PARA. DISPLAY 'IN A-PARA' GO TO B-PARA. B-PARA. DISPLAY 'IN B-PARA '. GO TO C-PARA D-PARA DEPENDING ON WS-A. C-PARA. DISPLAY 'IN C-PARA '. D-PARA. DISPLAY 'IN D-PARA '. STOP RUN.
JCL执行上述COBOL程序:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO
当编译并执行上面的程序时,它会产生以下结果:
IN A-PARA IN B-PARA IN D-PARA