嵌入CICS命令的汇编程序

　 CICS命令非常直观，但是在嵌入不同的宿主语言时仍然需要遵循不同的书写规则。例如下面的汇编程序：

*ASM XOPTS(NOEPILOG)
　 　 　   TITLE 'SIMPLE EXAMPLE'
*-这是一个在SYS1.MACLIB中的宏，将寄存器命名为Rn
　 　 　 YREGS
*-注意，寄存器R1、R13、R14、R15为CICS所保留
COMMREG　EQU 　 R6
*-变量定义
　 　 　 DFHEISTG
DEBUG　　DS　　 CL16
*-通讯区（程序接口参数区）
COMMDAT　DSECT
　　　　 USING　*,COMMREG
COMMREC　EQU　　*
HELLO　　DS 　　CL32
　　　　 EJECT
*-主程序
MAINBODY DFHEIENT CODEREG=(3,4)
*-设定通讯区寄存器指向通讯区
　　　　 L　　　COMMREG,DFHEICAP
*-使用CICS命令写CICS的临时队列（TQ），注意第72列有一个非空字符“X”
*-表示续行
　　　　 MVC 　 DEBUG,=C'SIMPLE EXAMPLE'
　　　　 EXEC 　CICS WRITEQ TS QUEUE('EXAMQ')　　　　　　　　　　　　 X　
　　　　　　　　 FROM(DEBUG) LENGTH(16)
　　　　 EXEC 　CICS WRITEQ TS QUEUE('EXAMQ')　　　　　　　　　　　　 X　
　　　　　　　　 FROM(HELLO) LENGTH(32)
RETURN　 EXEC　 CICS RETURN
　　　　 END