在Cobol中，为什么会有一个不存在段落名称的PERFORM-THRU

我试图弄清楚下面执行命令的目的是什么。代码是20年前编写的。ACPY-READ-FIRST、ACPY-READ-NEXT和ACPY-EXIT在程序中的任何位置都不存在

  MOVE ACPY-ID                TO WS-ACPY-ID.
       PERFORM ACPY-READ-FIRST THRU ACPY-EXIT.
   150-PYMTS.
       PERFORM ACPY-READ-NEXT  THRU ACPY-EXIT.
       IF  NOT SUCCESSFUL      OR
           ACCT-ID NOT = ACPY-ACCT-ID
               GO TO 160-DONE.

---

答：您不会这样做，因为这会在每个编译器中产生语法错误

段落（甚至部分，但我会寻找前者）必须在源代码单元中的某个地方，我会说：95%的可能性在

COPY

语句（=COBOL的“include”）中命名的抄本中找到它，4%的可能性是由用于处理它的代码生成器插入的，1%的可能性是您刚刚忽略了它（COBOL不区分大小写，以防万一）

---

提示：如果您有所有必要的来源，您可以使用这些来源来处理它，并创建一个列表，其中显示了其中包含的段落。回答：您不会这样做，因为这会在每个编译器中产生语法错误

段落（甚至部分，但我会寻找前者）必须在源代码单元中的某个地方，我会说：95%的可能性在

COPY

语句（=COBOL的“include”）中命名的抄本中找到它，4%的可能性是由用于处理它的代码生成器插入的，1%的可能性是您刚刚忽略了它（COBOL不区分大小写，以防万一）

---

提示：如果您有所有必要的来源可以用来处理它并创建一个列表，其中显示了包含段落的副本。

查看程序中的copy语句，您可以在副本中找到段落查看程序中的copy语句，您可以在副本中找到段落