本文介绍了如何开发一个基于CICS、COBOL和DB2的典型在线交易程序，涉及上下翻屏、增删查改数据库记录等功能。详细讲解了DB2 DBRM、PLANS、CICS DB2 ENTRY和DB2 TRANS的作用，并阐述了COBOL程序中实现上下翻屏的算法。此外，还涵盖了MAPS、PROGRAMS、TRANSACTIONS的定义与安装，以及CICS中相关功能的演示。
经过前面基础知识入门的朋友,一定想知道典型的ONLINE程序是如何的. 下面的文章即将展现最典型的基于CICS,COBOL,DB2和MAPS MICRO的交易 ---纪录加油的交易. 此交易具有所有银行应用的功能,包括上下翻屏,增加/显示/修改/拷贝 数据库记录.
STEP1:首先我们要先规划一下要做的事情:两张MAP和对应着的两个程序,分别是上下翻屏的画面和显示明细的画面; 两个CICS交易,分别对应着两个程序;4个JCL,分别编译MAPS和PROGRAMS;两个DB2 DBRM和一个PLAN; 两个CICS的DB2 ENTRY和DB2 TRANS.
其中MAPS,PROGRAMS,JCLS,TRANSACTIONS不需多说,前面基础入门的文章已经提到.在这里要提一下什么是DB2 DBRM, PLANS和CICS DB2 ENTRY & DB2 TRANS.
DB2 DBRM: 负责进行程序和数据库之间的交流,可以打开DBRM来看看,看到的是一些SQL语句,比如SELECT, CURSOR等等
PLANS: 一个PLANS可以包含多个DBRM或者PACKAGE.PLAN里面包括一些授权信息,这可以理解为运行程序的时候需要以某种权限去访问数据库,比如SELECT权限,UPDATE权限等.
CICS DB2 ENTRY & DB2 TRANS: 要让CICS和外部的DB2进行通讯,除了要定义DB2 CONNECTION之外,还需要定义DB2 ENTRY & TRANS. 其中DB2 ENTRY里面定义了ENTRY名字,所属GROUP名字,还有要用到的PLAN名字; DB2 TRANS定义了该交易对应于CICS里面哪个已定义的交易,以及要用到的DB2 ENTRY名字.有了这两个定义,CICS内部交易就可以访问外部数据库了.
STEP2: COBOL程序里面要实现上下翻屏,不能像AS/400 RPG+DISPLAY FILES那样简单定义SUBFILE,而必须要自己写出算法.一般来说是定义SQL CURSOR,在打开CURSOR的时候每次读几条记录,然后记录下第一条和最后一条记录,以便下一次上下
STEP1:首先我们要先规划一下要做的事情:两张MAP和对应着的两个程序,分别是上下翻屏的画面和显示明细的画面; 两个CICS交易,分别对应着两个程序;4个JCL,分别编译MAPS和PROGRAMS;两个DB2 DBRM和一个PLAN; 两个CICS的DB2 ENTRY和DB2 TRANS.
其中MAPS,PROGRAMS,JCLS,TRANSACTIONS不需多说,前面基础入门的文章已经提到.在这里要提一下什么是DB2 DBRM, PLANS和CICS DB2 ENTRY & DB2 TRANS.
DB2 DBRM: 负责进行程序和数据库之间的交流,可以打开DBRM来看看,看到的是一些SQL语句,比如SELECT, CURSOR等等
PLANS: 一个PLANS可以包含多个DBRM或者PACKAGE.PLAN里面包括一些授权信息,这可以理解为运行程序的时候需要以某种权限去访问数据库,比如SELECT权限,UPDATE权限等.
CICS DB2 ENTRY & DB2 TRANS: 要让CICS和外部的DB2进行通讯,除了要定义DB2 CONNECTION之外,还需要定义DB2 ENTRY & TRANS. 其中DB2 ENTRY里面定义了ENTRY名字,所属GROUP名字,还有要用到的PLAN名字; DB2 TRANS定义了该交易对应于CICS里面哪个已定义的交易,以及要用到的DB2 ENTRY名字.有了这两个定义,CICS内部交易就可以访问外部数据库了.
STEP2: COBOL程序里面要实现上下翻屏,不能像AS/400 RPG+DISPLAY FILES那样简单定义SUBFILE,而必须要自己写出算法.一般来说是定义SQL CURSOR,在打开CURSOR的时候每次读几条记录,然后记录下第一条和最后一条记录,以便下一次上下
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
