精通COBOL－－11.6.2 动态调用程序示例

　　下面通过具体的程序示例，以便更好地说明动态调用的特点及用法。首先，假设在动态调用中，某一主程序代码如下。

IDENTIFICATION   DIVISION.

PROGRAM-ID      DYNAMIC-MAIN.

AUTHER           XXX.

*

ENVIRONMENT   DIVISION.

*

DATA  DIVISION.

WORKING STORAGE SECTION.

01   IDENTIF       PIC  X(10).

77   TEST-NUM     PIC  99.

*

PROCEDURE   DIVISION.