COBOL語(yǔ)言程序設(shè)計(jì)

1、COBOL語(yǔ)言程序設(shè)計(jì)COBOL 語(yǔ)言程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)第一章第一章 COBOL概述（一）概述（一）1.1 COBOL語(yǔ)言的歷史1.2 COBOL語(yǔ)言的特點(diǎn)1.3 COBOL程序的編譯方法1.4 兩個(gè)簡(jiǎn)單的COBOL源程序1.5 COBOL程序的結(jié)構(gòu)1.6 COBOL程序的書(shū)寫(xiě)格式1.7 COBOL字符和COBOL字第一章第一章 COBOL概述（二）概述（二）1.8 數(shù)據(jù)名1.9 常量1.10 COBOL所處理數(shù)據(jù)的特點(diǎn)1.1 COBOL語(yǔ)言的歷史l COmmon Business Oriented Languagel用于商業(yè)數(shù)據(jù)處理與管理，如：銀行，會(huì)計(jì)業(yè)，人事管理，財(cái)會(huì)，統(tǒng)計(jì)報(bào)表，情報(bào)檢

2、索，證券，金融等等l1959年5月 美國(guó)國(guó)防部召開(kāi)數(shù)據(jù)系統(tǒng)語(yǔ)言會(huì)議l1959年12月 第一個(gè)COBOL語(yǔ)言文本l1960年4月 正式發(fā)表COBOL 60, 經(jīng)過(guò)擴(kuò)充完善COBOL 61lANSI COBOL 61- 最早的版本l 1965年COBOL 65- ANSI COBOL 68 - ISO COBOL 72l1972年COBOL 72- ANSI COBOL 74 - ISO COBOL 78lANSI COBOL 85- 應(yīng)用最廣泛的版本l ANSI COBOL 202X- 最新版本1.2 COBOL語(yǔ)言的特點(diǎn)l 描述性好，能根據(jù)需要描述各種形式的數(shù)據(jù)l 適合大批量數(shù)據(jù)處理，能對(duì)數(shù)據(jù)

3、進(jìn)行嚴(yán)密的組織(算術(shù)運(yùn)算簡(jiǎn)單但運(yùn)算量大，邏輯運(yùn)算多)l 接近自然語(yǔ)言(英語(yǔ))，成文自明例如：ADD A TO B GIVING Cl 遵循ISO標(biāo)準(zhǔn)，通用性強(qiáng)，移植方便l 格式固定，結(jié)構(gòu)嚴(yán)謹(jǐn)，層次分明l 缺點(diǎn)是比較繁瑣1.3 COBOL程序的編譯l創(chuàng)建分區(qū)數(shù)據(jù)集ST.COBOL.SOURCE(COB) 存放源程序l創(chuàng)建分區(qū)數(shù)據(jù)集ST.COBOL.LOAD 存放可執(zhí)行模塊它的屬性比較特殊：Record format = URecord length = 0Block size = 6144l 創(chuàng)建順序數(shù)據(jù)集編寫(xiě)JCL用于編譯鏈接源文件例l 創(chuàng)建順序數(shù)據(jù)集編寫(xiě)JCL用于運(yùn)行可執(zhí)行模塊1.4 兩個(gè)簡(jiǎn)

4、單的COBOL源程序l 例程 了解COBOL程序的基本結(jié)構(gòu)l 例程 簡(jiǎn)單的變量定義，輸入輸出及運(yùn)算1.5 COBOL程序的結(jié)構(gòu)1.5.1 部1.5.2 節(jié)，段和描述體1.5.3 句子，語(yǔ)句和子句1.5.4 結(jié)構(gòu)一覽表1.5.1 部l IDENTIFICATION DIVISION (標(biāo)識(shí)部)主要指定源程序的名稱，也可記錄背忘信息，如日期作者l ENVIRONMENT DIVISION (環(huán)境部)指出程序中用到的數(shù)據(jù)文件名與系統(tǒng)設(shè)備的對(duì)應(yīng)關(guān)系l DATA DIVISION (數(shù)據(jù)部)說(shuō)明程序中所有數(shù)據(jù)的類型和所占內(nèi)存大小l PROCEDURE DIVISION (過(guò)程部)定義程序要執(zhí)行的指令，是

5、程序的核心注意：四個(gè)部缺一不可！即使部的內(nèi)容為空也要寫(xiě)全！注意：四個(gè)部缺一不可！即使部的內(nèi)容為空也要寫(xiě)全！1.5.2 節(jié)，段，描述體l 部下設(shè)置節(jié)(SECTION),節(jié)下設(shè)段(PARAGRAPH)或描述體(DESCRIPTION ENTRY)l 標(biāo)識(shí)部下直接定義段l 環(huán)境部下定義節(jié)，節(jié)下定義段l 數(shù)據(jù)部下定義節(jié)，節(jié)下定義描述體l 過(guò)程部下定義節(jié)，節(jié)下定義段(復(fù)雜程序)也可以直接定義段(一般程序)1.5.3 句子，語(yǔ)句和子句l 句子(SENTENCE)由語(yǔ)句(STATEMENT)組成，語(yǔ)句又由子句(CLAUSE)組成l 句子以一個(gè)句號(hào)加一個(gè)以上的空格來(lái)結(jié)束l 每個(gè)語(yǔ)句都是一條完整的指令，用相應(yīng)的

