07_第十課_COBOL編程入門

1、北京德派克公北京德派克公司司 COBOL編程入門北京德派克公北京德派克公司司批量程序概要n對(duì)大批量的數(shù)據(jù)做統(tǒng)一的處理；n一個(gè)完整的應(yīng)用功能常是由一連串的批量程序共同完成，程序的劃分以處理的獨(dú)立性為原則n同一應(yīng)用功能的多個(gè)程序，通常被定義在同一個(gè)運(yùn)行作業(yè)中，指定各程序運(yùn)行的先后順序及關(guān)聯(lián)。北京德派克公北京德派克公司司Job flow北京德派克公北京德派克公司司批量程序開發(fā)環(huán)境n操作系統(tǒng)：Z/OSn數(shù)據(jù)庫：DB2、IMSn開發(fā)語言：COBOLn編譯和運(yùn)行：JCL JOBn與主機(jī)交互的工具： IBM personal communications (PCOM)n版本管理軟件：ENDEVORn作業(yè)自動(dòng)

2、提交系統(tǒng)：AUTO、TWS北京德派克公北京德派克公司司分類存放MEMBERn源程序:ADCD*.TEST.SOURCE n文件和表的copybook：ADCD*.TEST.COPYBOOK n編譯和運(yùn)行作業(yè)：ADCD*.TEST.JCL n程序編譯后的SQL語句模塊：ADCD*.TEST.DBRM n程序編譯后的COBOL代碼模塊： ADCD*.TEST.LOAD 北京德派克公北京德派克公司司COBOL的含義nCOBOL是什么？ Common Business-Oriented Language（公用面向商業(yè)語言）的縮寫。 廣泛應(yīng)用于數(shù)據(jù)管理領(lǐng)域，例如財(cái)會(huì)工作，統(tǒng)計(jì)報(bào)表，計(jì)劃編制，人事管理等。

3、被稱為“用于管理的語言”。北京德派克公北京德派克公司司COBOL的應(yīng)用領(lǐng)域n商業(yè)數(shù)據(jù)處理：銀行、證券系統(tǒng)n數(shù)據(jù)管理領(lǐng)域：人事管理、庫存管理、財(cái)會(huì)工作、報(bào)表統(tǒng)計(jì)、情報(bào)檢索等。數(shù)據(jù)處理的特點(diǎn)：算術(shù)計(jì)算量少而邏輯處理多；輸入輸出量大；數(shù)據(jù)間存在著一定的邏輯關(guān)系；大量的分類排序。主要功能是描述數(shù)據(jù)結(jié)構(gòu)和分析處理大批量的數(shù)據(jù)。北京德派克公北京德派克公司司COBOL語言特點(diǎn)n適于數(shù)據(jù)繁多而運(yùn)算簡單的處理。n接近自然語言（英語），成文自明。n標(biāo)準(zhǔn)化程度高，通用性強(qiáng)。n結(jié)構(gòu)嚴(yán)謹(jǐn)，層次分明，易于快速學(xué)習(xí)。n應(yīng)用主要集中在大型機(jī)（主機(jī)系統(tǒng)）。nCOBOL的缺點(diǎn)是比較繁瑣。北京德派克公北京德派克公司司cobol程序

4、的組成部北京德派克公北京德派克公司司cobol程序的組成段、節(jié)北京德派克公北京德派克公司司cobol程序的組成句北京德派克公北京德派克公司司COBOL使用的字符nCOBOL字符集包括： 數(shù)字0 - 9 ，字母A- Z ，a -z , 專用字符：+ - * / = , . ; ( ) $ 及空格。n“” “!” “?” “%”只能在COBOL程序中的字符串中出現(xiàn)。北京德派克公北京德派克公司司COBOL字nCOBOL字是為了表示一定的意思，由字符組合而成的最小單位。如MOVE, ADD 都是COBOL字。n每一個(gè)COBOL字不能超過30個(gè)字符。1.保留字MOVE, ADD2.用戶字北京德派克公北京

5、德派克公司司數(shù)據(jù)名-相當(dāng)于其他語言的變量n每個(gè)數(shù)據(jù)名的長度為1-30個(gè)字符之間。n只能由字母 數(shù)字和連接符“”組成，而且其中至少應(yīng)有一個(gè)字母。連接符只能出現(xiàn)在數(shù)據(jù)名的中間。n數(shù)據(jù)名中不能出現(xiàn)空格。n不應(yīng)選擇COBOL的保留字作為數(shù)據(jù)名。n并不要求數(shù)據(jù)名是有意義的英文字。如：A,XCV,AMOUNT-TOTAL,12ABC,12-ABC北京德派克公北京德派克公司司常量n數(shù)值常量 100,30,29.2，-123n非數(shù)值常量 abc123n表意常量 ZERO/ZEROS/ZEROES，SPACE/SPACES，HIGH-VALUE，LOW-VALUE，ALL北京德派克公北京德派克公司司編碼方式北京

