网站大量收购闲置独家精品文档,联系QQ:2885784924

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

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

  1. 1、本文档共67页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第6章-COBOLCICSVSAM和COBOLCICSDB2程序开发

提交上述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数据集的名字,用单引号括起来,如下

文档评论(0)

zijingling + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档