6、動(dòng)詞表示其操作l 子句也有一個(gè)動(dòng)詞(往往可省)，指定某一方面特定的功能1.5.4 結(jié)構(gòu)一覽表COBOL源程序環(huán)境部數(shù)據(jù)部過(guò)程部節(jié)節(jié)節(jié)標(biāo)識(shí)部段段子句描述體段句子語(yǔ)句子句子句1.6 COBOL程序的書(shū)寫(xiě)格式（一）l ANSI格式l 標(biāo)準(zhǔn)COBOL程序每行80列，被分為五個(gè)區(qū)域l 第16列為 “標(biāo)號(hào)區(qū)” 標(biāo)號(hào)是6位數(shù)字，應(yīng)從小到大，但不一定連續(xù) 標(biāo)號(hào)只是方便查閱程序，可以不寫(xiě)l 第7列為 “續(xù)行區(qū)” 使用 “-” 表示本行是緊接在上一行后面 續(xù)行要從第12列開(kāi)始寫(xiě) 使用 “*” 表示本行是注釋1.6 COBOL程序的書(shū)寫(xiě)格式（二）l 第811列為 “A區(qū)” 程序中有些內(nèi)容必須從該區(qū)開(kāi)始書(shū)寫(xiě)，如： 部

7、頭，節(jié)頭，段頭，層號(hào)01和77，文件描述符l 第1272列為 “B區(qū)” 程序正文部分，過(guò)程部語(yǔ)句必須從該區(qū)開(kāi)始書(shū)寫(xiě)l 第7380列為 “注釋區(qū)” 寫(xiě)入此區(qū)的內(nèi)容為注釋內(nèi)容，編譯時(shí)被舍去1.6 COBOL程序的書(shū)寫(xiě)格式（三）l 早期COBOL要求所有字母應(yīng)大寫(xiě)，現(xiàn)在COBOL大小寫(xiě)等價(jià)，用引號(hào)括起來(lái)的字符串除外，如：ADD A TO B = add A To bDISPLAY HELLO DISPLAY hellol 相鄰的兩個(gè)COBOL字之間有一個(gè)以上的空格l 運(yùn)算符和等號(hào)左右必須各有一個(gè)空格l 圓括號(hào)外側(cè)必須有一個(gè)空格，內(nèi)側(cè)不必，如：A + (B + C) / Dl 逗號(hào)，句號(hào)，分號(hào)左邊不能

8、有空格，而右邊應(yīng)有1.7 COBOL字符和COBOL字l COBOL字符是指在程序中允許出現(xiàn)的字符包括數(shù)字，大小寫(xiě)字母及15個(gè)專用符號(hào)+,-,*,/,=,逗號(hào),句號(hào),分號(hào),引號(hào), $,(,),空格l COBOL字是由上述字符組成的最小單位分為保留字: 在COBOL已經(jīng)規(guī)定專門用途的字用戶字: 用戶自定義的名字 如:程序名，文件名，節(jié)名，段名，數(shù)據(jù)項(xiàng)名等 1.8 數(shù)據(jù)名l 數(shù)據(jù)名相當(dāng)于其他語(yǔ)言的變量名，代表一個(gè)具體的數(shù)據(jù)項(xiàng)l 數(shù)據(jù)名長(zhǎng)度為130個(gè)字符l 只能由字母(至少一個(gè))，數(shù)字和連字符“-”組成，連字符不能出現(xiàn)在兩端，不能包含空格l 不應(yīng)用保留字作為數(shù)據(jù)名123, , OWEN-, 3R,

9、DIVISIONl 盡量使用有意義的英文字或拼音，如：NAME, AGE，GONGZIl 建議：多使用連字符，如:DEPTART-NUMBER1.9 常量 （一）l 數(shù)值常量 由正負(fù)號(hào)，小數(shù)點(diǎn)，數(shù)字09組成的序列如：12300, 45.67, -89 小數(shù)點(diǎn)不能出現(xiàn)在常數(shù)右邊，如： MOVE 20. TO AGE 數(shù)值長(zhǎng)度不超過(guò)18位 最少有一個(gè)數(shù)字 最多有一個(gè)正負(fù)號(hào),且只能出現(xiàn)在最左邊1.9 常量 （二）l 非數(shù)值常量 用引號(hào)括起來(lái)的字符串 如：ABCD, $123, HELLO WORLD 由純數(shù)字組成的非數(shù)值常量不能用于計(jì)算123和123不同 可以使用保留字,如: DATA 可以寫(xiě)入引號(hào)

10、,如: MOVE QUOTE HENRY QUOTE TO NAME1.9 常量 （三）l 表意常量例 ZERO, ZEROS, ZEROES表示零字符 SPACE, SPACES表示空格 HIGH-VALUE, HIGH-VALUES表示具有最高值的字符(每個(gè)字符二進(jìn)制為11111111) LOW-VALUE, 常LOW-VALUES表示具有最低值的字符(每個(gè)字符二進(jìn)制為00000000) QUOTE, QUOTES表示引號(hào) ALL 常量 : 表示由該量組成的字符串1.10 COBOL所處理數(shù)據(jù)的特點(diǎn)l 層次: 數(shù)據(jù)間不是孤立的,而是存在從屬關(guān)系l 記錄: 具有一定層次關(guān)系的一組數(shù)據(jù)項(xiàng)的最大集合l 文件: 記錄在外部介質(zhì)上的記錄的集合l 庫(kù): 由若干個(gè)文件組成l 初等項(xiàng): 數(shù)據(jù)的基本單位l 組合項(xiàng): 由若干初等項(xiàng)和低一層組合項(xiàng)組成l 層號(hào): 由兩位整數(shù)組成,用來(lái)表示層次,層號(hào)約小則層次越高1.