6、德派克公北京德派克公司司COBOL的源程序書寫格式 區(qū)間區(qū)間關(guān)關(guān)鍵點(diǎn)鍵點(diǎn)標(biāo)號(hào)區(qū)標(biāo)號(hào)區(qū)指示符指示符區(qū)區(qū)A區(qū)區(qū)B區(qū)區(qū)C區(qū)區(qū)列號(hào)列號(hào)1-678-1112-72 73-80功能功能表示行號(hào)表示行號(hào)（1） -表示本行表示本行接上一行接上一行尾端尾端（2） *表示表示注解注解部頭、節(jié)部頭、節(jié)頭、段頭頭、段頭、層號(hào)、層號(hào) 01、層號(hào)、層號(hào)77、文件描、文件描述述FD都應(yīng)都應(yīng)該從該從A區(qū)開區(qū)開始寫始寫正文區(qū)正文區(qū)語句從語句從12開始開始寫寫注釋區(qū)注釋區(qū)北京德派克公北京德派克公司司注意事項(xiàng)每個(gè)字符占一格主機(jī)系統(tǒng)一般都用大寫字母。 相鄰的兩個(gè)字(如COBOL的保留字或用戶自定義)之間必須留一個(gè)以上的空格。 運(yùn)算符

7、(如加、減、乘、除、乘方)和等號(hào)左右兩邊必須各留一個(gè)空格。在過程部中左括號(hào)的左側(cè)和右括號(hào)的右側(cè)要留一空格，而內(nèi)側(cè)不必留空格。 逗號(hào)、句號(hào)、分號(hào)的左邊不能留空格，而右邊應(yīng)有空格。 一個(gè)空格和多個(gè)空格作用相同e.g compute A = a * (b + c) d Aa北京德派克公北京德派克公司司一、標(biāo)識(shí)部n作用：標(biāo)識(shí)COBOL源程序名及一些備忘信息，以供系統(tǒng)管理和調(diào)用。n格式： IDENTIFICATION DIVISION. PROGRAM-ID. 程序名. AUTHOR. 作者姓名 北京德派克公北京德派克公司司二、環(huán)境部n作用：說明程序運(yùn)行的軟硬件環(huán)境，包括程序用到哪些設(shè)備、哪些文件，并在

8、它們之間建立起聯(lián)系。n格式： ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. 源計(jì)算機(jī)名.OBJECT-COMPUTER. 目標(biāo)計(jì)算機(jī)名.SPECIAL-NAMES. 專用名描述項(xiàng). INPUT-OUTPUT SECTION. FILE-CONTROL. 文件控制描述體 I-O-CONTROL. 輸入輸出控制描述體北京德派克公北京德派克公司司三、數(shù)據(jù)部n作用：定義數(shù)據(jù)項(xiàng)屬性，描述數(shù)據(jù)結(jié)構(gòu)。所有在過程部中出現(xiàn)的數(shù)據(jù)項(xiàng)都必須在數(shù)據(jù)部中對(duì)它們的屬性進(jìn)行說明。包括數(shù)據(jù)項(xiàng)的類型，數(shù)據(jù)項(xiàng)間的關(guān)系，記錄與文件的關(guān)系，文件的屬性。北京

9、德派克公北京德派克公司司數(shù)據(jù)部文件節(jié) (File Section)n描述程序中每一個(gè)輸入或輸出文件。包括文件名、包含的記錄名、每個(gè)記錄中數(shù)據(jù)的層次關(guān)系、記錄中各數(shù)據(jù)項(xiàng)的數(shù)據(jù)形式和長度。e.g： DATA DIVISION. FILE SECTION. FD BATCHNO. 01 BATCHNO-RECORD. 02 BATCHNO-BATCHNO PIC X(03). 02 BATCHNO-NOTES PIC X(77). FD NFCHSUB. COPY NCCHSUB. 北京德派克公北京德派克公司司數(shù)據(jù)部工作存儲(chǔ)節(jié) (Working-Storage Section)描述程序中使用的數(shù)據(jù)變

10、量。n通常有以下兩類變量： n組合數(shù)據(jù)項(xiàng)n獨(dú)立數(shù)據(jù)項(xiàng)e.g 01 DATE . 02 DATE-YEAR PIC X(4). 02 DATE-MON PIC X(2). 02 DATE-DAY PIC X(2).e.g 77 COUNTER PIC 9(17) VALUE 0.北京德派克公北京德派克公司司數(shù)據(jù)部數(shù)據(jù)項(xiàng)的層次n數(shù)據(jù)的層次 層次號(hào)從01開始，到49。 01號(hào)表示最高層。n例： 01 A . 02 A1 PIC 9(3). 02 A2 PIC 9(2).n特殊的層次號(hào)n77：描述獨(dú)立數(shù)據(jù)項(xiàng)，是最常使用的特殊層號(hào)北京德派克公北京德派克公司司數(shù)據(jù)間存在的從屬關(guān)系北京德派克公北京德派克公司

