精通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.