文档介绍:COBOL for Mainframe Fundamentals
Ch9 COBOL主机应用开发架构基础
本节内容
COBOL与传统系统
COBOL应用开发架构
COBOL与CICS
COBOL与DB2
COBOL与IMS
更详尽的内容将在相关课程中讲述。
COBOL与传统系统
传统程序是用上一代技术开发的可操作计算机程序或程序组,多数已经运行多年,并且仍然能胜任所负责的工作的可行系统;
上世纪70年代~80年代,COBOL大量用于建设大型、复杂的商业系统,因此用COBOL编写的数据处理程序构成了传统程序的主体;
传统系统通常是公司进行关键商业活动时所依赖的核心程序,当系统需要更新时不能中断,从头改写往往是下策,其代码的修改和改进为现代的COBOL编程人员带来了机遇和挑战。
COBOL应用开发架构
大部分传统COBOL系统都是用IBM硬件、操作系统和编译器开发的;
近代的S/390、Z900、AS/400乃至最新的iSeries、zSeries等服务器上仍然保持了对COBOL的支持;
COBOL应用程序的数据可以放在文件中,也可以放在DBMS(数据库管理系统)中;
主机上COBOL应用程序后台的DBMS通常使用IMS(层次数据库)或DB2(RDBMS),事务管理的实现则使用CICS或者IMS TM。
COBOL与CICS
CICS简介
CICSCOBOL
CICS简介
CICS是IBM的客户信息控制系统,是运行终端(联机)系统的环境;
CICS特别适合事务性系统,如处理机票购买和银行存取款等;
40多年来,CICS一直活跃在全球一流公司的商业系统中:
当今全球一共有大约50000个CICS站点;
在500个最大的IBM客户中,490个都是用CICS;
大约有100万编程人员编写和维护CICS程序,主要是COBOL程序。
CICS事务
CICS事务由一个或多个CICS程序组成,通常是用COBOL编写,一般是用SQL命令读写关系数据库或用DL/I读写IMS数据库,并负责与终端上的最终用户交流信息;
CICS保证事务或者完全成功,或者根本不执行,它与COBOL配合协调,能高效地使用系统资源;
COBOL程序的性质是不可再入(reentrant)的,即一次只能有一个终端用户执行内存中的COBOL程序,但CICS用伪再入(pseudo-reentrant)或准再入(quasi-reentrant)技术解决了这个问题,它对COBOL程序的每个实例保存一份工作存储节,但允许程序的所有实例使用过程部。
CICS程序实例——屏1
CICS程序实例——屏2
CICS程序实例——屏3