C15-COBOL 子程序

COBOL 子程序

COBOL子程序是可以独立编译但不能独立执行的程序。有两种类型的子程序：内部子程序，如perform语句；和外部子程序，如CALL动词。

Call（调用）动词

调用动词用于将控件从一个程序转移到另一个程序。包含CALL动词的程序是Calling Program（调用程序），被调用的程序被称为Called Program（被调用程序）。调用程序的执行将停止，直到被调用的程序完成执行。Exit Program语句用在被调用程序中传送回控件。

被调用程序的约束条件

以下是被调用的程序要求：

• **Linkage section（连接节）：**必须在被调用程序中定义。它由在程序中传递的数据元素组成。该数据项不应该有value子句。PIC子句必须与通过调用程序传递的变量兼容。
• **Procedure division using：**有一个从调用程序传递过来的变量列表，并且该顺序必须与在Call动词中提到的相同。
• **Exit program：**该语句是用在被调用程序中传送回控件。它必须被调用程序的最后一条语句。

参数可以通过两种方式在程序间进行传递：

• 通过引用（reference）
• 通过内容（content）

引用调用

如果被调用程序中的变量的值被修改，那么它们的新值将在调用程序中反映出来。如果未指定BY子句，则始终通过引用传递变量。

语法

以下是通过引用调用子程序的语法：

CALL sub-prog-name USING variable-1, variable-2.

例

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-36yWXtZa-1600757634992)(img/c15.png)]

以下示例，MAIN是调用程序，UTIL是被调用程序：

        IDENTIFICATION DIVISION.
        PROGRAM-ID. MAIN.

        DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-STUDENT-ID PIC 9(4) VALUE 1000.
           01 WS-STUDENT-NAME PIC A(15) VALUE 'Tim'.

        PROCEDURE DIVISION.
           CALL 'UTIL' USING WS-STUDENT-ID, WS-STUDENT-NAME.
           DISPLAY 'Student Id : ' WS-STUDENT-ID
           DISPLAY 'Student Name : ' WS-STUDENT-NAME
        STOP RUN.

被调用程序

        IDENTIFICATION DIVISION.
        PROGRAM-ID. UTIL.

        DATA DIVISION.
           LINKAGE SECTION.
           01 LS-STUDENT-ID PIC 9(4).
           01 LS-STUDENT-NAME PIC A(15).

        PROCEDURE DIVISION USING LS-STUDENT-ID, LS-STUDENT-NAME.
           DISPLAY 'In Called Program'.
           MOVE 1111 TO LS-STUDENT-ID.
        EXIT PROGRAM.

JCL执行上述COBOL程序：

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=MAIN

当你编译和执行上面的程序，会产生以下结果：

In Called Program
Student Id : 1111
Student Name : Tim

内容调用

如果被调用程序中的变量的值被修改，那么它们的新值将不会在调用程序中反映出来。

语法

以下是通过内容调用子程序的语法：

CALL sub-prog-name USING 
BY CONTENT variable-1, BY CONTENT variable-2.

例

以下示例，MAIN是调用程序，UTIL是被调用程序：

        IDENTIFICATION DIVISION.
        PROGRAM-ID. MAIN.

        DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-STUDENT-ID PIC 9(4) VALUE 1000.
           01 WS-STUDENT-NAME PIC A(15) VALUE 'Tim'.

        PROCEDURE DIVISION.
           CALL 'UTIL' USING BY CONTENT WS-STUDENT-ID, BY CONTENT WS-STUDENT-NAME.
           DISPLAY 'Student Id : ' WS-STUDENT-ID
           DISPLAY 'Student Name : ' WS-STUDENT-NAME
        STOP RUN.

被调用程序

        IDENTIFICATION DIVISION.
        PROGRAM-ID. UTIL.

        DATA DIVISION.
           LINKAGE SECTION.
           01 LS-STUDENT-ID PIC 9(4).
           01 LS-STUDENT-NAME PIC A(15).

        PROCEDURE DIVISION USING LS-STUDENT-ID, LS-STUDENT-NAME.
           DISPLAY 'In Called Program'.
           MOVE 1111 TO LS-STUDENT-ID.
        EXIT PROGRAM.

JCL执行上述COBOL程序：

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=MAIN

当你编译和执行上面的程序，会产生以下结果：

In Called Program
Student Id : 1000
Student Name : Tim

调用类型

有两种调用类型：

• • **Static Call（静态调用）：**发生在使用NODYNAM编译器选项编译程序时。静态调用程序在编译时被加载到存储中。
    `
    In Called Program
    Student Id : 1000
    Student Name : Tim

## 调用类型

有两种调用类型：

- - **Static Call（静态调用）：**发生在使用NODYNAM编译器选项编译程序时。静态调用程序在编译时被加载到存储中。
  - **Dynamic Call（动态调用）：**发生在使用DYNAM和NODLL编译器选项编译程序时。动态调用程序在运行时被加载到存储中。