【正文】 大連理工大學(xué) 課程大作業(yè) 課程名稱： COBOL 商業(yè)編程技術(shù) 學(xué)院（系）： 軟件學(xué)院 專 業(yè)： 大型機(jī)方向 班 級(jí)： 學(xué) 號(hào)： 學(xué)生姓名： 2021 年 4 月 25 日 一、 實(shí)驗(yàn)內(nèi)容 (1) 實(shí)驗(yàn) 背景 ： 假設(shè)有一公司要實(shí)現(xiàn)系統(tǒng)更新，將從開始至 2021 年一季度的數(shù)據(jù)備份到一個(gè)文件（數(shù)據(jù)集 ）中，將第二季的數(shù)據(jù)保存在另一文件（數(shù)據(jù)集 ）中，要系統(tǒng)更新完成，要將兩數(shù)據(jù)整合， 并且第二季中的數(shù)據(jù)包括新的分公司的成立，原分公司的倒閉，原分公司數(shù)據(jù)更新。MERGE）及對(duì)文件的操作 4） 掌握表的基本用法和優(yōu)點(diǎn) 5） 熟練掌握子程序調(diào)用方法和具體實(shí)現(xiàn)原理 6） 能正確編寫 JCL 語言運(yùn)行 COBOL 程序 三：實(shí)驗(yàn)核心內(nèi)容 實(shí)驗(yàn)代 碼 分類 如下： （ 1） 主程序代碼 （ 2） 子程序代碼 （ 3） 編譯程序代碼 （ 4） 運(yùn)行程序代碼 （ 5） 輸入數(shù)據(jù) 1： （ 6） 輸入數(shù)據(jù) 2： （ 6） 輸出數(shù)據(jù) 1： ， （ 7） 輸出數(shù)據(jù) 2： （ 8） 最終生成報(bào)表： 主程序結(jié)構(gòu)圖： 子程序結(jié)構(gòu)圖： 000 Updata Fold Record 100 Edit Frec Record 300 Sort Valid Record 400 Updata Fold Record 230 Release Valid Rocord 210 Read Frec Record 220 Edit Frec Record 200 Edit Frec Record 240 Write Error Record 500 Process Frec Record 510 Return Frec Record 553 Updat Fold Record 552 insert new record 520 Process Frec Record Frec Record 551 write Fcol Record 554 Rename Fold record Frec Record 240 Write Error Record 520 Write fnew Record 240 Write Error Record （ 1） 主程序代碼 000100 IDENTIFICATION DIVISION. 000200* 000300 PROGRAMID. RPT3000Z. 000400* 000500 ENVIRONMENT DIVISION. 000600* 000700 INPUTOUTPUT SECTION. 000800* 000900 FILECONTROL. 001000* 001100 SELECT CUSTMAST ASSIGN TO CUSTMAS1. 001200 SELECT SALESRPT ASSIGN TO SALESRP1. 001300* 001400 DATA DIVISION. 001500* 001600 FILE SECTION. 001700* 001800 FD CUSTMAST. 001900* 002021 01 CUSTOMERMASTERRECORD. 002100 05 CMBRANCHNUMBER PIC 9(2). 002110 05 CMBRANCHNAME PIC X(20). 002200 05 CMSALESREPNUMBER PIC 9(2). 002300 05 CMCUSTOMERNUMBER PIC 9(5). 002400 05 CMCUSTOMERNAME PIC X(20). 002500 05 CMSALESTHISYTD PIC S9(5)V9(2). 002600 05 CMSALESLASTYTD PIC S9(5)V9(2). 002700* 002800 FD SALESRPT 002900 RECORD CONTAINS 132 CHARACTERS. 003000 01 PRINTAREA PIC X(132). 003100* 003200 WORKINGSTORAGE SECTION. 003300* 003400 01 SWITCHES. 003500 05 CUSTMASTEOFSWITCH PIC X VALUE N. 003501 05 FIRSTRECORDSWITCH PIC X VALUE Y. 003502 05 FIRSTSALESREPSWITCH PIC X VALUE Y. 003503* 003510 01 CALCULATEDFIELDS. 003520 05 CHANGEAMOUNT PIC S9(5)V99. 003600* 003601 01 CONTROLFIELDS. 003602 05 OLDBRANCHNUMBER PIC 99. 003603 05 OLDSALESREPNUMBER PIC 99. 003604* 003700 01 PRINTFIELDS. 003800 05 PAGECOUNT PIC S9(3) VALUE ZERO. 003900 05 LINESONPAGE PIC S9(3) VALUE +55. 004000 05 LINECOUNT PIC S9(3) VALUE +99. 004100 05 SPACECONTROL PIC S9. 004110 05 SPACELINE PIC X(132) VALUE ALL SPACE. 004200* 004300 01 TOTALFIELDS. 004400 05 SALESREPTOTALTHISYTD PIC S9(6)V99 VALUE ZERO. 004401 05 SALESREPTOTALLASTYTD PIC S9(6)V99 VALUE ZERO. 004402 05 BRANCHTOTALTHISYTD PIC S9(6)V99 VALUE ZERO. 004403 05 BRANCHTOTALLASTYTD PIC S9(6)V99 VALUE ZERO. 004404 05 GRANDTOTALTHISYTD PIC S9(7)V99 VALUE ZERO. 004500 05 GRANDTOTALLASTYTD PIC S9(7)V99 VALUE ZERO. 004600* 004700 01 CURRENTDATEANDTIME. 004800 05 CDYEAR PIC 9999. 004900 05 CDMONTH PIC 99. 005000 05 CDDAY PIC 99. 005100 05 CDHOURS PIC 99. 005200 05 CDMINUTES PIC 99. 005300 05 FILLER PIC X(9). 005400* 005500 01 HEADINGLINE1. 005600 05 FILLER PIC X(7) VALUE DATE: . 005700 05 HL1MONTH PIC 9(2). 005800 05 FILLER PIC X(1) VALUE /. 005900 05 HL1DAY PIC 9(2). 006000 05 FILLER PIC X(1) VALUE /. 006100 05 HL1YEAR PIC 9(4). 006200 05 FILLER PIC X(11) VALUE SPACE. 006300 05 FILLER PIC X(20) VALUE YEARTODATE SALES R. 006400 05 FILLER PIC X(20) VALUE EPORT . 006500 05 FILLER PIC X(8) VALUE PAGE: . 006600 05 Hl1PAGENUMBER PIC ZZZ9. 006700 05 FILLER PIC X(52) VALUE SPACE. 006800* 006900 01 HEADINGLINE2. 007000 05 FILLER PIC X(7) VALUE TIME: . 007100 05 HL2HOURS PIC 9(2). 007200 05 FILLER PIC X(1) VALUE :. 007300 05 HL2MINUTES PIC 9(2). 007400 05 FILLER PIC X(58) VALUE SPACE. 007500 05 FILLER PIC X(10) VALUE RPT3000. 007600 05 FILLER PIC X(52) VALUE SPACE. 007700* 007800 01 HEADINGLINE3. 007900 05 FILLER PIC X(08) VALUE BRANCH . 007901 05 FILLER PIC X(20) VALUE BRANCH . 007902 05 FILLER PIC X(08) VALUE SALES . 007910 05 FILLER PIC X(20) VALUE CUST . 008000 05 FILLER PIC X(20) VALUE SALES . 008100 05 FILLER PIC X(20) VALUE SALES . 008110 05 FILLER PIC X(20) VALUE CHANGE CHANGE . 008200 05 FILLER PIC X(36) VALUE SPACE. 008300* 008400 01 HEADINGLINE4. 008500 05 FILLER PIC X(08) VALUE NUM . 008501 05 FILLER PIC X(20) VALUE NAME . 008502 05 FILLER PIC X(08) VALUE NUM . 008510 05 FILLER PIC X(20) VALUE NUM CUSTOMER NAME. 008600 05 FILLER PIC X(20) VALUE THIS YTD . 008700 05 FILLER PIC X(20)