COBOL迴圈語句


有一些任務需要執行一遍又一遍,如讀取檔案中的每個記錄,直到結束為止。以下是在COBOL中使用的迴圈語句:

  • 執行直通
  • 執行直到
  • 執行時間
  • 進行時變

執行直通

完成直通所使用的序列在給第一個和最後一段的名字來執行一系列段落。執行最後一段控制元件後會返回。

一行進行

裡面的PERFORM語句將直到結束,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

執行直到

在執行之前,段將被執行,直到給定的條件為真。與之前的測試是預設的狀態,表示條件在一段語句執行前檢查。

語法

以下是執行直到的語法:

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語句是:

無條件GO TO

GO TO para-name.

條件GO TO

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