精通COBOL－－16.3.1 基本程序结构

　　基于CICS的COBOL程序同样是通过EXEC标识符将CICS命令嵌入其中的。一下为CICS命令在COBOL中的表示方式：

EXEC  CICS

       ……                         /*此处为嵌入的相关CICS命令*/

      END-EXEC.

此外，基于CICS的COBOL程序在结构上同普通COBOL程序略有不同。在基于CICS的COBOL程序中，和文件有关的节都是不应存在的。程序中用到的文件资源都将由CICS统一定义。以下为基于CICS的COBOL程序的基本结构：

 IDENTIFICATION  DIVISION.

 PROGRAM-ID.  XXX.

*

 ENVIRONMENT  DIVISION.

 × CONFIGURATION  SECTION.           /*不应有配置节*/

 × INPUT-OUTPUT  SECTION.              /*不应有输入输出节*/

*

 DATA  DIVISION.

 × FILE  SECTION.                                    /*不应有文件节*/

 WORKING-STORAGE  SECTION.

 LINKAGE  SECTION.                                 /*通常需要有连接节*/

*

 PROCEDURE  DIVISION.

此外，当程序中的CICS逻辑部分结束时，需要使用RETURN命令将控制权移交回系统。在程序的最后，通常使用GOBACK表示终止，而并非STOP RUN。这样可避免一些编译方面的警告或错误。完整的程序框架如下：

 IDENTIFICATION  DIVISION.

PROGRAM-ID.  XXX.

*

 ENVIRONMENT  DIVISION.

*

 DATA  DIVISION.

 WORKING-STORAGE  SECTION.

 ……

 LINKAGE  SECTION.                                

 ……

*

 PROCEDURE  DIVISION.

 ……

   EXEC  CICS  RETURN  END-EXEC.

    GOBACK.