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

《第18章开发小型银行账户管理信息系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第18章开发小型银行账户管理信息系统本章主要介绍如何使用COBOL,以及CICS实际开发出一个小型的银行账户管理信息系统。该MIS系统共分为5个功能模块。这5个模块分别为主菜单模块和对账户的增删改查功能模块。下面根据不同的模块分别予以介绍。18.1主菜单模块主菜单界面通过CICS中的MAP绘制。用户可在该界面上选择执行增删改查操作中的某一项。同时，该界面中倒数第二行MESSAGELINE也会根据用户的输入产生相应的提示信息输出。主菜单模块的界面如图18.1所示。BAMMBANKACCOUNTMANAGEMENTSYSTEMM

2、AINMENU(A)1NQU1RE(D)ELETE(M)ODIFY(1)1NQUIRESELECTFUNCT1ON—*****MESSAGEL1NEENTERCLEAR二ENDSESSION图1&1主菜单模块界面需要注意的是，其他各个功能模块也都是有界面的，且界面实际上都为CICS中的MAP。后面不再对此另行说明。在以上界面中，下划线部分为用户输入区域，用以选择执行不同的功能。MESSAGELINE部分则为系统的信息输出区域。本模块中系统可输出的提示信息有以下几条：□提示信息1:INVALIDKEYPRESSED（表示用户按

3、了非法的按键）。□提示信息2：INVALIDOPTIONSELECTED（表示用户输入了非法的功能选项）。□提示信息3：INPUTDATAREQUIRED（表示用户输入数据为空）。□提示信息4：PROCESSINGERROR（表示系统在处理过程中发生错误）。□提示信息5：MAINSESSIONENDED（表示退出系统）。在实际软件项日中，通常是需要按照严格的开发流程进行的。开发流程依次为项目计划、需求分析、可行性分析、概耍设计、详细设计、编码、测试、维护。并且，在每一个具体坏节中都需要提供相应的文档。此处作为基础教程，仅简单

4、的给出任务要求以及相应的代码。其屮主菜单模块的任务要求涵盖以下几个步骤：（1）显示界而，并允许用户在界而上输入数据。（2）根据用户在输入数据前后所按的不同功能按键，分别作出如下处理：□“Enter”按键：执行步骤3。□Pause/Break按键：在新页面首行输出提示信息5,同时退出该系统。□其他按键：输出提示信息1,重新执行步骤2。（3）根据用户的输入数据，分别作出如下处理：□输入数据为空或者为空格，则输出提示信息3,返回执行步骤2。□输入数据非法，则输出提示信息2,返冋执行步骤2。□输入数据合法，执行步骤4。（4）根据用户

5、输入的合法数据，分别作出如下处理：□输入数据为“A”:执行添加账户功能模块。□输入数据为“D”:执行删除账户功能模块。□输入数据为“M”:执行修改账户功能模块。□输入数据为“I”:执行查询账户功能模块。（5）如果在处理过程中遇到任何异常，则输出提示信息4,同时退出该系统。不妨设该模块所用到的各项资源名称分别如下：□交易名称：BAMMo□程序名称：BAMSMMo□界面所对应的MAP名称：BAMAPMMo□MAP所在的MAPSET名称：BAMPSMMo同时,令符号MAP屮的各变量如下：□SELECT-M：对应“SELECTFUN

6、CTION中的下划线。□DISPL-M：对应系统信息输出部分。则实现该模块所有功能的完整程序代码如下：IDENTIFICATIONDIVISION.PROGRAM-IDBAMSMM.ENVIRONMENTDIVISION.DATADIVISION.WORKING-STORAGESECTION.01COMSTART.05STATUS-I01ERR-CODE01MSG101OUT1COPYDFHAID.PICXVALUE'N1.PICS9(8)COMP.PICX(44)VALUESPACES.PICX(79)VALUESPACE

7、S.COPYBAMPSMM.LINKAGESECTION.01DFHCOMMAREA.05STATUS-CPICX.PROCEDUREDIVISION.***当任务第一次执行时，直接输岀MAP界面，并RETURN到自身***IFEIBCALEN=0THENMOVELOW-VALUESTOBAMAPMMOEXECCICSSENDMAPCBAMAPMM*)MAPSETfBAMPSMM1)CURSOR(1337)ERASEFREEKBEND-EXECEXECCICSRETURNTRANSIDCBAMM*)COMMAREA(COMS

8、TART)LENGTH(1)END-EXEC.***当用户按Pause/Break按键时，输出相应提示信息，并退岀该MIS系统***IFEIBAID=DFHCLEARTHENMOVE'MAINSESSIONENDED'TOOUT1EXECCICSSENDFROM(OUTI)LENGTH(7