COBOL商业编程技术-大作业.doc - CSDN文库

2 浏览量更新于2023-11-23 评论收藏 174KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

.

精选范本

MOVE 'NO' TO KEY-ALLOCATED-SWITCH

PROCESS WITHDRAW

ELSE (ACTIVE-KEY IS NOT IN OLD-MASTER-FILE)

WRITE 'ERROR-NOT EXIST'

END-IF

WHEN OTHER

WRITE 'ERROR-INVALID TRANSACTION CODE'

END-EVALUATE

READ TRANSACTION-FILE

AT END MOVE HIGH-VALUES TO TRANSACTION-KEY

END-DO

IF KEY-ALLOCATE-SWITCH = 'YES'

WRITE NEW-MASTER-RECORD

END-IF

CHOOSE NEXT ACTIVE-KEY

ENDDO

CLOSE FILES

STOP RUN

2.实验主体思想及大致流程

（1）建立两个世代数据集：

UR509.TRAINING.FILE.BKTRAN UR509.TRAINING.FILE.BKMAST

注：其中 BKTRAN 作为交易文件的根文件，BKMAST 作为主文件的根文件。

（2）创建第一代数据集:

UR509.TRAINING.FILE.BKTRAN. G0001V00 UR509.TRAINING.FILE.BKMAST.

G0001V00

分别作为存放初始交易文件旧主文件的记录用作更新主文件的输入。

（3）运用上述平衡线算法编写 COBOL 程序

（4）编译 COBOL 程序（具体实现中详细说明）

（5）运行 COBOL 程序：

UR509.TRAINING.FILE.BKMAST. G0002V00 中将存入新主文件记录查看新主

文件。

（6）增加对 VSAM 文件的处理。

四、实验具体实现及说明

剩余19页未读，继续阅读

评论0

zzzzl333

粉丝: 687
资源: 7万+

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