COBOL - 子例程

Cobol子程序是可以独立编译但不能独立执行的程序。 有两种类型的子例程：内部子例程（如Perform语句）和外部子例程（如CALL动词）。

调用动词

调用动词用于将控制权从一个程序转移到另一个程序。 包含 CALL 动词的程序是调用程序，被调用的程序称为被调用程序。 调用程序执行将停止，直到被调用程序完成执行。 Exit Program语句用于被调用程序中将控制权转回。

调用的程序约束

以下是调用的程序要求 −

• 链接部分必须在被调用的程序中定义。 它由程序中传递的数据元素组成。 数据项不应包含 Value 子句。 PIC 子句必须与通过调用程序传递的变量兼容。

• 过程划分使用有一个从调用程序传递的变量列表，并且顺序必须与调用动词中提到的相同。

• Exit program语句用于被调用程序中将控制权转回。 它必须是被调用程序中的最后一条语句。

程序之间传递参数有两种方式 −

• 按引用
• 按内容

通过引用调用

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

语法

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

CALL sub-prog-name USING variable-1, 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 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

调用类型

有两种类型的调用 −

• 静态调用在使用 NODYNAM 编译器选项编译程序时发生。 静态调用的程序在编译时加载到存储中。

• 动态调用在使用 DYNAM 和 NODLL 编译器选项编译程序时发生。 动态调用的程序在运行时加载到存储器中。