简单CICS程序示例

下面的例子中，假设C程序是 IBMUSER.PROJ.C(TCCS), 编译脚本放在IBMUSER.PROJ.JCL中.

1. 修改DFH320.CICS.ADFHPROC(DFHYITDL)
2. 修改DFHYITDL

   INDEX='DFH320.CICS'
   PROGLIB='DFH320.CICS.SDFHLOAD'
   COMPILER=CCNDRVR
   DSCTLIB='DFH320.CICS.SDFHC370'
   LE370HLQ='CEE'
   COMPHLQ='CBC'
   

3. 编译用的JCL 脚本

   //CCICS JOB CLASS=A,
   //    MSGCLASS=A,NOTIFY=&SYSUID
   //*compile and link a NON XPLINK CCICS Program
   //MYPROC JCLLIB ORDER=DFH320.CICS.ADFHPROC
   //COMP  EXEC DFHYITDL,REGION=75M,
   //    PROGLIB=IBMUSER.PROJ.LOAD(TCCS),                
   //    CPARM='RENT,SOURCE,LIST,LONGNAME,LOCALE("ZH_CN.IBM-1388")',  
   //    LNKPARM='LIST,MAP,LET,XREF'                    
   //TRN.SYSIN DD DSN=IBMUSER.PROJ.C(TCCS),DISP=SHR  
   //C.SYSLIB  DD DSN=IBMUSER.PROJ.C,DISP=SHR      
   //LKED.SYSIN  DD *                                
   NAME TCCS(R)                                
   /*
   

4. 在CICS中添加存放生成文件的dataset. 用来存放生成文件的dataset需要添加到CICS的启动JCL中。 添加到//DFHRPL后,添加后重启CICS.也可以直接将生成的LOAD拷贝到CICS定义的, 本例中为CEE.SCEECICS

5. 登录CICS, 定义相应PROG和TRANS
6. 在CICS中运行交易

注：程序在CICS中定义以后，修改程序的话需要 CEMT 更新程序