CICS中程序跳转的方式介绍

完成一个交易所需要的数据处理代码可以不必完全写在一个程序里，跟去其逻辑内容分解成若干部分，每一部分写在一个程序里面，在交易里根据需要调用各个程序，这样做既可以减少程序复杂度，又有利于程序复用。CICS中调用程序有两种方式：LINK和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 的逻辑层次关系。

使用 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 中不同逻辑层次之间的关系。