- 1、本文档共37页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
本节内容 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
您可能关注的文档
- 349-一.汽化 液化1.定义:物质由液态变成气态的过程,称为汽化 物质由气.ppt
- 350-共變數分析原理.ppt
- 351量測系統分析.ppt
- 355-高中英语课改热点问题探讨.ppt
- 357-计算流体力学.ppt
- 358-教育部作业标准化(SOP)流程图制作规范.ppt
- 359-数据库错误追踪专题.ppt
- 360-近似数有效数字.ppt
- 361-如何招聘优秀人才.ppt
- 364-12.1平方根与立方根.ppt
- 2024-2034年中国无纺布毛巾行业市场发展监测及投资战略咨询报告.docx
- 2024-2034年中国有机肥料行业市场全景评估及发展趋势预测报告.docx
- 2024-2034年中国石墨烯市场深度调查及投资方向研究报告.docx
- 2024-2034年中国工业电机市场全景评估及投资规划建议报告.docx
- 2024-2030年中国陶瓷砖行业市场竞争现状及发展趋势分析报告.docx
- 2024-2034年中国多用途货车行业市场现状分析及竞争格局与投资发展研究报告.docx
- 2024-2034年中国uasb行业市场现状分析及竞争格局与投资发展研究报告.docx
- 2024-2034年中国乐器行业市场运行态势及投资战略咨询研究报告.docx
- 2024-2034年中国原生视频广告行业市场调查研究及投资前景预测报告.docx
- 2024-2030年中国注塑成型装备行业市场发展调研及投资战略分析报告.docx
文档评论(0)