11、司數(shù)據(jù)定義從句nPICTURE子句n作用：描述每一個(gè)基本數(shù)據(jù)項(xiàng)的屬性。n常見數(shù)據(jù)類型及對(duì)應(yīng)PICTURE子句中的符號(hào)：n數(shù)值數(shù)據(jù)(右對(duì)齊)：9 表示一個(gè)數(shù)字； V 表示隱含的小數(shù)點(diǎn)位置； S 表示數(shù)值數(shù)據(jù)帶符號(hào)。n字符數(shù)據(jù)（左對(duì)齊）：X 表示一個(gè)字符。n字母數(shù)據(jù)（左對(duì)齊）：A 表示一個(gè)字母。北京德派克公北京德派克公司司數(shù)據(jù)項(xiàng)定義舉例n舉例： n77 ZONENO PIC 9(5) VALUE 11023.n77 PERCENT PIC 9(3)V9(2).n77 BALANCE PIC S9(17).n77 NOTES PIC X(40). n77 NAME PIC A(40).n77 DAT

12、E PIC X(8) VALUE 20110808.北京德派克公北京德派克公司司四、過程部n作用：指定程序所有的執(zhí)行語句，完成程序的功能。 n組成：由語句、段或節(jié)組成北京德派克公北京德派克公司司過程部的特點(diǎn)n過程部的語句都以一個(gè)動(dòng)詞(verb)開始，如MOVE，OPEN，READ，WRITE，IF（IF在 COBOL中也作為動(dòng)詞對(duì)待)。它表示計(jì)算機(jī)應(yīng)執(zhí)行的操作。n語句中的動(dòng)詞后面一般要跟一個(gè)操作的對(duì)象。操作對(duì)象可以是數(shù)據(jù)名或文件名。 MOVE X TO Y OPEN IN001，CLOSE IN001，READ IN001n過程部的語句一律從12列以后開始書寫。北京德派克公北京德派克公司司算術(shù)

13、語句n加法語句 ADD ADD A TO B B = A + Bn減法語句 SUBTRACT SUBTRACT A FROM B B = B - A n乘法語句 MULTIPLY MULTIPLY A BY B B = A * Bn除法語句 DIVIDE DIVIDE A INTO B B = B / An綜合運(yùn)算語句 COMPUTE COMPUTE A = B * C / (D + E)北京德派克公北京德派克公司司數(shù)據(jù)語句n傳送語句 MOVE MOVE A TO B n接收語句 ACCEPT ACCEPT A FROM Bn顯示語句 DISPLAY DISPLAY An初始值語句 INITI

14、ALIZE INITIALIZE An字符串連接語句 STRING STRING a，b，c， DELIMITED BY SIZE INTO An字符串分解語句 UNSTRING UNSTRING a，b，c DELIMITED BY ， INTO A，B，C北京德派克公北京德派克公司司輸入輸出語句n打開語句 OPENn關(guān)閉語句 CLOSEn讀語句 READn寫語句 WRITEn回寫語句 REWRITE北京德派克公北京德派克公司司邏輯與控制語句n執(zhí)行語句 PERFORMn條件語句 IFn多分支選擇語句 EVALUATEn調(diào)用語句 CALLn語句占位符 CONTINUE北京德派克公北京德派克公司

15、司執(zhí)行語句 PERFORMnPERFORM 過程段1 nPERFORM 過程段1 UNTIL 條件1 nPERFORM 過程段2 THROUGH 條件2 北京德派克公北京德派克公司司條件語句 IF IF 條件成立 THEN 語句1 ELSE 語句2 END-IF.北京德派克公北京德派克公司司多分支選擇語句 EVALUATEEVALUATE 數(shù)據(jù)項(xiàng) WHEN 值1 處理1 WHEN 值2 處理2 WHEN OTHER 處理nEND-EVALUATE北京德派克公北京德派克公司司其他邏輯控制語句n調(diào)用語句 CALL n占位符 CONTINUE n停止語句 STOP RUN n轉(zhuǎn)移語句 GOTO北京德派克公北京德派克公司司主機(jī)COBOL程序的編譯、鏈接及執(zhí)行（1）編譯：把源程序語句（源模塊）轉(zhuǎn)換成目標(biāo)模塊；（2）鏈接編輯：把目標(biāo)模塊同子程序庫中的其他程序鏈接起來得到可執(zhí)行模塊；（3）執(zhí)行：運(yùn)行可執(zhí)行模塊得到結(jié)果。北京德派克公北京德派克公司司編譯過程SOURCEPRECOMPILE分配 TOKEN ID分配 TOKEN IDHOST LANGUAGE SOURCEDBRM（SQL CODE）COMPILEBINDOBJECT MODULEPRELINKLINKPACKEGLOAD （LMOD）PLAN北京德派克公北京德派克公司司COBOL