18.3 删除账户功能模块_精通COBOL——大型机商业编程技术详解（修订版）_[共6页]

439 18.3 删除账户功能模块
COBOL PROCESS-SETMAP3.
PERFORM PROCESS-SETMAP2
MOVE DFHBMDAR TO ENTER-2A
MOVE DFHBMBRY TO NEXT-2A. 18.3 删除账户功能模块
在删除账户功能模块的界面上，用户可以通过输入所要删除的账户账号来对账户进行删除。

系统会根据所输入的账号将相应的账户姓名显示出来。

用户同样可确认或撤销删除操作、连续删除账户、以及返回主菜单。

删除账户功能模块的界面如图18.3
所示。

图18.3
删除账户功能模块界面
在添加账户功能模块中，系统可输出的提示信息有以下几条。

提示信息1：
INV ALID KEY PRESSED （表示用户按了非法的按键）。

提示信息2：
INPUT DA TA REQUIRED （表示用户输入数据为空）。

提示信息3
：ACCOUNT NUMBER NOT NUMERIC （表示输入的账号不全为数字）。

提示信息4
：ACCOUNT NOT EXIST （表示所要删除的账户不存在）。

提示信息5
：ACCOUNT DELETED FROM FILE （表示将账户从数据文件中删除成功）。

提示信息6：UPDA
TE PROCESS CANCELED （表示用户撤销了删除账户操作）。

提示信息7：ENTER “Y ”OR “N
”（要求用户输入确认或撤销信息）。

提示信息8：
PROCESSING ERROR （表示系统在处理过程中发生错误）。

提示信息9：DELETE SESSION ENDED （表示退出系统）。

删除账户功能模块的任务要求如下。

（1）显示界面，允许用户输入账号信息。

但“PROCEED WITH UPDATE (Y/N)？_”、“PF9=NEXT ”以及姓名信息位置不显示。

并且以上各处下划线位置不允许输入。

（2）根据用户在输入数据前后所按的不同功能按键，分别作出如下处理。

“Enter ”按键：执行步骤3。

Pause/Break
按键：输出提示信息9，同时退出该系统。

“PA2
（F2）”按键：返回主菜单。

其他按键：输出提示信息1，重新执行步骤2。

（3）根据用户输入的账号信息，分别作出如下处理。

COBOL
如果没有输入或输入的为空格，则输出提示信息2。

同时账号信息高亮显示，不允许输
入，再返回执行步骤2。

如果输入的账号不全为数字，则输出提示信息3。

同时账号信息高亮显示，不允许输入，
再返回执行步骤2。

判断账号信息，如果在数据文件中不存在该账号，则输出提示信息4。

同时将账号信息
高亮显示，不允许输入，再返回执行步骤2。

如果数据文件中存在该账号，则执行步骤4。

（4）重新输出界面。

此时将“PROCEED WITH UPDATE (Y/N)？_”高亮显示，并在下划线处允许输入。

同时显示与输入的账号对应的账户姓名，且二者所在位置都不允许输入。

（5）根据用户在输入数据前后所按的不同功能按键，分别作出如下处理。

“Enter”按键：执行步骤6。

Pause/Break按键：输出提示信息9，同时退出该系统。

“PA2（F2）”按键：返回主菜单。

其他按键：输出提示信息1，重新执行步骤5。

（6）根据用户输入的确认或撤销信息，分别作出如下处理。

如果没有输入或输入的为空格，则输出提示信息2，返回执行步骤5。

如果输入的为“Y”，则将相应账户信息从数据文件中删除，输出提示信息5，执行步
骤7。

如果输入的为“N”，则输出提示信息6，执行步骤7。

如果输入的为其他字符，则输出提示信息7，返回执行步骤5。

（7）高亮显示“PF9=NEXT”，同时不显示”Enter”。

此时用户按下快捷键F9，则返回执行步骤1；若按其他按键，包括Enter键，则输出提示信息1，返回执行步骤4。

（8）如果在处理过程中遇到任何异常，则输出提示信息8，同时退出该系统。

设该模块所用到的除文件BAMSFKS以外的各项资源名称分别如下。

交易名称：BADF。

程序名称：BAMSDF。

界面所对应的MAP名称：BAMAPDF。

MAP所在的MAPSET名称：BAMPSDF。

同时，令本模块中符号MAP里的各变量如下。

ACC-N3：对应账号信息部分。

CLI-N3：对应姓名信息部分。

PROCE-3：对应“PROCEED WITH UPDA TE (Y/N)?”字段。

UPDA TE-3：对应“PROCEED WITH UPDA TE (Y/N)? _”中的下划线。

NEXT-3：对应“PF9=NEXT”字段。

ENTER-3：对应“ENTER”字段。

DISPL-3：对应系统信息输出部分。

则实现该模块所有功能的完整程序代码如下。

IDENTIFICATION DIVISION.
PROGRAM-ID BAMSDF.
440
第18章开发小型银行账户管理信息系统。