精通COBOL--11.1.3 防止数据意外丢失或被更改
来源:互联网 发布:centos 双网卡驱动 编辑:程序博客网 时间:2024/05/21 17:37
COBOL程序中的数据通常都为全局性数据。因此,当程序较大,数据较多时,某些数据在程序运行中就有可能会意外丢失或被更改。如果使用子程序调用,只将某一功能要使用的数据传递给相应的子程序,则能较好的防止此类问题。
例如,下面这段程序中便用到了较多的数据,代码如下。
IDENTIFICATION DIVISION.
PROGRAM-ID TEST-PROG.
AUTHER XXX.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING STORAGE SECTION.
01 TEST-DATA.
05 TEST-DATA-1 PIC X.
05 TEST-DATA-2 PIC X.
05 TEST-DATA-3 PIC X.
……
05 TEST-DATA-N PIC X.
*
PROCEDURE DIVISION.
process TEST-DATA-1.
process TEST-DATA-2.
process TEST-DATA-3.
……
process TEST-DATA-N.
STOP RUN.
此时,在同一程序中同时处理过多的数据,容易造成部分数据意外丢失或被更改。如果将部分涉及到数据处理的功能段独立起来,编写为子程序,便可通过子程序减少此类错误发生。因为此时数据分散到各个子程序之间进行处理,增强了数据间的相对独立性。并且,对于每一个子程序而言,处理的数据相对来说也并不太多。使用子程序调用方式后的主程序代码如下。
IDENTIFICATION DIVISION.
PROGRAM-ID TEST-PROG.
AUTHER XXX.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING STORAGE SECTION.
01 TEST-DATA.
05 TEST-DATA-1 PIC X.
05 TEST-DATA-2 PIC X.
05 TEST-DATA-3 PIC X.
……
05 TEST-DATA-N PIC X.
*
PROCEDURE DIVISION.
CALL ‘SUBPGM1’ USING TEST-DATA-1
TEST-DATA-2
TEST-DATA-3.
CALL ‘SUBPGM2’ USING TEST-DATA-4
TEST-DATA-5.
……
process TEST-DATA-N.
STOP RUN.
- 精通COBOL--11.1.3 防止数据意外丢失或被更改
- 精通cobol--9.10.1 计算数据总和
- 精通cobol--9.6.3 对查找数据的处理
- 精通cobol--9.15.3 变长表中数据的引用范围
- 精通cobol--第9章 COBOL中的表
- 精通COBOL--11.1 子程序调用的作用
- 精通COBOL--11.4 被调用程序
- 精通cobol--9.1.3 表的基本用途
- 精通cobol--9.2.3 下标的格式要求
- 精通cobol--9.9.3 查找效率
- 精通cobol--9.10.3 计算中位数
- 精通cobol--9.11.3 索引的特点
- 精通cobol--9.16.3 嵌套索引表
- 精通COBOL--11.2.3 子程序的终止方式
- 精通COBOL--16.1.3 CICS的基本操作
- 精通COBOL--16.6.3 MAP的应用
- 精通COBOL--11.4.3 被调用程序中的入口地址
- 精通cobol--9.2 下标表
- NT内核下的inline hook
- uclinux-2008R1-RC8(bf561)到VDSP5的移植(1):前言
- Spring配置
- Linux下oracle设置开机自启动的方法
- 精通COBOL--11.1.2 提高部分功能段执行效率
- 精通COBOL--11.1.3 防止数据意外丢失或被更改
- Windows下如何彻底删除Oracle
- ORACLE常用傻瓜问题1000问全集(一)
- 精通COBOL--11.2 子程序调用的特点
- Oracle数据库开发约定
- 想在ubuntu下写写驱动,找到一些资料..
- 精通COBOL--11.2.1 子程序的命名规则
- oracle事务嵌套研究
- 精通COBOL--11.2.2 子程序的调用顺序