嵌入CICS命令的COBOL程序

　 COBOL程序中嵌入CICS命令和汇编中嵌入CICS命令有所不同。请看下面的例子：

　IDENTIFICATION DIVISION.
　 PROGRAM-ID. EXAM.
　 AUTHOR. UNIWARE.
.* ENVIRONMENT DIVISION.
　 CONFIGURATION SECTION.
.*
　 DATA DIVISION.
　 WORKING-STORAGE SECTION.
　 01 HELLO 　　　 PIC X(32).
　 01 ABS-TIME 　　PIC S9(15) COMP-3.
.*
　 PROCEDURE DIVISION.
　　　 EXEC CICS ASKTIME ABSTIME(ABS-TIME) END-EXEC.
　　　 MOVE 'THIS IS A EXAMPLE!' TO HELLO.
　　　 EXEC CICS WRITEQ TS QUEUE('EXAMQ')
　　　　　　　　 FROM(HELLO)
　　　　　　　　 LENGTH(LENGTH OF HELLO)
　　　　　　　　 END-EXEC.
　　　 EXEC CICS RETURN END-EXEC.