当前位置: 首页 > 文档资料 > COBOL 中文教程 >

子程序( Subroutines)

优质
小牛编辑
132浏览
2023-12-01

Cobol子程序是一个可以独立编译但不能独立执行的程序。 有两种类型的子程序: internal subroutinesPerform语句和external子程序,如CALL动词。

打电话动词

调用动词用于将控件从一个程序转移到另一个程序。 包含CALL动词的程序是Calling Program ,被调用的程序称为Called Program 。 调用程序执行将暂停,直到被调用程序完成执行。 退出程序语句在被调用程序中用于传回控制。

称为程序约束

以下是所谓的计划要求 -

  • 必须在被调用程序中定义Linkage section 。 它由程序中传递的数据元素组成。 数据项不应具有Value子句。 PIC子句必须与通过调用程序传递的变量兼容。

  • Procedure division using具有从调用程序传递的变量列表,并且顺序必须与调用动词中提到的相同。

  • 在被调用程序中使用Exit program语句来传回控制。 它必须是被调用程序中的最后一个语句。

参数可以通过两种方式在程序之间传递 -

  • 引用
  • 按内容

按参考呼叫

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

语法 (Syntax)

以下是通过引用调用子例程的语法 -

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

Example

以下示例是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

按内容呼叫

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

语法 (Syntax)

以下是按内容调用子例程的语法 -

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

Example

以下示例是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编译器选项编译程序时发生Static Call 。 静态调用程序在编译时加载到存储中。

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