COBOL主机应用开发架构基础教学讲义.ppt

COBOL for Mainframe Fundamentals 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 CICS程序实例——屏4 COBOL与CICS CICS的许多特性使程序员不必考虑CICS终端的结构和它们的位置以及如何与网络联接就能编写出高级的事务处理应用程序； CICSCOBOL程序是COBOL语句与EXEC CICS语句的组合，能与CICS通信，程序中的每一行是下列语句之一： COBOL行（例如MOVE WS-TEMP TO WS-PERMANENT） EXEC CICS语句（例如EXEC CICS RETURN END-EXEC） 数据库访问语句（例如EXEC SQL SELECT NAME INTO:WS-NAME FROM EMPLOYEE WHERE EMP_ID=:WS-ID END-EXEC） CICSCOBOL程序通过EXEC CICS SEND和RECEIVE语句与最终用户通信，就像其它程序使用DISPLAY和ACCEPT一样，不过在CICSCOBOL程序中，通常是全屏显示而不是一行显示。 COBOL中的CICS命令 通用格式 command option(arg).... 在COBOL中用EXEC CICS启动CICS 命令，用END EXEC.终止。 CICS命令一览 终端控制 SEND, SEND CONTROL, SEND MAP, RECEIVE, RECEIVE MAP 异常处理 HANDLE CONDITION, IGNORE CONDITION 文件控制 READ, WRITE, REWRITE, WRITE, UNLOCK, STARTBR, READNEXT, READPREV, ENDBR, RESETBR 程序控制 LINK, XCTL, RETURN Queue 控制 WRITEQ TS|TD, READQ TS|TD, DELETEQ TS|TD 终端控制 对终端进行 I/O 命令： SEND RECEIVE 基本的mapping支持 基本的mapping支持 字符屏幕显示（ mapping ） 基于应用程序生成mapping 从终端接受数据或向终端发送数据 SEND命令 语法格式 EXEC CICS SEND FROM(data-area) LENGTH(data-value) END-EXEC. SEND样例 WORKING-STORAGE SECTION. 01 MSG-LENGTH PIC S9(4) COMP. 01 OUTPUT-MESSAGE. 05 MSG-ID PIC X(4). 05 FILLER PIC X. 05 MSG-TXT PIC X(35). . . PROCEDURE DIVISION. MOVE 40 TO MSG-LENGTH. MOVE ‘INV1’