【正文】 索引數(shù)據(jù)項的用途：將索引名傳遞給子程序（索引名不能再CALL語句中）；將索引值保存在文件中。索引是代表一個表元素在表中的相對位置。注：下標(biāo)只能是整常數(shù)或具有整型值的數(shù)據(jù)名。（4）在COBOL中表元素可以允許為組合項。允許最多7維。第五章 表的建立和查找COBOL語言中的表（TABLE）相當(dāng)于其它高級語言中的數(shù)組（ARRAY）。例1：A. DISPLAY ‘A’MOVE ‘B’ TO T.PERFORM B.STOP RUN.B. DISPLAY T.MOVE ‘C’ TO T.PERFORM C.C. DISPLAY T.例2： PERFORM A THRU CA. ……B. ……C. ……例3： PROCEDURE DIVISION. PERFORM A00. PERFORM B00. PERFORM C00. STOP RUN. A00 SECTION. A00START. …… A00END. EXIT2．PERFORM TIMES格式 PERFORM TIMES格式與簡單PERFORM格式相似，只是指定的過程組不是執(zhí)行一次，而是執(zhí)行指定的次數(shù)。） INSPECT A CONVERTING ’EL’ TO ’AX’ ===〉 INSPECT A REPLACING ALL ‘E’ BY ‘A’,REPLACING ALL ‘L’ BY ‘X’.九．條件語句（IF語句）IF 條件 THEN 語句組1 ELSE 語句組2ENDIF1．關(guān)系表達(dá)式條件 關(guān)系運算符： , , = , = , =，NOT , NOT , NOT = , NOT = , NOT = IF A = ZERO … IF B NOT EQUAL TO 1 … IF ( * C) D … IF NAME NOT = ’WANG’ … IF STU = SPACE … 2．符號條件 符號條件測試算術(shù)表達(dá)式的代數(shù)值大于，小于或等于0。找到匹配后，當(dāng)前位置移動，比較在次從第一個操作數(shù)開始。1．INSPECT TALLYING格式，用來統(tǒng)計滿足某種條件的字符的個數(shù)。七．字符串分解語句（UNSTRING語句）UNSTRING語句取一個發(fā)送數(shù)據(jù)項中的字符并將其放進(jìn)多個接收數(shù)據(jù)項。 如果使用NO ADVANCING短語則傳輸最后一個字符后，輸出設(shè)備仍然保持原位，使下一條DISPLAY語句在該位置開始輸出數(shù)據(jù)。傳送的兩者間必須有成對的同名數(shù)據(jù)項，而且這一對中必須至少有一個項是基本項。3．不同類型數(shù)據(jù)間的傳送規(guī)則（1）接收項為數(shù)字或數(shù)字編輯型，則發(fā)送項為數(shù)字和數(shù)字編輯型或字母數(shù)字型。（數(shù)據(jù)項目不一定要格式相同。余數(shù)計算取決于每個操作數(shù)的符號和小數(shù)點位置。（2） 句子（sentence）：以英文句號（.）結(jié)尾的一系列語句。（3）指定數(shù)據(jù)名3時，數(shù)據(jù)名3必須在數(shù)據(jù)名2后面定義，不能從屬于數(shù)據(jù)名2。使用時，當(dāng)數(shù)據(jù)項的值為零時，內(nèi)容改變?yōu)榭崭?。（六）SYNCHRONIZED子句 SYNCHRONIZED子句指定基本數(shù)據(jù)項在計算機內(nèi)存自然邊界上的對齊。如用BINARY時，組中的所有基本項目都要用數(shù)字。大多選擇與PACKEDDECIMAL一致。（不用PIC）COMPUTATIONAL2由廠家定義。[ USAGE IS ] BINARYDISPLAY COMPUTATIONAL COMP COMPUTATIONAL1 COMP1 COMPUTATIONAL2 COMP2 COMPUTATIONAL3 COMP3 COMPUTATIONAL4 COMP4 COMPUTATIONAL5 COMP5 INDEX PACKEDDECIMAL缺省為DISPLAY。（3）不能用于文件節(jié)或報表節(jié)的01層，可用于工作單元節(jié)的01層。小數(shù)點位置上，由空格代替（用Z時），或保留“.”（用*時）。4．“B”描述符表示插入空格。 描 述 數(shù)值 內(nèi)存中表示 長度 數(shù)值范圍 01 X PIC S9(3)V9(2) 12689 5 ~ 01 Y PIC S9(3)V9(2) 12689 5(E) 數(shù)字編輯數(shù)據(jù)為了使輸出數(shù)據(jù)更易讀，可以定義數(shù)字編輯數(shù)據(jù)。不包含V的項目假設(shè)的小數(shù)點位于最右邊。字符編輯數(shù)據(jù)項目的格式字符串可用A、 X、 B、0和/ 表示，至少要有一個A或X和一個B（空格）或0（0）或/（斜杠）。舉例：一個打印用的記錄行，有固定的空格時。（3）如果幾個數(shù)據(jù)項都從屬于同一組合項但互不從屬，則這幾個數(shù)據(jù)項應(yīng)具有相同的層號。屬過時部分，很少使用。DATA DIVISION.FILE SECTION. 文件節(jié)WORKINGSTORAGE SECTION. 工作存儲節(jié)LINKAGE SECTION . 連接節(jié)COMMUNICATION SECTION. 通信節(jié)REPORT SECTION. 報表節(jié)1． 文件節(jié)程序中每一個輸入或輸出文件都要在文件節(jié)中定義。OBJECTCOMPUTER段標(biāo)識編譯程序運行的計算機。][DATECOMPILED. 編譯日期][SECURITY. 保密程度的描述。六． 常量1． 數(shù)值常量（數(shù)字直接數(shù)） 例： 123, +, 2． 非數(shù)值常量（非數(shù)字直接數(shù)）:字符串內(nèi)的引號用兩個連續(xù)引號表示。3． 字中不能出現(xiàn)空格。在寫程序時，應(yīng)注意以下幾點：1．大寫或小寫字母均可，習(xí)慣用大寫字母。序號不是必須的，但其所占區(qū)域要保留。各個段內(nèi)有各種COBOL元素。二． 最簡單的COBOL程序介紹例１：IDENTIFICATION DIVISION.(標(biāo)識部)PROGRAMID. EXAM1.（程序標(biāo)識段）ENVIRONMENT DIVISION.（設(shè)備部）DATA DIVISION.（數(shù)據(jù)部）PROCEDURE DIVISION.（過程部）A. DISPLAY ‘THIS IS A COBOL PROGRAM.’. STOP RUN.例２：IDENTIFICATION DIVISION.(標(biāo)識部)PROGRAMID. EXAM２.（程序標(biāo)識段）ENVIRONMENT DIVISION.（設(shè)備部）DATA DIVISION.（數(shù)據(jù)部）WORKINGSTORAGE SECTION.(工作單元節(jié))77 A PICTURE IS 9(3).（對Ａ進(jìn)行描述）77 B PICTURE IS 9(3).（對Ｂ進(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． 部每個程序都包括四個部：IDENTIFICATION DIVISION （標(biāo)識部）提供程序的一般性文檔說明，主要用來指定源程序名。COBOL自60年代初開始廣泛應(yīng)用于計算機應(yīng)用領(lǐng)域（商業(yè)和其他領(lǐng)域）。3． 通用性強，標(biāo)準(zhǔn)化程度較高。2． 節(jié)和段 標(biāo)識部下只有各個段。 注意：部標(biāo)題、節(jié)標(biāo)題、段名、數(shù)據(jù)項目描述及句子后必須用英文句號結(jié)束，否則程序無法編譯。3． 8~11列，為“A區(qū)”，部頭，節(jié)頭，段頭，層號01，層號77以及文件描述符FD，程序結(jié)束標(biāo)題等應(yīng)從A區(qū)開始書寫，但不一定從第8列開始寫。 ’ ” ( ) $空格 ： COBOL單字分三種：保留字、用戶自定義字及系統(tǒng)名稱。分為：Computer name、Implementers name、Language name。替換從REPLACE語句的第一個格式開始，到REPLACE OFF 語句結(jié)束。SOURCECOMPUTER段標(biāo)識編譯程序的計算機。FILECONTROL. SELECT FILE1 ASSIGN TO “”. SELECT FILE2 ASSIGN TO DISK. SELECT FILE3 ASSIGN TO PRINTER. 輸入輸出控制段： IOCONTROL段包含定義程序返回點，不同文件共享的內(nèi)存區(qū)和多文件卷中文件位置的項目。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． 工作存儲節(jié)包含程序所需的臨時結(jié)果和初始化靜態(tài)數(shù)據(jù)的數(shù)據(jù)定義。數(shù)據(jù)的層次結(jié)構(gòu)是：記錄—組合項—基本項。）66層是用于更明現(xiàn)有數(shù)據(jù)項或數(shù)據(jù)項組。字符數(shù)據(jù)項目的格式字符串可用用A、 X、 9表示，至少要包含一個X,是非數(shù)值類型的，不能用于運算。 描 述 數(shù)值 內(nèi)存中表示 長度 數(shù)值范圍 01 X PIC 999 123 123 3 0~999 01 Y PIC 9(4) 4567 4567 4 0~9999 01 Z PIC 99 12 2 01 T PIC 99 12 22．“V”描述符 指出在數(shù)據(jù)中隱含的小數(shù)點的位置，不占內(nèi)存，不算進(jìn)項目長度中。 描 述 數(shù)值 內(nèi)存中表示 長度 數(shù)值范圍 01 X PIC 9P(4). 10000 1 1 1~9*10000 01 Y PIC PPP99. 23 2 ~4．“S”描述符 表示一個帶符號的數(shù)，符號不算如項目長度中，除非包括SIGN IS SEPARATE 從句。1．“.”描述符表示插入小數(shù)點的位置，只能在格式字符串中使用一次，不能與V和P同時使用。在編輯型數(shù)據(jù)的描述中，指定浮動插入的字符個數(shù)應(yīng)足夠，以免數(shù)據(jù)被截斷。內(nèi)存中的值為數(shù)據(jù)名1和數(shù)據(jù)名2共享。 03 A PIC X(8) VALUE ’ABCDEFGH’. 03 B REDEFINES A.05 B1 PIC X(4). 05 B2 PIC X(4).（三）USAGE子句USAGE子句可以指定計算機內(nèi)存中的數(shù)據(jù)項格式，充分利用計算機內(nèi)存空間和算術(shù)功能。大多選擇與BINARY相同。COMPUTATIONAL3由廠家定義。）INDEX用法是特殊用法，指定用該項目作為表格索引。（五）OCCURS子句 OCCURS子句指定數(shù)據(jù)項為固定項目數(shù)或可變項目數(shù)的表格（即數(shù)組）。數(shù)據(jù)太長時左邊截尾，太短時則左邊填充。即是說該格式可以更名現(xiàn)有數(shù)據(jù)項或數(shù)據(jù)項組，或以原定以未允許的方式組合。過程部的組件包括語句、句子、段和節(jié)。段名不能與節(jié)名重復(fù)。01 A PIC 9V9 VALUE .1． B PIC 9V9 VALUE .01 C PIC 9V9. MULTIPLY A BY B GI