cobol介紹.doc

英文縮寫: COBOL (Common business Oriented Language)中文譯名: COBOL語(yǔ)言解 釋: 一種適合于商業(yè)及數(shù)據(jù)處理的類似英語(yǔ)的程序設(shè)計(jì)語(yǔ)言。這種語(yǔ)言可使商業(yè)數(shù)據(jù)處理過(guò)程精確表達(dá)。COBOL（面向商業(yè)的通用語(yǔ)言，又稱為企業(yè)管理語(yǔ)言、數(shù)據(jù)處理語(yǔ)言等，Common Business Oriented Langauge）是最早的高級(jí)編程語(yǔ)言之一，是世界上第一個(gè)商用語(yǔ)言。1 COBOL的歷史1959年5月，五角大樓委托格雷斯霍波（G.Hopper）博士領(lǐng)導(dǎo)一個(gè)委員會(huì)并由Rear Admiral Grace Hopper公司主持開(kāi)發(fā)，并于1961年由美國(guó)數(shù)據(jù)系統(tǒng)語(yǔ)言協(xié)會(huì)公布。正式發(fā)布于1960年4月，稱為Cobol60。1959年12月出現(xiàn)了第一個(gè)COBOL語(yǔ)言文本，并于1960年4月正式發(fā)表，因此也被稱為COBOL-60。1968年美國(guó)國(guó)家標(biāo)準(zhǔn)委員會(huì)ANSI又通過(guò)了新的標(biāo)準(zhǔn)ANSI COBOL X.3.23-1968。1972年國(guó)際標(biāo)準(zhǔn)化組織ISO將其作為ISO COBOL-72。1974年ANSI對(duì)COBOL-68作出了修訂擴(kuò)充，形成了ANSI COBOL X3.23-1974，隨后1978年ISO采用其形成ISO COBOL-78，后來(lái)又提出了ANSI X3.23-85，增加了很多結(jié)構(gòu)化程序設(shè)計(jì)的內(nèi)容，ISO標(biāo)準(zhǔn)ISO1989:1985也采用了該標(biāo)準(zhǔn)。COBOL標(biāo)準(zhǔn)還在不斷地改進(jìn)和完善，最新的標(biāo)準(zhǔn)COBOL 2002主體已經(jīng)于2002年12月出版，其他部分還在不斷地完善之中?，F(xiàn)在最新的版本是Cobol2002。1963年，美國(guó)國(guó)家標(biāo)準(zhǔn)研究所(ANSI)進(jìn)行了標(biāo)準(zhǔn)化，但是ANSI標(biāo)準(zhǔn)很少被遵循；因此，COBOL程序只是部分可移植的。2 COBOL的重要性經(jīng)過(guò)40多年的不斷修改、豐富完善和標(biāo)準(zhǔn)化，COBOL已發(fā)展為多種版本的龐大語(yǔ)言，在財(cái)會(huì)工作、統(tǒng)計(jì)報(bào)表、計(jì)劃編制、情報(bào)檢索、人事管理等數(shù)據(jù)管理及商業(yè)數(shù)據(jù)處理領(lǐng)域，都有著廣泛的應(yīng)用。COBOL的重要性可以用這句話來(lái)描述：世界上70的數(shù)據(jù)都是用COBOL語(yǔ)言處理的，并且90的ATM事務(wù)處理用的都是COBOL語(yǔ)言。每天在線處理的COBOL事務(wù)有300億次。500強(qiáng)中有492家（包括全部的100強(qiáng)）使用了COBOL語(yǔ)言，目前在COBOL方面的投資已經(jīng)超過(guò)3萬(wàn)億美元，據(jù)稱用COBOL書寫的程序超過(guò)了1000億行，并且以每年大約50億行代碼的速度在增長(zhǎng)。由于COBOL在商業(yè)領(lǐng)域的雄厚基礎(chǔ)，而且COBOL主要是應(yīng)用于銀行、金融和會(huì)計(jì)行業(yè)等非常重要的商業(yè)數(shù)據(jù)處理領(lǐng)域。所以，即使對(duì)于具有相當(dāng)經(jīng)驗(yàn)的IT公司來(lái)說(shuō)，重新編寫COBOL語(yǔ)言的可靠的應(yīng)用軟件也是不實(shí)際或是從商業(yè)角度上并不可行的，而且還要花上很長(zhǎng)的時(shí)間，只要大型機(jī)存在，COBOL就不會(huì)消失，即使是對(duì)電腦界產(chǎn)生巨大影響的“千年蟲”（Y2K）也沒(méi)有改變COBOL的命運(yùn)。3 COBOL的特點(diǎn)COBOL是一種面向數(shù)據(jù)處理的、面向文件的、面向過(guò)程(POL)的高級(jí)編程語(yǔ)言，是一種功能很強(qiáng)而又極為冗長(zhǎng)的語(yǔ)言。COBOL適合于具有循環(huán)處理周期的環(huán)境(例如打印工資支票)以及數(shù)據(jù)操縱量相當(dāng)大的環(huán)境。COBOL主要應(yīng)用于商業(yè)數(shù)據(jù)處理領(lǐng)域，對(duì)各種類型的數(shù)據(jù)進(jìn)行收集、存儲(chǔ)、傳送、分類、排序、計(jì)算及打印報(bào)表、輸出圖象是它的強(qiáng)項(xiàng)。COBOL語(yǔ)法與英文很接近，即使不懂電腦的人也能看懂程序。強(qiáng)大的文件處理功能，大量的數(shù)據(jù)通常以文件的形式存儲(chǔ)在磁盤上。僅提供了加、減、乘、除及乘方這五種簡(jiǎn)單的算術(shù)運(yùn)算，因而不適于進(jìn)行科學(xué)計(jì)算。未來(lái)的COBOL將支持XML等Web時(shí)代的新技術(shù)。4 COBOL的程序結(jié)構(gòu)COBOL程序由4部(DIVISION)組成：IDENTIFICATION DIVISION.(標(biāo)識(shí)部)、ENVIRONMENT DIVISION.(環(huán)境部)、DATA DIVISION.(數(shù)據(jù)部)、PROCEDURE DIVISION.(過(guò)程部)，而每個(gè)部又由若干節(jié) (SECTION)組成1編碼格式第1列為序號(hào)區(qū)，用于表示行號(hào)。行號(hào)不是必須的，也不必是順序的，甚至可以是本機(jī)字符集中的任意字符，但正確的行號(hào)是很重要的。 第7列為指示區(qū)，可以包含如下指示符： *指示本行內(nèi)容為注釋。-指示本行代碼為上一行的延續(xù)。D指示本行代碼為調(diào)試代碼，將在啟用DEBUGGING模式時(shí)被編譯，未啟用時(shí)將被忽略。/指示編譯器為源碼列表開(kāi)始新的一頁(yè)，并且本行將被視為注釋。第811列為A區(qū)。下列項(xiàng)必須從A區(qū)開(kāi)始： 部標(biāo)題（DIVISION）節(jié)標(biāo)題（SECTION）段名（段標(biāo)題）層指示符FD和SD，層號(hào)01和77DECLARATIVES 和 END DECLARATIVESEND PROGRAM第1272列為B區(qū)。作為程序主體的條目(entries)，句子(sentences)，語(yǔ)句(statements)，從句(clauses)和續(xù)行(/)等都必須從B區(qū)開(kāi)始。 *句法說(shuō)明：節(jié)(SECTIONs)和段(paragraphs)定義了程序，它們又細(xì)分為以下部分：條目(entries)：以句點(diǎn)(.)結(jié)尾的一系列從句。構(gòu)造于標(biāo)識(shí)部、環(huán)境部和數(shù)據(jù)部。從句(clauses)：連續(xù)的COBOL字符串的有序集合，用于指定條目的某個(gè)屬性。構(gòu)造于標(biāo)識(shí)部、環(huán)境部和數(shù)據(jù)部。句子(sentences)：以句點(diǎn)(.)結(jié)尾的一個(gè)或多個(gè)語(yǔ)句的序列。構(gòu)造于過(guò)程部。語(yǔ)句(statements)：指定程序要執(zhí)行的某個(gè)動(dòng)作。構(gòu)造于過(guò)程部。短語(yǔ)(phrases)：構(gòu)成從句和語(yǔ)句的更小單元。2基本結(jié)構(gòu)-|-1-|-2-|-3-|-4-|-5-|-6-|-7-|-8/標(biāo)識(shí)部000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. PGMNAME. /指定本程序名。此段是必須的，并且必須排在標(biāo)識(shí)部的最前頭。/環(huán)境部000003 ENVIRONMENT DIVISION./配置節(jié)000004 CONFIGURATION SECTION.000005 SOURCE-COMPUTER. IBM-PC WITH DEBUGGING MODE. /WITH從句指定啟用調(diào)試代碼。000006 OBJECT-COMPUTER. IBM-PC.000007 SPECIAL-NAMES.000008 CURRENCY-SIGN IS $. /指定貨幣符號(hào)為$。000009 DECIMAL-POINT IS COMMA. /在PIC字符串或數(shù)字字面值中交換逗號(hào),和小數(shù)點(diǎn).的功能。/輸入輸出節(jié)000010 INPUT-OUTPUT SECTION.000011 FILE-CONTROL. /命名程序所用文件，并將其與外部文件相關(guān)聯(lián)。000012 SELECT INPUT-FILE ASSIGN TO IN.DAT./數(shù)據(jù)部000013 DATA DIVISION./文件節(jié)000014 FILE SECTION. /定義數(shù)據(jù)文件的結(jié)構(gòu)。000015 FD INPUT-FILE. /File Description.后面的文件名必須與前面SELECT語(yǔ)句中的一致。000016 01 INPUT-RECORD-1 PIC X(100). /描述文件屬性及與其關(guān)聯(lián)的數(shù)據(jù)記錄（可以是多個(gè)）。000017 01 INPUT-RECORD-2 /同一存儲(chǔ)區(qū)域的另一種定義。重定義INPUT-RECORD-1。000018 03 ITEM-1 PIC X(20).000019 03 ITEM-2 PIC X(80)./工作存儲(chǔ)節(jié)，描述程序處理過(guò)程中所涉及的不屬于文件的數(shù)據(jù)記錄。/此存儲(chǔ)區(qū)在運(yùn)行單元開(kāi)始時(shí)被分配，在運(yùn)行單元結(jié)束時(shí)被銷毀，在此過(guò)程中將保持其最后使用值。000020 WORKING-STORAGE SECTION.000021 01 WORK-FIELD PIC X(20)./連接節(jié)，用于被調(diào)用程序，描述從調(diào)用程序傳遞過(guò)來(lái)的數(shù)據(jù)。000022 LINKAGE SECTION.000023 01 LNK-FIELD PIC X(10)./過(guò)程部，被調(diào)用程序可以包含USING從句用于接收調(diào)用程序傳遞的參數(shù)數(shù)據(jù)，主調(diào)程序不需要。000024 PROCEDURE DIVISION USING BY REFERENCE LNK-FIELD. /BY REFERENCE是默認(rèn)值，可以省略。000025 PGMNAME-START SECTION. /過(guò)程部處理邏輯的細(xì)分。000026 PERFORM P-PROC-1-RTN.000027 PERFORM P-PROC-2-RTN.000028 EXIT PROGRAM. /返回調(diào)用程序（同GOBACK）。000029 P-PROC-1-RTN SECTION.000030 P-PROC-1.000031 DISPLAY first program:.000032 P-PROC-1-EXT.000033 EXIT. /相當(dāng)于CONTINUE，其后的任何語(yǔ)句都會(huì)被執(zhí)行。000034 P-PROC-2-RTN SECTION.000035 P-PROC-2.000036 DISPLAY HELLO, WORLD!.000037 P-PROC-2-EXT.000038 EXIT.-|-1-|-2-|-3-|-4-|-5-|-6-|-7-|-83標(biāo)識(shí)部（IDENTIFICATION DIVISION）PROGRAM-ID：指定程序名，其后可以加上RECURSIVE從句，表示本程序可以被遞歸執(zhí)行。如PROGRAM-ID. PGMNAME RECURSIVE.RECURSIVE只能用于一個(gè)編譯單元的最外層程序，該程序不能包含嵌套子程序。4環(huán)境部（ENVIRONMENT DIVISION）配置節(jié)：CONFIGURATION SECTION描述程序編譯和執(zhí)行的計(jì)算機(jī)環(huán)境。SOURCE-COMPUTER：指定用于編譯本程序的計(jì)算機(jī)系統(tǒng)名，由編譯器廠商定義。WITH DEBUGGING MODE將啟用調(diào)試代碼，其中WITH可以省略。OBJECT-COMPUTER：指定用于運(yùn)行本程序的計(jì)算機(jī)系統(tǒng)名。輸入輸出節(jié)：INPUT-OUTPUT SECTION可以包含兩個(gè)段，F(xiàn)ILE-CONTROL和I-O-CONTROL，后者不常用。*文件說(shuō)明：可用的文件組織方式取決于所選用的數(shù)據(jù)存儲(chǔ)設(shè)備：順序存儲(chǔ)設(shè)備（Sequential-only Devices）：終端、打印機(jī)、讀卡器和打卡器被稱為單元記錄設(shè)備，因?yàn)樗鼈円淮沃惶幚硪恍袛?shù)據(jù)，所以在程序中讀寫此類設(shè)備時(shí)，也必須按順序一次處理一條記錄。磁帶上的記錄是順序排列的，在程序中也必須順序處理。處理磁帶文件時(shí)使用QSAM物理順序文件。磁帶記錄可以是定長(zhǎng)或變長(zhǎng)的，其數(shù)據(jù)傳輸速率比卡片快。 直接存取存儲(chǔ)設(shè)備（Direct-Access Storage Devices，DASDs）：此類設(shè)備提供了更大的靈活性，可以使用多種文件組織方式Sequential (VSAM or QSAM)，Line sequential (UNIX)，Indexed (VSAM)，Relative (VSAM)。 在用于z/OS和OS/390系統(tǒng)的IBM Enterprise COBOL上，向操作系統(tǒng)作出的對(duì)輸入輸出設(shè)備數(shù)據(jù)記錄的存儲(chǔ)和檢索請(qǐng)求，由兩種存取方式QSAM和VSAM，及UNIX文件系統(tǒng)來(lái)處理。QSAM（Queued Sequential Access Method）：沒(méi)有鍵的文件，其中的記錄按輸入順序一條接一條排列。程序只能順序處理這類文件，按照記錄在文件中的順序來(lái)檢索它們。記錄被創(chuàng)建后，不能改變其長(zhǎng)度和在文件中的位置，也不能刪除它，但可以用REWRITE更新DASDs上的QSAM文件。QSAM文件可以放在順序存儲(chǔ)設(shè)備和直接存取存儲(chǔ)設(shè)備（DASDs）上。 VSAM（Virtual Storage Access Method）：用于DASDs上的文件的存取方式。此方式可以加載文件、從文件中檢索記錄、更新文件、增加/替換/刪除文件中的記錄。VSAM相比QSAM有如下優(yōu)勢(shì)：保護(hù)數(shù)據(jù)免于未授權(quán)的訪問(wèn)，跨系統(tǒng)兼容性，獨(dú)立于設(shè)備，更簡(jiǎn)潔的JCL，能使用INDEXED和RELATIVE文件組織方式。 FILE-CONTROL：將程序中的每個(gè)邏輯文件與外部數(shù)據(jù)集聯(lián)系起來(lái)，并指定文件的組織、存取方式及其他信息?？砂缦抡Z(yǔ)句：（中的詞是可選的）SELECT OPTIONAL INFILE ASSIGN TO FILE.DATORGANIZATION IS *ACCESS MODE IS *RECORD/RELATIVE KEY IS *ALTERNATE RECORD KEY IS * WITH DUPLICATESFILE STATUS IS DATANAME1 DATANAME2.INFILE是程序中使用的邏輯文件名，它必須在數(shù)據(jù)部文件節(jié)的FD或SD條目中被描述。FILE.DAT可以是操作系統(tǒng)下的物理文件，也可以是記號(hào)名（如DD名或環(huán)境變量），可在之后利用運(yùn)行時(shí)選項(xiàng)為其指定實(shí)際的物理文件。OPTIONAL表示此文件不一定每次運(yùn)行時(shí)都會(huì)存在。當(dāng)以只讀（INPUT）或讀寫（I-O）方式打開(kāi)此文件時(shí)，如果文件不存在，將自動(dòng)創(chuàng)建此文件。在沒(méi)有OPTIONAL限定時(shí)，讀取不存在的文件會(huì)報(bào)錯(cuò)。ORGANIZATION指定文件的邏輯結(jié)構(gòu)：SEQUENTIAL：記錄的次序由其在文件中的物理順序決定，記錄可以是定長(zhǎng)或變長(zhǎng)的，它們沒(méi)有鍵（key）。如果省略O(shè)RGANIZATION從句，編譯器將默認(rèn)文件為本類型。 INDEXED：記錄的位置由隨文件而建立并由系統(tǒng)所維護(hù)的索引來(lái)確定，索引建立在位于文件記錄中的鍵（key）上。每條記錄都必須包含有一個(gè)作為主鍵（primary key）的項(xiàng)目，并由RECORD KEY從句來(lái)聲明。此類文件必須是DASDs上的文件，記錄可以是定長(zhǎng)或變長(zhǎng)的。 RELATIVE：記錄根據(jù)其相對(duì)于文件開(kāi)頭的位置來(lái)決定，文件中第1條記錄的相對(duì)記錄號(hào)為1，第10條記錄的相對(duì)記錄號(hào)為10，依次類推。此類文件必須是DASDs上的文件，記錄可以是定長(zhǎng)或變長(zhǎng)的。 LINE SEQUENTIAL：記錄的次序由其在文件中的物理順序決定。每條記錄以一個(gè)分隔符（換行符）結(jié)尾，分隔符不算在記錄長(zhǎng)度內(nèi)。記錄寫入時(shí)，尾部的空格都被刪除，然后加上分隔符再寫入文件。記錄讀取時(shí)，如果讀取的長(zhǎng)度小于記錄存儲(chǔ)區(qū)的長(zhǎng)度，尾部的分隔符被舍棄，剩余長(zhǎng)度以空格填滿；如果讀取的長(zhǎng)度大于記錄存儲(chǔ)區(qū)的長(zhǎng)度，在讀滿記錄存儲(chǔ)區(qū)后，剩余字符將成為下一次讀取的內(nèi)容。每條記錄只能包含可打印字符及如下控制字符：警報(bào)(X2F)、退格(X16)、換頁(yè)(X0C)、換行(X15)、回車(X0D)、水平制表符(X05)、垂直制表符(X0B)、DBCS（Double Byte Character Set） shift-out(X0E)、DBCS shift-in(X0F)，其中換行符被當(dāng)作分隔符，其它字符被當(dāng)作文件記錄的數(shù)據(jù)。 ACCESS MODE指定文件中的記錄以何種方式可用：SEQUENTIAL：可用于上述任一ORGANIZATION的文件。對(duì)于SEQUENTIAL和LINE SEQUENTIAL文件，記錄按照物理順序（即記錄原先被寫入文件的順序）讀寫；對(duì)于INDEXED文件，記錄按照鍵值的升序讀寫；對(duì)于RELATIVE文件，記錄按其相對(duì)記錄號(hào)的升序讀寫。如果省略ACCESS從句，將默認(rèn)為本方式。 RANDOM：只能用于INDEXED和RELATIVE文件。由索引鍵值/相對(duì)鍵值指定所讀寫的記錄，一次存取一條。 DYNAMIC：只能用于INDEXED和RELATIVE文件。紀(jì)錄可按上述兩種方式讀寫，取決于所用輸入輸出語(yǔ)句的具體形式。 RECORD KEY用于指定INDEXED文件記錄中用作主鍵的項(xiàng)目。對(duì)于不同的記錄，主鍵的值必須是唯一的。RELATIVE KEY確立一個(gè)數(shù)據(jù)名，用來(lái)為RELATIVE文件的記錄指定相對(duì)記錄號(hào)。它不能是數(shù)據(jù)記錄的一部分，必須被定義為無(wú)符號(hào)整型，且不能包含PICTURE符號(hào)P。ALTERNATE RECORD KEY替換關(guān)鍵字是可選的，它提供了存取INDEXED文件的另一途徑。當(dāng)指定了DUPLICATES時(shí)，替換關(guān)鍵字的值對(duì)于不同記錄必須是唯一的，如果沒(méi)有指定DUPLICATES，其值可以有重復(fù)。對(duì)于順序存取方式，具有相同鍵值的記錄按其被輸入文件的順序來(lái)讀寫；對(duì)于隨機(jī)存取方式，只有第一條記錄可以被檢索到。FILE STATUS監(jiān)視文件每一次輸入輸出操作的執(zhí)行。在每一次涉及此文件的顯式的或隱式的輸入輸出操作之后，系統(tǒng)都會(huì)給由FILE STATUS指定的項(xiàng)目設(shè)定一個(gè)值。DATANAME1可以在WORKING STORAGE SECTION、LOCAL STORAGE SECTION或LINKAGE SECTION中定義。它可以是2個(gè)字符的英數(shù)字或NATIONAL類別，也可以是USAGE DISPLAY或USAGE NATIONAL的2位的數(shù)字類別，且不能包含PICTURE符號(hào)P。 DATANAME2必須在WORKING STORAGE SECTION或LINKAGE SECTION中定義為一個(gè)擁有6個(gè)字節(jié)的英數(shù)字型組合項(xiàng)。只有VSAM文件需要指定DATANAME2，它用來(lái)接收6字節(jié)的VSAM返回碼。當(dāng)VSAM返回碼非0時(shí)，DATANAME2被設(shè)定。當(dāng)DATANAME1的值為0時(shí)，DATANAME2的值是未定義的。 I-O-CONTROL：此段在COBOL程序中是可選的，用于指定程序的重新運(yùn)行點(diǎn)和不同文件共享的內(nèi)存區(qū)等。由于此段很少使用，無(wú)需詳細(xì)了解。5數(shù)據(jù)部（DATA DIVISION）數(shù)據(jù)部以結(jié)構(gòu)化的方式描述程序中處理的所有數(shù)據(jù)。文件節(jié)：FILE SECTION描述數(shù)據(jù)文件的結(jié)構(gòu)。對(duì)于SORT/MERGE文件，必須包含一個(gè)SD描述項(xiàng)，對(duì)于其它文件，必須包含一個(gè)FD描述項(xiàng)。FILE SECTION.FD FILE-NAME IS EXTERNAL IS GLOBAL BLOCK CONTAINS INT-1 TO INT-2 CHARACTERS/RECORDS RECORD CONTAINS INT-3 TO INT-4 CHARACTERS RECORD IS VARYING IN SIZE FROM INT-5 TO INT-6 CHARACTERS DEPENDING ON INT-701 FILE-RECORD. 03 *. .FILE-NAME必須與環(huán)境部相應(yīng)的SELECT從句指定的名字一致。其后的從句都是可選可任意排列的。EXTERNAL表明FILE-NAME是外部的。外部文件名能讓兩個(gè)程序通過(guò)共享文件來(lái)通信，此文件的存儲(chǔ)區(qū)是與整個(gè)運(yùn)行單元關(guān)聯(lián)的，而不是只與其中某個(gè)程序關(guān)聯(lián)。GOLBAL表明FILE-NAME是全局的。全局文件名對(duì)聲明它的程序以及直接或間接包含于該程序的每個(gè)程序都是可用的。BLOCK CONTAINS指定物理記錄的長(zhǎng)度。INT-1和INT-2必須為非0無(wú)符號(hào)整數(shù)，它包括物理記錄中任意的控制字節(jié)和填充內(nèi)容（邏輯記錄不包括填充內(nèi)容）。如果記錄不是分塊的，此句可以省略。CHARACTERS用來(lái)指定一條物理記錄所包含的字節(jié)數(shù)，它是默認(rèn)的。RECORDS用來(lái)指定一條物理記錄所包含的邏輯記錄數(shù)。RECORD指定用于存儲(chǔ)每條記錄的字節(jié)數(shù)。INT-3單獨(dú)使用時(shí)用于定長(zhǎng)記錄；INT-3和INT-4一起使用時(shí)可用于定長(zhǎng)或變長(zhǎng)記錄，但這種形式在任何情況下都不是必須的。當(dāng)一個(gè)文件的所有01層描述項(xiàng)都具有相同的長(zhǎng)度時(shí)，將得到定長(zhǎng)記錄。INT-7必須是無(wú)符號(hào)整型數(shù)據(jù)項(xiàng)。工作存儲(chǔ)節(jié)：WORKING-STORAGE SECTION描述不屬于數(shù)據(jù)文件的數(shù)據(jù)記錄，它也用于描述在源程序中被賦值并在目標(biāo)文件的執(zhí)行過(guò)程中保持值不變的數(shù)據(jù)項(xiàng)。連接節(jié)：LINKAGE SECTION用于被調(diào)用程序，描述從調(diào)用程序傳遞過(guò)來(lái)的參數(shù)數(shù)據(jù)。6過(guò)程部（PROCEDURE DIVISION）過(guò)程部包含程序要執(zhí)行的所有語(yǔ)句，包括可選的DECLARATIVES和節(jié)、段、語(yǔ)句等。過(guò)程部的部頭格式為：PROCEDURE DIVISION USING BY REFERENCE/VALUE DATA-1. RETURNING DATA-2. USING短語(yǔ)用于子程序，指定程序被調(diào)用時(shí)所接收的參數(shù)。DATA-1.必須是LINKAGE SECTION中定義為01層或77層的數(shù)據(jù)項(xiàng)，但在調(diào)用程序的CALL語(yǔ)句的USING短語(yǔ)中指定的數(shù)據(jù)項(xiàng)可以是其數(shù)據(jù)部中定義的任意層的數(shù)據(jù)項(xiàng)。DATA-1.的數(shù)據(jù)描述項(xiàng)中可以包含REDEFINES從句?？梢詮姆荂OBOL程序CALL COBOL程序，或者從系統(tǒng)命令向COBOL主程序傳遞用戶參數(shù)。調(diào)用程序與子程序的USING短語(yǔ)中的標(biāo)識(shí)符是按位置而不是名字來(lái)對(duì)應(yīng)的，相應(yīng)的標(biāo)識(shí)符必須包含相同的字節(jié)數(shù)，盡管它們的數(shù)據(jù)描述不必相同。BY REFERENCE和BY VALUE短語(yǔ)作用于其后的所有參數(shù)，直到出現(xiàn)另一個(gè)此短語(yǔ)。RETURNING短語(yǔ)指定一個(gè)用于接收程序結(jié)果的數(shù)據(jù)項(xiàng)，這是一個(gè)輸出參數(shù)。DATA-2必須是LINKAGE SECTION中定義為01層或77層的數(shù)據(jù)項(xiàng)。此短語(yǔ)不能用于包含ENTRY語(yǔ)句的程序、嵌套程序和主程序。過(guò)程部的結(jié)束由以下之一標(biāo)識(shí)：碰到嵌套程序的標(biāo)識(shí)部部頭。 END PROGRAM記號(hào)。 到達(dá)程序的尾部，后面再?zèng)]有任何代碼行了。 7數(shù)據(jù)描述程序中所有數(shù)據(jù)間的關(guān)系在數(shù)據(jù)部中通過(guò)層指示符和層號(hào)來(lái)定義。層指示符（level indicator）和其描述條目一起指定了程序中的每個(gè)文件。FD是文件描述的層指示符，SD是sort-merge文件描述的層指示符。層號(hào)（level-number）和其描述條目一起指定了具體數(shù)據(jù)的屬性。層號(hào)包括范圍01，49中的一位或兩位整數(shù)，以及3個(gè)特殊層號(hào)：66、77、88。基本數(shù)據(jù)項(xiàng)（elementary items）是數(shù)據(jù)的基本劃分。組數(shù)據(jù)項(xiàng)（group items）是基本數(shù)據(jù)項(xiàng)的組合。組還可以組合成包含一個(gè)或多個(gè)子組的更大的組。不帶GROUP-USAGE從句的組是英數(shù)字型的組，無(wú)論其所包含的基本數(shù)據(jù)項(xiàng)是如何表示的。GROUP-USAGE的用法為：GROUP-USAGE IS NATIONAL.每個(gè)組數(shù)據(jù)項(xiàng)和基本數(shù)據(jù)項(xiàng)都是一個(gè)單獨(dú)的條目，都必須被賦予一個(gè)層號(hào)。01：它是最高層，必須從A區(qū)開(kāi)始?？梢允怯?shù)字型組數(shù)據(jù)項(xiàng)、NATIONAL組數(shù)據(jù)項(xiàng)或基本數(shù)據(jù)項(xiàng)。 0249：可以從A區(qū)或B區(qū)開(kāi)始。層次越低的數(shù)據(jù)項(xiàng)被賦予越大的層號(hào)，它們之間不必是連續(xù)的。 66：必須包含一個(gè)RENAMES從句，用于重新編制前面已定義的數(shù)據(jù)項(xiàng)。格式： 66 DATA-1 RENAMES DATA-2 THROUGH/THRU DATA-3.例-01 RECORD-I 05 DN-1. . 05 DN-2. . 05 DN-3. . 05 DN-4. .66 DN-6 RENAMES DN-1 THROUGH DN-3.圖示：DN-1DN-2DN-3DN-4DN-6例-01 RECORD-II 05 DN-1. . 10 DN-2. . 10 DN-2A. . 05 DN-1A REDEFINES DN-1. 10 DN-3A. . 10 DN-3. . 10 DN-3B. . 05 DN-5. .66 DN-6 RENAMES DN-2 THROUGH DN-3.圖示：DN-1 DN-2 DN-2A DN-5 DN-1ADN-3A DN-3DN-3BDN-677：必須從A區(qū)開(kāi)始。用于標(biāo)識(shí)工作存儲(chǔ)節(jié)或連接節(jié)中的一個(gè)獨(dú)立的數(shù)據(jù)描述條目。它不是其它項(xiàng)目的細(xì)分項(xiàng)，本身也不能細(xì)分。 88：標(biāo)識(shí)與條件變量的某個(gè)特定值相關(guān)的條件名。 01 AGE-GROUP PIC 99. /條件變量（conditional variable） 88 INFANT VALUE 0. /條件名（condition name），下同 88 BABY VALUE 1, 2. 88 CHILD VALUE 3 THRU 12. 88 TEENAGER VALUE 13 THRU 19.用法：IF INFANT /如果AGE-GROUP的值為0 . /執(zhí)行語(yǔ)句數(shù)據(jù)分類：ClassCategoryUsageAlphabeticAlphabeticDISPLAYAlphanumericAlphanumericDISPLAYAlphanumeric-editedDISPLAYNumeric-editedDISPLAYDBCSDBCSDISPLAY-1NationalNationalNATIONALNational-editedNATIONALNumeric-editedNATIONALNumericNumericDISPLAY (type zoned decimal)NATIONAL (type national decimal)PACKED-DECIMAL (type internal decimal)COMP-3 (type internal decimal)BINARYCOMPCOMP-4COMP-5Internal floating-pointCOMP-1COMP-2External floating-pointDISPLAYNATIONAL數(shù)據(jù)對(duì)齊規(guī)則：數(shù)據(jù)在基本數(shù)據(jù)項(xiàng)中的對(duì)齊標(biāo)準(zhǔn)取決于接收它的數(shù)據(jù)項(xiàng)的類型。數(shù)字型（numeric）：按假定的小數(shù)點(diǎn)對(duì)齊，如果需要，會(huì)發(fā)生截?cái)嗷蛞?填充。如果沒(méi)有顯式地指定小數(shù)點(diǎn)，則認(rèn)為小數(shù)點(diǎn)緊接在字段的最右邊。 數(shù)字編輯型（numeric-edited）：按小數(shù)點(diǎn)對(duì)齊，如果需要，會(huì)在任意一端發(fā)生截?cái)嗷蛞?填充。 內(nèi)部浮點(diǎn)數(shù)（internal floating-point）：小數(shù)點(diǎn)被假定緊接在字段的最左邊，數(shù)據(jù)向左對(duì)齊，指數(shù)被相應(yīng)地調(diào)整。 外部浮點(diǎn)數(shù)（external floating-point）：數(shù)據(jù)向左對(duì)齊，指數(shù)被相應(yīng)地調(diào)整。 英數(shù)字型(alphanumeric)/英數(shù)字編輯型(alphanumeric-edited)/字母型(alphabetic)/DBCS：左對(duì)齊，如果需要，會(huì)在右端發(fā)生截?cái)嗷蛞钥崭裉畛?。如果指定了JUSTIFIED/JUST從句，則右對(duì)齊。 national/national-edited：同上，區(qū)別是用Unicode空格（NX0020）進(jìn)行填充。 數(shù)值數(shù)據(jù)內(nèi)部表示：數(shù)值類型PICTURE、USAGE和可選SIGN從句值內(nèi)部表示External decimalPIC S9999 DISPLAY+ 1234F1 F2 F3 C4- 1234F1 F2 F3 D4 1234F1 F2 F3 C4PIC 9999 DISPLAY 1234F1 F2 F3 F4PIC S9999 DISPLAYSIGN LEADING+ 1234C1 F2 F3 F4- 1234D1 F2 F3 F4PIC S9999 DISPLAYSIGN LEADING SEPARATE+ 12344E F1 F2 F3 F4- 123460 F1 F2 F3 F4PIC S9999 DISPLAYSIGN TRAILING SEPARATE+ 1234F1 F2 F3 F4 4E- 1234F1 F2 F3 F4 60BinaryPIC S9999 BINARY COMP COMP-4+ 123404 D2- 1234FB 2EPIC S9999 COMP-5+ 1234530 39- 12345CF C7PIC 9999 BINARY COMP COMP-4 123404 D2PIC 9999 COMP-5 60000EA 60Internal decimalPIC S9999 PACKED-DECIMAL COMP-3+ 123401 23 4C- 123401 23 4DPIC 9999 PACKED-DECIMAL COMP-3+ 123401 23 4F- 123401 23 4FInternal floating pointPIC 9999 COMP-1+ 123443 4D 20 00PIC 9999 COMP-2+ 123443 4D 20 00 00 00 00 00- 1234C3 4D 20 00 00 00 00 00External floating pointPIC +9(2).9(2)E+99 DISPLAY+ 12344E F1 F2 4B F3 F4 C5 4E F0 F2- 123460 F1 F2 4B F3 F4 C5 4E F0 F2*內(nèi)部表示為16進(jìn)制表示，每個(gè)16進(jìn)制字符占用4位(bits)，兩個(gè)16進(jìn)制字符表示1個(gè)字節(jié)(byte)。數(shù)據(jù)描述從句：FILLER：指定程序中不被顯示提到的數(shù)據(jù)項(xiàng)。如果省略了數(shù)據(jù)名及FILLER，則相當(dāng)于使用了FILLER。在INITIALIZE語(yǔ)句中，F(xiàn)ILLER數(shù)據(jù)項(xiàng)將被忽略。BLANK WHEN ZERO/ZEROS/ZEROES：當(dāng)數(shù)據(jù)項(xiàng)的值為零時(shí)，該項(xiàng)只包含空格。只能用于數(shù)字型和數(shù)字編輯型的基本數(shù)據(jù)項(xiàng)，且其PICTURE字符串不包含S或*，必須被顯式或隱式地描述為USAGE DISPLAY或USAGE NATIONAL。不能用于日期字段。JUSTIFIED/JUST RIGHT：右對(duì)齊。只用于英數(shù)字型(alphanumeric)/英數(shù)字編輯型(alphanumeric-edited)/字母型(alphabetic)/DBCS/national/national-edited。OCCURS：指定一個(gè)表（數(shù)組），其元素可以通過(guò)下標(biāo)來(lái)訪問(wèn)，下標(biāo)從1開(kāi)始。OCCURS不能用于01、66、77和88層的項(xiàng)目。多維表通過(guò)嵌套OCCURS來(lái)實(shí)現(xiàn)，其下標(biāo)格式為(m,n,k.)或(m n k.)。格式：OCCURS INT-1 TO INT-2 TIMES DEPENDING ON DATA-1ASCENDING/DESCENDING KEY IS DATA-2.INDEXED BY IDX-1. .其中，INT-2必須比INT-1大。DEPENDING ON從句定義不定長(zhǎng)的表。DATA-1必須是整數(shù)數(shù)據(jù)項(xiàng)，其當(dāng)前值代表了表中當(dāng)前的元素個(gè)數(shù)。ASCENDING/DESCENDING KEY短語(yǔ)指定表中的數(shù)據(jù)必須按升序或降序排列。DATA-2.必須按其重要性的降序列出。所有KEY的個(gè)數(shù)不能超過(guò)12個(gè)，所有KEY的長(zhǎng)度和不能超過(guò)256。INDEXED BY定義表的索引。可以為一個(gè)特定的表創(chuàng)建索引（用INDEXED BY），此索引也可以用于其它表，只要兩個(gè)表具有相同數(shù)目及相同長(zhǎng)度的元素；也可以單獨(dú)創(chuàng)建一個(gè)索引（用USAGE IS INDEX），此索引可以用于任何一個(gè)表。例：05 TABLE-ITEM PIC X(8) OCCURS 10 INDEXED BY INX-A.77 INX-B USAGE IS INDEX. PERFORM VARYING INX-B FROM 1 BY 1 UNTIL INX-B 10 DISPLAY TABLE-ITEM(INX-B) END-PERFORM.PICTURE/PIC IS：指定基本數(shù)據(jù)項(xiàng)的一般特征和編輯要求。PICTURE從句不可用于INDEX數(shù)據(jù)項(xiàng)、RENAMES主語(yǔ)、POINTER和內(nèi)部浮點(diǎn)數(shù)。picture符號(hào)的含義：A：容納一個(gè)拉丁字母或空格。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 B：容納一個(gè)空格。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 E：標(biāo)示外部浮點(diǎn)數(shù)中指數(shù)的起點(diǎn)。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 G：一個(gè)DBCS字符。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 N：一個(gè)DBCS字符或NATIONAL字符。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 P：指定假定的十進(jìn)制縮放位置，不計(jì)入數(shù)據(jù)項(xiàng)大小。只能在picture字符串的最左邊或最右邊指定一串連續(xù)的P。例：PPP999的值范圍為0.000999，S999PPP的值范圍為-999000-1000、0、1000999000。 S：正負(fù)號(hào)指示符，不計(jì)入數(shù)據(jù)項(xiàng)大小，如果指定了SIGN . SEPARATE，則占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。S只能是picture字符串最左邊的一個(gè)字符。 V：指定假定小數(shù)點(diǎn)的位置，不計(jì)入數(shù)據(jù)項(xiàng)大小。當(dāng)小數(shù)點(diǎn)位于picture字符串最右邊時(shí)，V是多余的。V只能在給定的picture字符串中出現(xiàn)一次。 X：容納計(jì)算機(jī)英數(shù)字符集中任意一個(gè)被允許的字符。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 Z：代表一個(gè)先頭數(shù)字字符位，當(dāng)該位為0時(shí)，將用空格代替。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 9：一個(gè)數(shù)字。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 0：數(shù)字0。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 /：斜杠。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 ,：逗號(hào)。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 .：一個(gè)編輯字符，代表用于對(duì)齊的小數(shù)點(diǎn)。另外也代表一個(gè)句號(hào)位，占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 +、-：用于編輯項(xiàng)的正負(fù)號(hào)控制符。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。+表示對(duì)于正值將輸出+表示正數(shù)，負(fù)值將輸出-表示負(fù)數(shù)；-表示對(duì)于正值將輸出空表示正數(shù)，負(fù)值將輸出-表示負(fù)數(shù)。 *：代表一個(gè)先頭數(shù)字字符位，當(dāng)該位為0時(shí)，將用*代替。占據(jù)數(shù)據(jù)項(xiàng)大小中的一個(gè)字符位。 緊跟在其中任一符號(hào)后的括號(hào)內(nèi)的無(wú)符號(hào)非0整數(shù)表示該符號(hào)連續(xù)出現(xiàn)的個(gè)數(shù)。REDEFINES：用不同的數(shù)據(jù)描述條目描述同一塊計(jì)算機(jī)內(nèi)存區(qū)域。格式：level-number DATA-1/FILLER REDEFINES DATA-2.DATA-1及其下級(jí)項(xiàng)不能包含VALUE從句。DATA-2的描述項(xiàng)可以有REDEFINES從句，不可以有OCCURS從句，但DATA-2可以是OCCURS數(shù)據(jù)項(xiàng)的下級(jí)項(xiàng)。DATA-1和DATA-2必須具有相同級(jí)別，但層號(hào)不必相同，且不能是66或88。DATA-1的長(zhǎng)度可以比DATA-2的長(zhǎng)度大，這不會(huì)改變DATA-2的長(zhǎng)度。如果 A REDEFINES B. 則 MOVE A TO B 和 MOVE B TO A 的結(jié)果可能是未定義的。SIGN：為帶符號(hào)數(shù)字項(xiàng)指定運(yùn)算符的位置和表現(xiàn)形式。格式：SIGN IS LEADING/TRAILING SEPARATE CHARACTER.該從句只能用于一個(gè)用語(yǔ)為DISPLAY或NATIONAL且其picture字符串中包含S的基本數(shù)字?jǐn)?shù)據(jù)項(xiàng)，或者至少包含一個(gè)此類數(shù)據(jù)項(xiàng)的組數(shù)據(jù)項(xiàng)。當(dāng)用于后者時(shí)，SIGN從句只作用于組中包含的如前者的數(shù)據(jù)項(xiàng)，其它數(shù)據(jù)項(xiàng)將不受此從句影響。USAGE NATIONAL必須包含SEPARATE短語(yǔ)。SYNCHRONIZED：指定基本數(shù)據(jù)項(xiàng)在內(nèi)存的自然邊界上的對(duì)齊方式?？捎糜诨緮?shù)據(jù)項(xiàng)和01層組數(shù)據(jù)項(xiàng)。格式：SYNCHRONIZED/SYNC LEFT/RIGHT.USAGE：指定數(shù)據(jù)在內(nèi)存中的表示格式。可用于除66和88外的任意層次的數(shù)據(jù)描述條目。組數(shù)據(jù)項(xiàng)的USAGE將作用于組內(nèi)每一個(gè)基本數(shù)據(jù)項(xiàng)。當(dāng)USAGE沒(méi)有被顯式地指定時(shí)，將默認(rèn)為如下的USAGE：DISPLAY：當(dāng)PICTURE從句只包含G、N以外的符號(hào)。 NATIONAL：當(dāng)PICTURE從句只包含一個(gè)或多個(gè)N，并且編譯器選項(xiàng)NSYMBOL(NATIONAL)有效。 DISPLAY-1：當(dāng)PICTURE從句只包含一個(gè)或多個(gè)N，并且編譯器選項(xiàng)NSYMBOL(DBCS)有效。 計(jì)算項(xiàng)（computational items）用于算術(shù)運(yùn)算，必須是數(shù)字型。其最大長(zhǎng)度為18位數(shù)，除了PACKED-DECIMAL項(xiàng)外。如果編譯器選項(xiàng)ARITH(COMPAT)有效，PACKED-DECIMAL的最大長(zhǎng)度為18位數(shù)；如果ARITH(EXTEND)有效，則PACKED-DECIMAL的最大長(zhǎng)度為31位數(shù)。其PICTURE字符串只能包含：9、S、V、P。COMP-1和COMP-2不能有PICTURE字符串。計(jì)算項(xiàng)包括以下用語(yǔ)（COMP是COMPUTATIONAL的縮寫，二者等價(jià)）：BINARY：二進(jìn)制數(shù)據(jù)項(xiàng)。負(fù)數(shù)用其絕對(duì)值的2的補(bǔ)碼表示。所占內(nèi)存取決于其PICTURE從句中定義的十進(jìn)制數(shù)的個(gè)數(shù)。 位數(shù)： 內(nèi)存：14 2個(gè)字節(jié)59 4個(gè)字節(jié)1018 8個(gè)字節(jié)二進(jìn)制數(shù)是big-endian的，運(yùn)算符包含在最左邊的位上。PACKED-DECIMAL：內(nèi)部十進(jìn)制數(shù)據(jù)項(xiàng)。PICTURE字符串中每2個(gè)十進(jìn)制數(shù)占用一個(gè)字節(jié)的內(nèi)存，除了最右邊的字節(jié)只包含1個(gè)十進(jìn)制數(shù)及符號(hào)。 COMP：等價(jià)于BINARY。 COMP-1：內(nèi)部浮點(diǎn)數(shù)據(jù)項(xiàng)（單精度）。4字節(jié)長(zhǎng)。 COMP-2：內(nèi)部浮點(diǎn)數(shù)據(jù)項(xiàng)（雙精度）。8字節(jié)長(zhǎng)。 COMP-3：等價(jià)于PACKED-DECIMAL。 COMP-4：等價(jià)于BINARY。 COMP-5：本地二進(jìn)制數(shù)據(jù)項(xiàng)。其取值范圍可達(dá)到本地二進(jìn)制表示所能容納的范圍，而不受限于PICTURE字符串中9的個(gè)數(shù)所指的值。 PIC： 內(nèi)存： 取值范圍：S9(01)S9(04) 2個(gè)字節(jié) 2(-15)215-1S9(05)S9(09) 4個(gè)字節(jié) 2(-31)231-1S9(10)S9(18) 8個(gè)字節(jié) 2(-63)263-19(01)9(04) 2個(gè)字節(jié) 0216-19(05)9(09) 4個(gè)字節(jié) 0232-19(10)9(18) 8個(gè)字節(jié) 0264-1Cobol積累：cobol 知識(shí)點(diǎn)集錦COBOL數(shù)據(jù)類型 計(jì)息是銀行的一項(xiàng)重要業(yè)務(wù)，包括日常代理客戶收、付計(jì)算客戶利息和年度計(jì)息等。目前，這些工作大多數(shù)是在IBM ES9000主機(jī)的SAFE應(yīng)用系統(tǒng)平臺(tái)上進(jìn)行，該系統(tǒng)聯(lián)機(jī)程序和聯(lián)機(jī)計(jì)息程序是用IBM 370匯編語(yǔ)言實(shí)現(xiàn)的。為方便匯編語(yǔ)言讀寫，在VSAM文件存儲(chǔ)的數(shù)據(jù)中，數(shù)據(jù)存放格式進(jìn)行了特殊的定義。如日期存放采用X(3)型，01年03月15日，存入EBCD碼為X010315。在進(jìn)行年度計(jì)息時(shí)，為了實(shí)現(xiàn)各種復(fù)雜的運(yùn)算工作，一般采用COBOL語(yǔ)言來(lái)實(shí)現(xiàn)各種運(yùn)算。而采用COBOL語(yǔ)言讀取X(3)型數(shù)據(jù)時(shí)，讀出的是字符型數(shù)據(jù)，不能直接進(jìn)行運(yùn)算，必須轉(zhuǎn)換為COBOL數(shù)據(jù)類型的數(shù)據(jù)后才能進(jìn)行相應(yīng)處理。如剛才的X010315，需要轉(zhuǎn)換為內(nèi)部十進(jìn)制數(shù)據(jù)X0010315C。