精通COBOL－－16.5.1 使用LINK命令进行程序调用

　　使用LINK命令调用程序时，两程序将位于一个任务之下。同时，通过LINK命令中的选项COMMAREA可以实现在调用过程中的参数传递。例如，在以下程序PGMA中，将通过LINK命令调用程序PGMB。

IDENTIFICATION  DIVISION.

PROGRAM-ID.  PGMA.                             

*

 ENVIRONMENT  DIVISION.

*

 DATA  DIVISION.

 WORKING-STORAGE  SECTION.

 01  COMSTART.

     05   STATUS-I        PIC X.

     05   DATA-I          PIC X(19).

 ……

*

 PROCEDURE  DIVISION.

    ……

EXEC  CICS  LINK  PROGRAM(‘PGMB’)

                     COMMAREA(COMSTART)

                     LENGTH(20)

                     END-EXEC

……

GOBACK.

需要注意的是，被调用的程序PGMB通过RETURN命令将返回到程序PGMA中。因此，通过LINK命令进行程序调用时，将改变CICS当前执行的逻辑层次。图反映了使用LINK命令时CICS中不同逻辑层次之间的关系。