COBOL語言

COBOL語言，是一種面向過程的高級程序設計語言，主要用於數據處理，是國際上應用最廣泛的一種高級語言。COBOL是英文Common Business-Oriented Language的縮寫,原意是面向商業的通用語言。它採用 300多個英語單詞作為保留字，以一種接近於英語書面語言的形式來描述數據特性和數據處理過程,因而便於理解和學習。COBOL語言是專門為企業管理而設計的高級語言，可用於統計報表、財務會計、計劃編制、作業調度、情報檢索和人事管理等方面。

50年代中期電子計算機開始用於商業和企業的事務處理,而事務處理與科學計算不同,數據繁多而運算簡單,它只需要一定的運算能力,但對數據結構的描述和大批量數據的分析處理方面則要求有很強的功能 ^[1]  。

COBOL語言的主要特點是 ^[1]  ：

程序結構圖為COBOL源程序的邏輯結構圖。每個 COBOL語言程序都是按部、節、段和體幾個層次構成的。每個程序由標識部、設備部、數據部、過程部等四個部組成。

標識部提供標識該程序的信息，如程序名、日期、程序員的姓名等。

設備部又稱環境部，它提供有關該程序運行環境即計算機主機和外部設備方面的信息。它是程序中唯一描述計算機硬件的部分。COBOL程序規定把這一部分單獨分出來,藉以提高程序的通用性，把一個COBOL程序從一台計算機移到另一台不同的計算機去時只須修改這一部分內容便可執行。

數據部描述作為處理對象的數據文件、記錄、數據項的結構和特性。例子下面是一個記錄描述的例子：

01RECORD-1

02NAMEPICTUREISX(20)

02SEX PICTUREISA

02BIRTHDAY

03YEAR-BPICTUREIS9999

03MONTH-B PICTUREIS99

03DAY-B PICTUREIS99

這一記錄由三項組成：NAME（姓名）是不超過20個字符的字符串，由X(20)説明；SEX（性別）是一個字母，由A説明,程序中可用M表示男性而用F表示女性；BIRTHDAY（出生日期）是一組合項,由3個表示年、月、日的更基本的項組成。各數據項的層次結構由層號表示，例中的01，02，03就是表示數據項在記錄中的層次。這種表示方法很便於程序員描述管理、財會等領域中常見的有結構的數據。

過程部描述數據處理的步驟。數據從外部傳入計算機主存儲器稱為輸入；從主存儲器將數據傳出稱為輸出；數據在主存儲器內從一個存儲區傳到另一個存儲區稱為傳送；對數據進行加、減、乘、除運算稱算術運算。這些都是數據處理的基本操作，程序由一系列描述基本操作的語句組成。如果程序執行中需要根據某個條件是否滿足來決定它的後繼處理步驟，稱為轉移控制，由控制語句來描述。每個COBOL語句包含一個英語動詞,用以指明該語句操作的性質。動詞後面隨有若干操作對象的信息和描述操作的補充信息。下面是一段COBOL過程部的程序：

ACCEPTQUANTITY

MULTIPLYQUANTITYBYPRICEGIVING

TOTAL-PRICE

DISPLAYTOTAL-PRICE

ACCEPT(接收)、MULTIPLY(乘)、DISPLAY(顯示)是三個英語動詞。QUANTITY(數量)、PRICE(單價)、TOTAL-PRICE(總價)是變量的名稱,代表被處理的對象。BY(被......)、GIVING（給出）是輔助用的保留字，説明被處理對象之間的關係。上述程序的意義為：從終端上接受操作員用鍵盤輸入的商品數量值，然後將數量乘以單價得出總價，最後在顯示屏幕上顯示總價。

數字0—9，字母A—Z，a—z,專用字符：+-*/=,.;’()<>$及空格。屬於系統字符集而不屬於COBOL字符集的字符只能出現在COBOL程序中的字符串裏。

COBOL常量分為數值常量（如100，-29），非數值常量（如’ABC’）和表意常量（如ZERO，SPACE，HIGH-VALUE，LOW-VALUE，QUOTE，ALL常量）。

第1至6列為”標號區”。第7列為”續行標誌區”

第8至此11列，稱為”A區”。程序中有些內容如部頭，節頭，段頭，層號01，層號77及文件描述符FD等應從A區開始寫。

第12至此72列，稱為”B區”。寫程序中的正文部分。如過程部中的句子只能從B區開始寫。

第73至80列，稱為”註釋區”。