COBOL商业编程技术 大作业.doc

.COBOL商业编程技术 姓名： xxx 学号：xxxxxx班级：xxxxxx 平时成绩（30分）测试得分（30分）大作业(40分)最终成绩（100分）小组成员组成： xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx大作业评分标准：1自身承担任务量152实现情况，理解情况303输入输出数据104报告正确性，完整性305系统截图106心得体会总结5一、 实验题目：COBOL处理VSAM之简单银行案例分析二、 实验要求1.通过COBOL 编写一个银行更新主文件的程序，实现开户（增加）、销户（删除）、修改、存款和取款的功能。2.将处理文件类型换成VSAM，实现同样的功能。三、 实验实现思想1.平衡线算法介绍算法思想：标记交易文件与旧主文件进程慢的，保证交易文件与主文件以平衡的速度更新新主文件。算法具备：一个旧主文件、一个新主文件和多个交易文件。假定交易文件是按相同的关键字顺序排列的。在旧主文件中，对于每个记录，关键字的值必须是唯一的，但对于交易文件则可以是不唯一的（即几笔交易对应于同一主文件记录）。算法基础：活动键活动键是旧主文件和当前正在处理的交易键的较小者。当有多个交易文件，活动键则标志当前处理的所有键的最小值。下面为此算法的举例说明，此程序包含整个主文件更新处理的伪代码，只有单个交易文件。开始时，从每个文件中读第一个记录，并决定第一个活动键。只有关键字等于活动键的记录才允许去参加主文件的更新处理。当每个文件的关键字等于HIGH-VALUES（即旧主文件、交易文件中没有数据）算法结束。如果当前旧主文件记录的关键字等于活动键，则旧主文件记录被传送到新主文件，并且从旧主文件中读出另一条记录。第二个循环将所有等于活动键的交易应用于当前主文件记录中，一直进行此内部循环（一个关键字可能存在多个交易）直到交易关键字不再等于活动键。本程序将交易分为五种：实现开户（增加）、销户（删除）、修改、存款和取款。在交易文件的时候，程序为活动键的每一个值指定一分配状态。设置字符型变量KEY-ALLOCATED-SWITCH用来记录是否写入记录。当成功写入记录KEY-ALLOCATED-SWITCH置为YES。同时当删除时KEY-ALLOCATED-SWITCH置为NO即可。从而保证了交易文件本省的合法性。最后将记录写入新主文件。挑选下一个活动键直至文件中已没有数据。算法伪码： OPEN FILESREAD TRANSACTION-FILE AT END MOVE HIGH-VALUES TO TRANSACTION-KEYREAD OLD-MASTER-FILE AT END MOVE HIGH-VALUES TO OLD-MASTER-KEYCHOOSE FIRSTACTIVE-KEYDO WHILE ACTIVE-KEY NOT = HIGH-VALUES IF OLD-MASTER-KEY = ACTIVE-KEY MOVE YES TO KEY-ALLOCATED-SWITCH MOVE OLD-MASTER-RECORD TO NEW-MASTER-RECORD READ OLD-MASTER-FILE AT END MOVE HIGH-VALUES TO OLD-MASTER-KEY ELSE (ACTIVE-KEY IS NOT IN OLD-MASTER-FILE) MOVE NO TO KEY-ALLOCATE-SWITCH END-IFDO WHILE TRANSACTION-KEY = ACTIVE-KEY EVALUATE TRANSACTION-CODE WHEN OPEN(开户） IF KEY-ALLOCATE-SWITCH = YES WRITE ERROR-DUPLICATE RECORD ELSE (ACTIVE-KEY IS NOT IN OLD-MASTER-FILE) MOVE TRANSACTION-RECORD TO NEW-MASTER-RECORD MOVE YES TO KEY-ALLOCATED-SWITCH END-IF WHEN UPDATE（修改客户资料） IF KEY-ALLOCATE-SWITCH = YES PROCESS UPDATE ELSE (ACTIVE-KEY IS NOT IN OLD-MASTER-FILE) WRITE ERROR-RECORD NOT FOUND END-IF WHEN CLOSE （销户） IF KEY-ALLOCATE-SWITCH = YES MOVE NO TO KEY-ALLOCATED-SWITCH PROCESS DELETION ELSE (ACTIVE-KEY IS NOT IN OLD-MASTER-FILE) WRITE ERROR-RECORD NOT MATCH END-IF WNEN DEPOSIT (存款） IF KEY-ALLOCATE-SWITCH = YES MOVE NO TO KEY-ALLOCATED-SWITCH PROCESS DEPOSIT ELSE (ACTIVE-KEY IS NOT IN OLD-MASTER-FILE) WRITE ERROR-NOT EXIST END-IF WHEN WITHDRAW (取款） IF KEY-ALLOCATE-SWITCH = YES 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-KEYENDDOCLOSE FILESSTOP RUN2.实验主体思想及大致流程（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文件的处理。四、 实验具体实现及说明STEP1、组织环境1. 建立程序库UR509.COBOL.COBOL URVOL3 UR509.COBOL.COPYBOOK URVOL5 UR509.COBOL.LOAD URVOL3 UR509.COBOL.RUN URVOL3 2. 创建相关文件1. 定义GDG BaseUR509.TRAINING.FILE.BKTRAN UR509.TRAINING.FILE.BKMAST注：本实验用到了GDG，作为输入交易处理的文件EDIT UR509.COBOL.RUN(BKUPGDG)-01.06 Columns Command= Scroll = PAGE *TopofData*=MSG -Warning- The UNDO command is not available until you change =MSG your edit profile using the command RECOVERY ON. 000100/UR509GDG JOB(TS6,TEST,CED),GDGALLOC，/ MSGCLASS=V,NOTIFY=&SYSUID, 000200 / CLASS=6 000400 /STEP010 EXEC PGM=IDCAMS 000420 /GDGMODEL DD DSN=UR509.VSAM.KSDS.BK,DISP=SHR 000500 /SYSPRINT DD SYSOUT=* 000600 /SYSIN DD * 000610 DEF GDG(NAME(UR509.VSAM.KSDS.BKINPUT) - 000620 LIMIT(15) - 000630 NOEMPTY - 000640 SCRATCH ) 000650 /* 000700 /* DEF GDG(NAME(UR509.TRAINING.FILE1.BKTRAN) - 000800 /* LIMIT(15) SCRATCH NOEMPTY) 000900 /* DEF GDG(NAME(UR509.TRAINING.FILE1.BKMAST) - 001000 /* LIMIT(20) SCRATCH NOEMPTY) 2. 创建第一代数据集源代码（在UR509.COBOL.RUN这个库里）：UR509.TRAINING.FILE.BKTRAN. G0001V00 UR509.TRAINING.FILE.BKMAST. G0001V00EDIT UR509.COBOL.RUN(BKINSTFL) - 01.07 Columns Command= Scroll = PAGE *TopofData*=MSG -Warning- The UNDO command is not available until you change =MSG your edit profile using the command RECOVERY ON. 000100/UR509TFLJOB(TS1,FF12),COMPILE,MSGCLASS=V,MSGLEVEL=(1,1)，000200 / NOTIFY=&SYSUID,CLASS=1,REGION=0M 000400 /STEP010 EXEC PGM=IEFBR14 000500 /SYSOUT DD SYSOUT=* 000900 /BKTRAN DD DSN=UR509.TRAINING.FILE.BKTRAN(+1), 001000 / DISP=(NEW,CATLG,DELETE), 001100 / SPACE=(TRK,(5,5),RLSE), 001200 / RECFM=FB,LRECL=80 001300 001400 /* CREATE THE EMPTY OLD MASTER FILE 001500 001600 /BKMAST DD DSN=UR509.TRAINING.FILE.BKMAST(+1), 001700 / DISP=(NEW,CATLG,DELETE), 001800 / SPACE=(TRK,(5,5),RLSE), 001900 / DCB=(RECFM=FB,LRECL=100,DSORG=PS) 产生的第一代GDG：3. 编译程序1.作业步COBOL说明：SYSLIB: 指定函数所在库、SYSLIN；指定COBOL程序的输出数据集 本程序建立了临时数据集LOADSET用来临时存储SYSIN：指定COBOL程序的输入数据集本程序指定的是UR509.COBOL.COBOL(BKPGM01)2.作业步LKED说明：SYSLIB: 指定函数所在库、SYSLIN；指定COBOL程序的输入数据集 本程序使用了COBOL作业步中的临时数据集LOADSETSYSLMOD：指定COBOL程序的输出数据集 本程序指定的是UR509.COBOL.LOAD/COBOLCPA JOB (TS1,FF12),COMPILE,MSGCLASS=V,MSGLEVEL=(1,1),/ NOTIFY=&SYSUID,CLASS=1,REGION=0M/*/* JOB TO COMPILE AND LINK-EDIT COBOL PROGRAM/*/COBOL EXEC PGM=IGYCRCTL,REGION=2048K,/ PARM=(NOTERM,LIB,XREF,)/STEPLIB DD DSNAME=SYS1.ADCOB.SIGYCOMP,/ DISP=SHR/SYSPRINT DD SYSOUT=*/SYSLIN DD DSNAME=&LOADSET,UNIT=SYSDA,/ DISP=(MOD,PASS),SPACE=(TRK,(3,3),/ DCB=(BLKSIZE=3200)/SYSIN DD DSN=C205318.COBOL.COBOL(BKPGM01),DISP=SHR/SYSLIB DD DSNAME=C205318.COBOL.COPYBOOK,DISP=SHR/SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)/SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)/SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)/SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)/SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1)/SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1)/SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1)/LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K/SYSLIB DD DSNAME=SYS1.SCEELKED,DISP=SHR/ DD DSNAME=C205318.COBOL.COPYBOOK,DISP=SHR/SYSPRINT DD SYSOUT=*/SYSLIN DD DSNAME=&LOADSET,DISP=(OLD,DELETE)/ DD DDNAME=SYSIN/SYSLMOD DD DSNAME=C205318.COBOL.LOAD,/ SPACE=(TRK,(10,10,1),/ UNIT=SYSDA,DISP=(MOD,PASS)/SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10)/LKED.SYSIN DD * NAME BKPGM01(R)/*编译，产生可执行文件如下：4. 准备输入文件1. 以编辑模式打开UR509.TRAINING.FILE.BKTRAN.G0001V002. 拷贝如下记录到上述数据集中3. 确保交易文件如下：5. 运行程序COBOL源程序（UR509.COBOL.COBOL（BKPGM01）： 注：文件控制节指定三个文件所在运行的JCL里的 DDNAME分别为BKTRAN BKMASTO BKMASTN； IDENTIFICATION DIVISION. PROGRAM-ID. BKPGM01. *AUTHOR. FRANK LIU. ENVIRONMENT DIVISION. *CONFIGURATION SECTION. *SOURCE-COMPUTER. IBM-ZSERIES. *OBJECT-COMPUTER. IBM-ZSERIES. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT BKTRAN-FILE ASSIGN TO BKTRAN FILE STATUS IS WS-BKTRAN-STATUS . SELECT BKMASTO-FILE ASSIGN TO BKMASTO FILE STATUS IS WS-BKMASTO-STATUS . SELECT BKMASTN-FILE ASSIGN TO BKMASTN FILE STATUS IS WS-BKMASTN-STATUS . DATA DIVISION. FILE SECTION. FD BKTRAN-FILE LABEL RECORDS ARE STANDARD RECORDING MODE IS F RECORD CONTAINS 80 CHARACTERS BLOCK CONTAINS 0 RECORDS DATA RECORD IS BKTRAN-RECORD. COPY BKTRAN REPLACING =:BKTRAN:= BY =BKTRAN=. FD BKMASTO-FILE LABEL RECORDS ARE STANDARD RECORDING MODE IS F RECORD CONTAINS 100 CHARACTERS BLOCK CONTAINS 0 RECORDS DATA RECORD IS BKMASTO-RECORD. COPY BKMAST REPLACING =:BKMAST:= BY =BKMASTO=. FD BKMASTN-FILE LABEL RECORDS ARE STANDARD RECORDING MODE IS F RECORD CONTAINS 100 CHARACTERS BLOCK CONTAINS 0 RECORDS DATA RECORD IS BKMASTN-RECORD. COPY BKMAST REPLACING =:BKMAST:= BY =BKMASTN=. WORKING-STORAGE SECTION. 01 FILLER PIC X(15) VALUE WS BEGINS HERE!. COPY BKTRAN REPLACING =:BKTRAN:= BY =WS-BKTRAN=. COPY BKMAST REPLACING =:BKMAST:= BY =WS-BKMASTO=. COPY BKMAST REPLACING =:BKMAST:= BY =WS-BKMASTN=. 01 WS-BALANCE-LINE-SWITCHES. 05 WS-ACTIVE-KEY PIC X(14). 05 WS-KEY-ALLOCATED-SWITCH PIC X(03). 01 WS-FILE-STATUS. 05 WS-BKTRAN-STATUS PIC X(02). 05 WS-BKMASTO-STATUS PIC X(02). 05 WS-BKMASTN-STATUS PIC X(02). PROCEDURE DIVISION. 1000-UPDATE-MASTER-FILE. DISPLAY FRNAK START- OPEN INPUT BKTRAN-FILE BKMASTO-FILE OUTPUT BKMASTN-FILE IF WS-BKTRAN-STATUS NOT = 00 DISPLAY BKTRAN FILE ERROR: WS-BKTRAN-STATUS END-IF IF WS-BKMASTO-STATUS NOT = 00 DISPLAY BKMASTO FILE ERROR: WS-BKMASTO-STATUS END-IF IF WS-BKMASTN-STATUS NOT = 00 DISPLAY BKMASTN FILE ERROR: WS-BKMASTN-STATUS END-IF . PERFORM 1020-READ-BKTRAN-FILE PERFORM 1030-READ-BKMASTO-FILE PERFORM 1040-CHOOSE-ACTIVE-KEY PERFORM 1050-PROCESS-ACTIVE-KEY UNTIL WS-ACTIVE-KEY = HIGH-VALUES . CLOSE BKTRAN-FILE BKMASTO-FILE BKMASTN-FILE . STOP RUN . 1020-READ-BKTRAN-FILE. READ BKTRAN-FILE INTO WS-BKTRAN-RECORD AT END MOVE HIGH-VALUES TO WS-BKTRAN-AC-NO. DISPLAY FRANK TRAN RECORD WS-BKTRAN-RECORD. 1030-READ-BKMASTO-FILE. READ BKMASTO-FILE INTO WS-BKMASTO-RECORD AT END MOVE HIGH-VALUES TO WS-BKMASTO-AC-NO NOT AT END MOVE WS-BKMASTO-RECORD TO WS-BKMASTN-RECORD END-READ . 1040-CHOOSE-ACTIVE-KEY. IF WS-BKT