第18章 开发小型银行账户管理信息系统.docVIP

第18章 开发小型银行账户管理信息系统 本章主要介绍如何使用COBOL，以及CICS实际开发出一个小型的银行账户管理信息系统。该MIS系统共分为5个功能模块。这5个模块分别为主菜单模块和对账户的增删改查功能模块。下面根据不同的模块分别予以介绍。 18.1 主菜单模块 主菜单界面通过CICS中的MAP绘制。用户可在该界面上选择执行增删改查操作中的某一项。同时，该界面中倒数第二行MESSAGE LINE也会根据用户的输入产生相应的提示信息输出。主菜单模块的界面如图18.1所示。 图18.1 主菜单模块界面 需要注意的是，其他各个功能模块也都是有界面的，且界面实际上都为CICS中的MAP。后面不再对此另行说明。 在以上界面中，下划线部分为用户输入区域，用以选择执行不同的功能。MESSAGE LINE部分则为系统的信息输出区域。本模块中系统可输出的提示信息有以下几条： 提示信息1：INVALID KEY PRESSED（表示用户按了非法的按键）。 提示信息2：INVALID OPTION SELECTED（表示用户输入了非法的功能选项）。 提示信息3：INPUT DATA REQUIRED（表示用户输入数据为空）。 提示信息4：PROCESSING ERROR（表示系统在处理过程中发生错误）。 提示信息5：MAIN SESSION ENDED（表示退出系统）。 在实际软件项目中，通常是需要按照严格的开发流程进行的。开发流程依次为项目计划、需求分析、可行性分析、概要设计、详细设计、编码、测试、维护。并且，在每一个具体环节中都需要提供相应的文档。此处作为基础教程，仅简单的给出任务要求以及相应的代码。其中主菜单模块的任务要求涵盖以下几个步骤： （1）显示界面，并允许用户在界面上输入数据。 （2）根据用户在输入数据前后所按的不同功能按键，分别作出如下处理： “Enter”按键：执行步骤3。 Pause/Break按键：在新页面首行输出提示信息5，同时退出该系统。 其他按键：输出提示信息1，重新执行步骤2。 （3）根据用户的输入数据，分别作出如下处理： 输入数据为空或者为空格，则输出提示信息3，返回执行步骤2。 输入数据非法，则输出提示信息2，返回执行步骤2。 输入数据合法，执行步骤4。 （4）根据用户输入的合法数据，分别作出如下处理： 输入数据为“A”：执行添加账户功能模块。 输入数据为“D”：执行删除账户功能模块。 输入数据为“M”：执行修改账户功能模块。 输入数据为“I”：执行查询账户功能模块。 （5）如果在处理过程中遇到任何异常，则输出提示信息4，同时退出该系统。 不妨设该模块所用到的各项资源名称分别如下： 交易名称：BAMM。 程序名称：BAMSMM。 界面所对应的MAP名称：BAMAPMM。 MAP所在的MAPSET名称：BAMPSMM。 同时，令符号MAP中的各变量如下： SELECT-M：对应“SELECT FUNCTION _”中的下划线。 DISPL-M：对应系统信息输出部分。 则实现该模块所有功能的完整程序代码如下： IDENTIFICATION DIVISION. PROGRAM-ID BAMSMM. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 COMSTART. 05 STATUS-I PIC X VALUE N. 01 ERR-CODE PIC S9(8) COMP. 01 MSG1 PIC X(44) VALUE SPACES. 01 OUT1 PIC X(79) VALUE SPACES. COPY DFHAID. COPY BAMPSMM. LINKAGE SECTION. 01 DFHCOMMAREA. 05 STATUS-