精通COBOL－－16.5.2 使用XCTL命令进行程序调用

　　使用XCTL命令调用程序时，两程序仍然处于同一个任务之下。并且，同样也可通过COMMAREA在两程序间传递参数。以下为在程序PGMC中，通过XCTL调用程序PGMD的部分代码：

IDENTIFICATION  DIVISION.

PROGRAM-ID.  PGMC.          

……

PROCEDURE  DIVISION.

……

EXEC  CICS  LINK      PROGRAM(‘PGMD’)

                     COMMAREA(COMSTART)

                        LENGTH(20)

                        END-EXEC

……

同时需要注意的是，此时被调用程序PGMD通过RETURN命令将直接返回到CICS系统中。也就是说，使用XCTL命令调用程序时，将不改变CICS当前执行的逻辑层次。图为XCTL命令下CICS的逻辑层次关系。