【正文】 第一章 關(guān)于COBOL的初步知識(shí)一. COBOL語言的特點(diǎn) COBOL是Common BusinessOriented Language（公用面向商業(yè)的語言）的縮寫，主要供數(shù)據(jù)處理、數(shù)據(jù)收集及分析之用。COBOL自60年代初開始廣泛應(yīng)用于計(jì)算機(jī)應(yīng)用領(lǐng)域（商業(yè)和其他領(lǐng)域）。事實(shí)上，除了商業(yè)之外，各種管理工作都廣泛使用COBOL,如各種統(tǒng)計(jì)工作，財(cái)會(huì)工作，企業(yè)計(jì)劃編制，作業(yè)制度，情報(bào)檢索，人事管理等。COBOL針對(duì)商業(yè)世界的使用，是真正商用應(yīng)用程序開發(fā)的首選語言。1． 適于數(shù)據(jù)處理領(lǐng)域。2． 采用英語語法的高級(jí)語言，可讀性、可維護(hù)性、可移植性較強(qiáng)。3． 通用性強(qiáng)，標(biāo)準(zhǔn)化程度較高。4． 結(jié)構(gòu)嚴(yán)謹(jǐn)，層次分明。5． 缺點(diǎn)是比較繁瑣。二． 最簡單的COBOL程序介紹例１：IDENTIFICATION DIVISION.(標(biāo)識(shí)部)PROGRAMID. EXAM1.（程序標(biāo)識(shí)段）ENVIRONMENT DIVISION.（設(shè)備部）DATA DIVISION.（數(shù)據(jù)部）PROCEDURE DIVISION.（過程部）A. DISPLAY ‘THIS IS A COBOL PROGRAM.’. STOP RUN.例２：IDENTIFICATION DIVISION.(標(biāo)識(shí)部)PROGRAMID. EXAM２.（程序標(biāo)識(shí)段）ENVIRONMENT DIVISION.（設(shè)備部）DATA DIVISION.（數(shù)據(jù)部）WORKINGSTORAGE SECTION.(工作單元節(jié))77 A PICTURE IS 9(3).（對(duì)Ａ進(jìn)行描述）77 B PICTURE IS 9(3).（對(duì)Ｂ進(jìn)行描述）PROCEDURE DIVISION.（過程部）S. ACCEPT A.（輸入Ａ值） ACCEPT B.（輸入Ｂ值）　　ADD A TO B.(A+BB)DISPLAY A,B.（顯示Ａ和Ｂ值） STOP RUN. 三． COBOL程序的結(jié)構(gòu)1． 部每個(gè)程序都包括四個(gè)部：IDENTIFICATION DIVISION （標(biāo)識(shí)部）提供程序的一般性文檔說明，主要用來指定源程序名。ENVIRONMENT DIVISION （環(huán)境部）列出程序中所用到的文件。程序中不需要外部文件時(shí)，環(huán)境部為空，也可以省略部標(biāo)題。DATA DIVISION （數(shù)據(jù)部）程序中所用到的全部數(shù)據(jù)（包括：文件數(shù)據(jù)—用于輸入輸出、靜態(tài)數(shù)據(jù)、參數(shù)等）都應(yīng)在數(shù)據(jù)部中說明它們的類型和所占內(nèi)存的情況。PROCEDURE DIVISION （過程部）包含構(gòu)成程序的過程性語句，用來給出程序要執(zhí)行的指令，使計(jì)算機(jī)產(chǎn)生相應(yīng)的操作。2． 節(jié)和段 標(biāo)識(shí)部下只有各個(gè)段。除標(biāo)識(shí)部以外，每個(gè)部下可以有若干個(gè)節(jié)（SECTION），每個(gè)節(jié)以“節(jié)頭”作標(biāo)識(shí)。每個(gè)節(jié)下又可包括若干段（PARAGRAPH），每個(gè)段用“段名”標(biāo)識(shí)。各個(gè)段內(nèi)有各種COBOL元素。3． 句子，語句和子句 在過程部中，每一段由若干個(gè)句子（Sentence）組成。一個(gè)句子是以英文句號(hào)來結(jié)束的。句子又由語句（Statement）組成。一個(gè)語句中又可以包含若干個(gè)子句（Clause）。 注意：部標(biāo)題、節(jié)標(biāo)題、段名、數(shù)據(jù)項(xiàng)目描述及句子后必須用英文句號(hào)結(jié)束，否則程序無法編譯。4． 描述體（描述款目）　　　　在數(shù)據(jù)部中有若干個(gè)節(jié)，每個(gè)節(jié)中有若干個(gè)描述體，每個(gè)描述體又有若干個(gè)子句構(gòu)成。四． 源程序的書寫格式1． 1~6列，為“序號(hào)區(qū)”，為6位整數(shù)序號(hào)，不是程序本身的內(nèi)容。序號(hào)不是必須的，但其所占區(qū)域要保留。2． 第7列，為“指示符區(qū)（續(xù)行標(biāo)志區(qū)）”。連接符“”表示本行是緊接在上一行的后面。“*”或“/”表示本行為注釋行。“D”表示本行為調(diào)試行。3． 8~11列，為“A區(qū)”，部頭，節(jié)頭，段頭，層號(hào)01，層號(hào)77以及文件描述符FD，程序結(jié)束標(biāo)題等應(yīng)從A區(qū)開始書寫，但不一定從第8列開始寫。4． 12~72列（現(xiàn)在有時(shí)廠家規(guī)定可到80列），為“B”區(qū)，過程部中的句子只能從B區(qū)開始書寫。5． 73~80列，為“注釋區(qū)”。在寫程序時(shí)，應(yīng)注意以下幾點(diǎn)：1．大寫或小寫字母均可，習(xí)慣用大寫字母。2．相鄰的兩個(gè)字之間必須留一個(gè)以上的空格。3．運(yùn)算符和等號(hào)左右兩邊必須各留一個(gè)空格。4．逗號(hào)，句號(hào)，分號(hào)的左邊不能留空格，而右邊應(yīng)有空格。五． COBOL字符和COBOL單字 COBOL字符集包括以下字符： 0~9, a~z, A~Z, + * / = , . 。 ’ ” ( ) $空格 ： COBOL單字分三種：保留字、用戶自定義字及系統(tǒng)名稱。 COBOL單字的規(guī)則如下：1． 字長為1~30個(gè)字符之間。2． 只能由字母，數(shù)字和連字符“”組成，第一個(gè)和最后一個(gè)字符不能用連字符。3． 字中不能出現(xiàn)空格。4． 小寫字母與大寫字母等價(jià)。5． 不能用保留字作為用戶定義字和系統(tǒng)名稱，但用戶定義字和系統(tǒng)名稱可以用同一個(gè)單詞。用戶自定義字：文件、數(shù)據(jù)、標(biāo)號(hào)、程序等所取的名稱。系統(tǒng)名稱：COBOL保留字，用于與操作環(huán)境通信，又COBOL廠家定義。分為：Computer name、Implementers name、Language name。保留字：有300多個(gè)。如：+、ACCEPT、ADD、BEFORE、DATA。六． 常量1． 數(shù)值常量（數(shù)字直接數(shù)） 例： 123, +, 2． 非數(shù)值常量（非數(shù)字直接數(shù)）:字符串內(nèi)的引號(hào)用兩個(gè)連續(xù)引號(hào)表示。 例：’abcd’, ’Expired’,3． 象征常量：用保留字表示某些常用常量(直接數(shù))。例：ZERO ZEROS ZEROES SPACE SPACES HIGHVALUE HIGHVALUES LOWVALUE LOWVALUES QUOTE QUOTES ALL 常量七.?。茫希拢希烫幚頂?shù)據(jù)的特點(diǎn)：　　　層次的概念；記錄和文件的概念。八． 程序文本的復(fù)制與替換操作1. COPY語句COPY語句用COBOL源文本textname替換從COPY字開始到終止句號(hào)之前的內(nèi)容。2. REPLACE語句 REPLACE語句將COBOL源程序某個(gè)段中的文本進(jìn)行替換。替換從REPLACE語句的第一個(gè)格式開始，到REPLACE OFF 語句結(jié)束。第二章 標(biāo)識(shí)部和環(huán)境部一． 標(biāo)識(shí)部（IDENTIFICATION DIVISION）（一）必寫部分IDENTIFICATION DIVISION.PROGRAMID. 程序名.（二）任選部分 一般格式： [AUTHOR. 作者姓名][INSTALLATION. 設(shè)計(jì)這個(gè)程序的公司或部門。][DATEWRITTEN. 編寫日期，可記入修訂史，修改日期、原因及人員。][DATECOMPILED. 編譯日期][SECURITY. 保密程度的描述。] 注：標(biāo)識(shí)部中的段標(biāo)題只能按部描述中指定的順序出現(xiàn)。3. 環(huán)境部（ENVIRONMENT DIVISION）環(huán)境部指定程序中與特定計(jì)算機(jī)或操作系統(tǒng)相關(guān)的方面，指明用到哪些設(shè)備，哪些文件，將程序中用到的內(nèi)部文件名與外部文件（或外部設(shè)備）聯(lián)系起來。如果程序不需要任何環(huán)境部提供的項(xiàng)目，則可以省略環(huán)境部。一般格式：ENVIRONMENT DIVISION.CONFIGURATION SECTION. 配置節(jié)SOURCECOMPUTER.OBJECTCOMPUTER.SPECIALNAMES.INPUTOUTPUT SECTION. 輸入/輸出節(jié)FILECONTROL.IOCONTROL.1． 配置節(jié)包括SOURCECOMPUTER, OBJECTCOMPUTER和SPECIALNAMES（專用名段）。SOURCECOMPUTER段標(biāo)識(shí)編譯程序的計(jì)算機(jī)。若該段省略，則編譯程序的計(jì)算機(jī)是源計(jì)算機(jī)。如果指定WITH DEBUGGING MODE 從句，則編譯所有源調(diào)試行，否則把調(diào)試行作為說明語句。OBJECTCOMPUTER段標(biāo)識(shí)編譯程序運(yùn)行的計(jì)算機(jī)。SPECIALNAMES段用于把系統(tǒng)中原規(guī)定的一些設(shè)備名或功能名或符號(hào)改為用戶自己指定的名字或符號(hào)。SPECIALNAMES. CLASS REALNUMBER IS?。?123456789+.＂可用于類條件測(cè)試 DECIMALPOINT IS COMMA. 逗號(hào)用作小數(shù)點(diǎn)，句號(hào)用作編輯符 CURRENCY SIGN IS “Y”. 表示貨幣符號(hào)的字符，DEFAULT$2． 輸入輸出節(jié)輸入輸出節(jié)只用于文件，它把內(nèi)部文件與外部文件（包括外部設(shè)備）聯(lián)系起來。它有兩個(gè)段：文件控制段：FILECONTROL段是給文件命名，指出存放該文件的外部設(shè)備及其他有關(guān)文件控制信息。對(duì)每個(gè)文件包含一個(gè)項(xiàng)目。FILECONTROL. SELECT FILE1 ASSIGN TO “”. SELECT FILE2 ASSIGN TO DISK. SELECT FILE3 ASSIGN TO PRINTER. 輸入輸出控制段： IOCONTROL段包含定義程序返回點(diǎn)，不同文件共享的內(nèi)存區(qū)和多文件卷中文件位置的項(xiàng)目。第三章 數(shù)據(jù)部一． 數(shù)據(jù)部的節(jié) 數(shù)據(jù)部包含程序引用的所有數(shù)據(jù)的定義，如文件記錄、變量、表格和報(bào)表。COBOL將數(shù)據(jù)部分成節(jié)，每個(gè)節(jié)是可選的，但程序中的節(jié)應(yīng)按指定順序定義。DATA DIVISION.FILE SECTION. 文件節(jié)WORKINGSTORAGE SECTION. 工作存儲(chǔ)節(jié)LINKAGE SECTION . 連接節(jié)COMMUNICATION SECTION. 通信節(jié)REPORT SECTION. 報(bào)表節(jié)1． 文件節(jié)程序中每一個(gè)輸入或輸出文件都要在文件節(jié)中定義。包括：（1） 文件名和文件屬性。（2） 文件中包括的記錄名。（3） 每個(gè)記錄中數(shù)據(jù)的層次關(guān)系。（4） 記錄中各數(shù)據(jù)項(xiàng)的數(shù)據(jù)形式和占內(nèi)存的大小。DATA DIVISION. (數(shù)據(jù)部)FILE SECTION. (文件節(jié))FD FILE1. （文件名） LABEL RECORD IS OMITTED DATA RECORD IS STUDENTSCORE. 01 STUDENTSCORE. (記錄名) 03 NAME PIC X(10). 03 NUM PIC 9(06).03 CORUSESCORE.05 CORUSE1 PIC 9(03).05 CORUSE2 PIC 9(03).05 CORUSE3 PIC 9(03).2． 工作存儲(chǔ)節(jié)包含程序所需的臨時(shí)結(jié)果和初始化靜態(tài)數(shù)據(jù)的數(shù)據(jù)定義。WORKINGSTORAGE SECTION.77 X PIC S99 VALUE 21.01 A PIC 9(08).01 B. 03 B1 PIC X(04). 03 B2 PIC X(02). 03 B3 PIC X(02).3． 連接節(jié)本節(jié)只用于子程序，包含調(diào)用程序傳遞的數(shù)據(jù)（即參數(shù)）。LINKAGE SECTION.01 LCMIN. COPY RCI001.01 LCMOT. COPY RCJ001.4． 通信節(jié)通信節(jié)描述作為程序間接口的數(shù)據(jù)和消息控制系統(tǒng)，用以實(shí)現(xiàn)與通信設(shè)備相關(guān)的消息分析的COBOL方法。屬過時(shí)部分，很少使用。5． 報(bào)表節(jié)報(bào)表節(jié)描述實(shí)現(xiàn)COBOL報(bào)告編寫工具的系統(tǒng)所需的數(shù)據(jù)。 REPORT SECTION.RD EMPLOYEEREPORT PAGE LIMIT 60 LINES HEADING 1 FOOTING 58 FIRST DETAIL 3.二．COBOL數(shù)據(jù)的類型及層次 （一）數(shù)據(jù)類型 （1）numeric（數(shù)字）（2）numericedited（數(shù)字編輯）（3）alphabetic（字母）（4）alphanumeric（字母數(shù)字）（5）alphanumericedited（字母數(shù)字編輯）所有數(shù)據(jù)類型缺省作為字符串存放在內(nèi)存中，唯一可以用不同方式存儲(chǔ)的數(shù)據(jù)類別是數(shù)字型數(shù)據(jù)（通過USAGE子句）。對(duì)數(shù)字型數(shù)據(jù)制訂不同方式存儲(chǔ)，提高計(jì)算效率。 （二）數(shù)據(jù)的層次和層號(hào) COBOL中把有從屬關(guān)系的數(shù)據(jù)用層次關(guān)系來描述。數(shù)據(jù)的層次結(jié)構(gòu)是：記錄—組合項(xiàng)—基本項(xiàng)。層次規(guī)定如下：（