ibm-midrange - GO TO 控制流如何在 COBOL 中工作？

Question

PROCEDURE DIVISION
MAINPARA
    DISPLAY "HELLO MAIN".
    GO TO PARA1.
    DISPLAY " SECOND DISPLAY".
    STOP RUN.

PARA1.
    DISPLAY " I AM IN PARA1".

PARA2.
    DISPLAY "I AM IN PARA2"
....
PARA200

我对流程了解甚少。但是，我很困惑。当控制跳转到 GO TO PARA1 ，它将执行 PARA1 .

现在我的问题是:

会不会执行PARA2并返回 MAINPARA ?

或者它会从 PARA2 执行在计划结束时？

我不是 COBOL 程序员，我需要了解来自迁移工具/流程 AMXW COBOL 的代码。目标系统是 IBM AS/400。

Answer 1

您的程序将显示:

HELLO MAIN
 I AM IN PARA1
I AM IN PARA2
...

因为 GO TO移动程序的执行点。然后它从它被移动到的地方顺序执行。

如果您更换 GO TO，则在此对面动词 by PERFORM动词，程序:

PROCEDURE DIVISION
MAINPARA
    DISPLAY "HELLO MAIN".
    PERFORM PARA1.
    DISPLAY " SECOND DISPLAY".
    STOP RUN.

PARA1.
    DISPLAY " I AM IN PARA1".

PARA2.
    DISPLAY "I AM IN PARA2"
....
PARA200

会显示:

HELLO MAIN
 I AM IN PARA1
SECOND DISPLAY