Ch9编译和运行COBOL程序.ppt-.ppt

本节内容 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程序实例——屏1 COBOL中的CICS命令 通用格式 command option(arg).... 在COBOL中用EXEC CICS启动CICS 命令，用END EXEC.终止。 终端控制 对终端进行 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’ TO MSG-ID. MOVE ‘INVOICE NOW BEING PRINTED’ TO MSG-TXT. EXEC CICS SEND FROM (OUTPUT-MESSAGE) LENGTH (MSG-LENGTH) ERASE END-EXEC. SEND CONTROL命令 语法格式 EXEC CICS SEND CONTROL CURSOR(data-value) ERASE|ERASEUP FREEKB END-EXEC. SEND MAP命令 语法格式 EXEC CICS SEND MAP (name) [MAPSET(name)] [FROM(data-area)] [LENGTH(data-value)] [DATAONLY|MAPONLY] [ALARM] [CURSOR(data-value)] [ERASE|ERASEUP] [FREEKB] END-EXEC. Exception condition: MAPFAIL 符号Map WORKING-STORAGE SECTION. COPY symbolic-map-member-name PROCEDURE DIVISION. MOVE xxx TO xxxO. EXEC CICS SEND MAP… END-EXEC. 物理Map 在CICS里用CEDA定义 CEDA ? DEF ? MAPSET RECEIVE MAP命令 语法格式 EXEC CICS RECEIVE MAP(name) [MAPSET(name)] LENGTH(data-a