第6章-COBOL+CICS+VSAM和COBOL+CICS+DB2程序开发.pptVIP

提交上述JCL并成功（MAXCC=4）后，便在STRB.CICS.LOAD中生成一个PROGRAM C0O11T3。 自此，COBOL+CICS+DB2样例程序的源代码编写并执行完毕。 下面在CICS Region里创建各个资源，这些资源包括MAPSET，PROGRAM，TRANSACTION，DB2CONNECTION和DB2ENTRY。 在CICS Region里输入如下命令创建MAPSET： CEDA DEF MAPSET(M211T03) G(TJD0211) 在CICS Region里输入如下命令创建PROGRAM： CEDA DEF PROG(C0O11T3) G(TJD0211) 在CICS Region里输入如下命令创建TRANSACTION： CEDA DEF TRANSACTION(C211) PROG(C0O11T3) G(TJD0211) 在CICS Region里输入如下命令创建DB2CONNECTION： CEDA DEF DB2CONN(DB8G) DB2ID(DB8G) G(TJD0211) 在CICS Region里输入如下命令创建DB2ENTRY： CEDA DEF DB2ENTRY(E211T01) TRANSID(C211) PLAN(P211T03) G(TJD0211) 在CICS Region里输入如下命令安装定义的上述资源： CEDA INS G(TJD0211) 注：DB2CONNECTION表示CICS和DB2的连接，且是DB2子系统独占的，即DB2CONNECTION中指定的DB2ID(DB8G)表示将使用子系统DB8G，如果之前CICS和DB2的连接采用另一个子系统DB7G，那么在采用DB8G之前，必须在CICS Region中： （1）运行如下命令将CICS和DB2的连接断开： DSNC STOP （2）安装DB2CONNECTION（步骤略） （3）运行如下命令将CICS和DB2重新连接起来，此时将采用子系统DB8G： DSNC STRT （4）可以运行如下命令查看CICS和DB2的连接细节： DSNC DISP STAT 自此，COBOL+CICS+DB2样例程序的CICS资源都已经定义并安装完毕。 下面执行刚刚创建并安装好的交易。在CICS Region里输入C211，回车，如果一切正常，将出现如下屏幕： 在ENTER KEY处输入DB2表中的KEY值，如00001，按回车，CONTENT处将显示DB2表中KEY值00001对应的NON KEY值BOOK1。 CICS翻译、COBOL编译、链接上面的COBOL+CICS源程序的JCL如下面三页所示： 提交上述JCL并成功（MAXCC=4）后，便在STRB.CICS.LOAD中生成一个PROGRAM C0O11T1。 自此，COBOL+CICS样例程序的源代码编写并执行完毕。 下面在CICS Region里创建各个资源，这些资源包括MAPSET，PROGRAM和TRANSACTION。 在CICS Region里输入如下命令创建MAPSET： CEDA DEF MAPSET(M211T01) G(TJD0211) 在CICS Region里输入如下命令创建PROGRAM： CEDA DEF PROG(C0O11T1) G(TJD0211) 在CICS Region里输入如下命令创建TRANSACTION： CEDA DEF TRANSACTION(A211) PROG(C0O11T1) G(TJD0211) 在CICS Region里输入如下命令安装定义的上述资源： CEDA INS G(TJD0211) 自此，COBOL+CICS样例程序的CICS资源都已经定义并安装完毕。 下面执行刚刚创建并安装好的交易。在CICS Region里输入A211，回车，如果一切正常，将出现如下屏幕： 在ENTER YOUR ID HERE:处随意输入一个用户名，如TANGJF，按回车，MESSAGE:处将显示：HELLO,TANGJF!。 6.3 COBOL+CICS+VSAM样例程序开发 本节在6.1节的基础上，论述COBOL+CICS+VSAM样例程序的开发过程。 创建本节中用到的VSAM数据集的JCL如下： VSAM数据集定义好以后，下一步是向VSAM数据集TJD0211.L11.C0K11T01中插入样本数据，我们用DITTO工具来完成这一工作。方法如下： 在ISPF主菜单中输入M.7，进入DITTO?界面。按如下界面输入信息： 按回车后得到如下界面，在Data set name处输入要插入数据的VSAM数据集的名字，用单引号括起来，如下