COBOL語言程序設(shè)計

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

2、索，證券，金融等等l1959年5月 美國國防部召開數(shù)據(jù)系統(tǒng)語言會議l1959年12月 第一個COBOL語言文本l1960年4月 正式發(fā)表COBOL 60, 經(jīng)過擴充完善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語言的特點l 描述性好，能根據(jù)需要描述各種形式的數(shù)據(jù)l 適合大批量數(shù)據(jù)處理，能對數(shù)據(jù)

3、進行嚴(yán)密的組織(算術(shù)運算簡單但運算量大，邏輯運算多)l 接近自然語言(英語)，成文自明例如：ADD A TO B GIVING Cl 遵循ISO標(biāo)準(zhǔn)，通用性強，移植方便l 格式固定，結(jié)構(gòu)嚴(yán)謹(jǐn)，層次分明l 缺點是比較繁瑣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ù)集編寫JCL用于編譯鏈接源文件例l 創(chuàng)建順序數(shù)據(jù)集編寫JCL用于運行可執(zhí)行模塊1.4 兩個簡

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

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

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

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

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

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

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