【正文】 （3）索引不能用來進(jìn)行算術(shù)運(yùn)算，也不能直接打印或顯示。各個(gè)表元素是按一定規(guī)律在內(nèi)存中順序存放的（在內(nèi)存中按行排列，如A(1,1)、A(1,2) 、A(2,1) 、A(2,2)），因此，在引用時(shí)必須指出表名和這個(gè)元素在表中的位置。2．變長表格 OCCURS 整數(shù)1 TO 整數(shù)2 TIMES DEPENDING ON 數(shù)據(jù)名1OCCURS從句生成變長表格，數(shù)據(jù)項(xiàng)個(gè)數(shù)可變。 77 X PIC 9(6). 88 X1 VALUE 0 THRU 99. 88 X2 VALUE 100 THRU 999. 88 X3 VALUE 1000 THRU 4999. 88 X4 VLAUE 5000 THRU 100000.…… IF X1 MOVE TO R. IF X2 MOVE TO R. IF X3 MOVE TO R. IF X4 MOVE TO R. 用邏輯操作符（AND，OR，NOT）和括號進(jìn)行組合，可以構(gòu)成復(fù)合條件。 INSPECT A TALLYING N FOR LEADING ’*’ AFTER ’T’ ( N = 2 ) INSPECT A TALLYING N FOR LEADING ’*’ ( N = 0 ) LEADING只計(jì)算開頭的匹配，其他都不算匹配。STRING A, B, C TO D1．DELIMITED（定界短語），用來控制各個(gè)發(fā)送項(xiàng)的終止位置。4．組合項(xiàng)的傳送 MOVE可以一次傳送一個(gè)基本項(xiàng)，也可以傳送一組合項(xiàng)或一個(gè)記錄。 ADD A, B TO C ROUNDER ADD A, B, C TO D, E ROUNDER, F ROUNDER7．長度溢出處理（ON SIZE ERROR短語） 結(jié)果絕對值大于接收項(xiàng)目最大存儲(chǔ)能力時(shí)，會(huì)發(fā)生SIZE ERROR條件。以PROCEDURE DIVISION開頭，包含對數(shù)據(jù)操作的程序邏輯。即數(shù)據(jù)放進(jìn)這個(gè)項(xiàng)目時(shí)，它與最右邊的字符對齊。（COMPX類似于COMP5，但按大尾字節(jié)順序存放。COMPUTATIONAL由廠家定義。層號 數(shù)據(jù)名1 REDEFINES 數(shù)據(jù)名2 02 A.03 A1 PIC 9(4).03 A2 PIC X(6).03 A3 PIC X(4).02 B REDEFINES A.03 B1 PIC X(5).03 B2 PIC 9(6).03 B3 PIC 99V9.02 C REDEFINES A.03 C1 PIC X(5).03 C2 PIC X(4).03 C3 PIC X(5). 規(guī)則：（1）數(shù)據(jù)名2與數(shù)據(jù)名1的層號必須相同。它必須包含1~18個(gè)9字符，包含至少一個(gè)除P、V以外的字符。算進(jìn)項(xiàng)目長度中。（在講過程部的條件語句時(shí)再詳細(xì)介紹。（4） 記錄中各數(shù)據(jù)項(xiàng)的數(shù)據(jù)形式和占內(nèi)存的大小。一般格式：ENVIRONMENT DIVISION.CONFIGURATION SECTION. 配置節(jié)SOURCECOMPUTER.OBJECTCOMPUTER.SPECIALNAMES.INPUTOUTPUT SECTION. 輸入/輸出節(jié)FILECONTROL.IOCONTROL.1． 配置節(jié)包括SOURCECOMPUTER, OBJECTCOMPUTER和SPECIALNAMES（專用名段）。系統(tǒng)名稱：COBOL保留字，用于與操作環(huán)境通信，又COBOL廠家定義。“D”表示本行為調(diào)試行。PROCEDURE DIVISION （過程部）包含構(gòu)成程序的過程性語句，用來給出程序要執(zhí)行的指令，使計(jì)算機(jī)產(chǎn)生相應(yīng)的操作。事實(shí)上，除了商業(yè)之外，各種管理工作都廣泛使用COBOL,如各種統(tǒng)計(jì)工作，財(cái)會(huì)工作，企業(yè)計(jì)劃編制，作業(yè)制度，情報(bào)檢索，人事管理等。3． 句子，語句和子句 在過程部中，每一段由若干個(gè)句子（Sentence）組成。2．相鄰的兩個(gè)字之間必須留一個(gè)以上的空格。 例：’abcd’, ’Expired’,3． 象征常量：用保留字表示某些常用常量(直接數(shù))。SPECIALNAMES段用于把系統(tǒng)中原規(guī)定的一些設(shè)備名或功能名或符號改為用戶自己指定的名字或符號。5． 報(bào)表節(jié)報(bào)表節(jié)描述實(shí)現(xiàn)COBOL報(bào)告編寫工具的系統(tǒng)所需的數(shù)據(jù)。 如果組項(xiàng)目不需按名稱引用，則可以用FILLER關(guān)鍵字作為數(shù)據(jù)名，不用生成組名，但FILLER組名中定義的每個(gè)數(shù)據(jù)項(xiàng)應(yīng)當(dāng)唯一。 描 述 數(shù)值 內(nèi)存中表示 長度 數(shù)值范圍 01 X PIC 99V99. 8750 4 ~ 01 Y PIC 9(3)V9(2). 781 78100 5 ~ 01 Z PIC V999 234 3 01 T PIC 999V 123 123 33．“P”描述符 表示數(shù)據(jù)項(xiàng)的比例因子，不占內(nèi)存，不算進(jìn)項(xiàng)目長度中。01 W PIC 9(3).01 V PIC B9(3)B.MOVE 123 TO W.MOVE W TO V.5．“+”或“”描述符表示在輸出的數(shù)值前（或后）加正號或負(fù)號。（4）用REDEFINES子句可以改變數(shù)據(jù)的結(jié)構(gòu)，REDEFINES從句定義的區(qū)域長度應(yīng)小于等于原區(qū)域長度。大多定義為雙精度內(nèi)部浮點(diǎn)數(shù)字項(xiàng)，用內(nèi)存8Byte。03 A PIC 9(4) COMP.03 B PIC 9(4).03 C COMP.05 C1 PIC S9(3).05 C2 PIC S9(6).（四）SIGN子句 SIGN子句可以指定格式字符串包含S字符的數(shù)字?jǐn)?shù)據(jù)項(xiàng)中符號的位置。03 A PIC $(5).99 BLANK WHEN ZERO.03 B PIC Z, BLANK WHEN ZERO.03 C PIC ***.** BLANK WHEN ZERO.(BLANK子句不起作用)（九）賦初值子句（VALUE 子句） 程序中的數(shù)據(jù)往往需要賦初值，可以用VALUE子句來實(shí)現(xiàn)。（3） 段（paragraph）：由段名、句號分隔符和零或幾條句子組成。數(shù)據(jù)項(xiàng)的順序也無關(guān)緊要。四．輸入輸出語句1．接收語句（ACCEPT語句） ACCEPT語句從輸入設(shè)備讀取數(shù)據(jù)。UNSTRING A INTO B, C, D1．DELIMITED短語UNSTRING A DELIMITED BY SIZE INTO B, CUNSTRING A DELIMITED BY ’T’ INTO B, CUNSTRING A DELIMITED BY ALL ’’ INTO B, CUNSTRING A DELIMITED BY ALL SPACE OR ’. ’ INTO B, C 2．COUNT短語，將已發(fā)送的字符個(gè)數(shù)記入用戶定義的記數(shù)器。即是說，第一個(gè)比較成功后，指針移動(dòng)到下一個(gè)字符，再從第一個(gè)比較做起。 PERFORM 過程名1 [ THRU 過程名2 ] 整數(shù) TIMES例1：A. MOVE 5 TO N. MOVE 1 TO M. PERFORM A1 N TIMES. 　　 DISPLAY M. STOP RUN.A1. MULTIPLY N BY M SUBTRACT 1 FROM N.上例中的PERFORM部分也可寫成： 　 PERFORM N TIMES 　　 MULTIPLY N BY M 　　 SUBTRACT 1 FROM N ENDPERFORM.3．PERFORM UNTIL格式 PERFORM UNTIL格式重復(fù)執(zhí)行指定的過程組，直到條件值變?yōu)檎妗?1 PRODUCTRECORD. 03 PRODUCT OCCURS 20 TIMES.05 QUANTITY PIC 9(6) OCCURS 3 TIMES.PRODUCT是一維表，QUANTITY是二維表。01 TABLE.02 B OCCURS 8. 03 C1 PIC X(8). 03 C2 PIC X(2).MOVE SPACE TO C1 OF B(2). – 表元素應(yīng)出現(xiàn)在限定詞OF或IN的后面。77 K USAGE IS INDEX.., 2．SET語句SET語句用來給索引賦值，其作用是將一表元素的相對地址放到指定的索引去。01 TABLE.03 MONTHS PIC X(36) VALUE ‘JanFebMarAprMayJunJulAugSepOctNovDec’.03 MNAME REDEFINES MONTHS PIC XXX OCCURS 12 TIMES.四．用索引法引用表元素1．索引的概念。如果用OCCURS來描述一個(gè)組合項(xiàng)，則重復(fù)出現(xiàn)的是這個(gè)組合項(xiàng)。 EVALUATE NETINCOMEWHEN 0 THRU 12500 MOVE 0 TO TAXRATEWHEN 12501 THRU 28000 MOVE TO TAXRATEWHEN 28001 THRU 50000 MOVE TO TAXRATEWHEN OTHER MOVE TO TAXRATE ENDEVALUATE十二．停止語句（STOP語句）STOP RUN格式停止程序，關(guān)閉任何打開的文件，這是COBOL程序正常終止的方式。對象與目標(biāo)應(yīng)當(dāng)長度相同，且對象中字符不能重復(fù)。八．檢測語句（INSPECT語句） INSPECT語句檢查數(shù)據(jù)項(xiàng)以計(jì)算該項(xiàng)目中某個(gè)字符串出現(xiàn)的次數(shù)或用另一個(gè)字符串替換該字符串。省略時(shí)為操作員控制臺。 　 　發(fā)送項(xiàng)是數(shù)字型數(shù)據(jù)，而接收項(xiàng)是編輯數(shù)字型數(shù)據(jù)，則先將發(fā)送項(xiàng)中數(shù)據(jù)按接收項(xiàng)的描述要求進(jìn)行編輯，然后再傳送。存放余數(shù)的數(shù)據(jù)項(xiàng)可以時(shí)數(shù)字或數(shù)字編輯數(shù)據(jù)項(xiàng)。（2）只能用于工作單元節(jié)中，不能用于文件節(jié)中。詳細(xì)內(nèi)容見表格處理。COMPUTATIONAL4由廠家定義。USAGE子句可以用于基本和組數(shù)據(jù)項(xiàng)目。01 A1 PIC S9(3)V99.01 A2 PIC ++++.99.01 A3 PIC $$$$.99.01 A4 PIC ++++.++.01 A5 PIC $$$$.$$. 錯(cuò)誤： 01 A1 PIC +$$.99.8．零抑制格式（取消高位零，用“Z”和“*”描述符）01 A1 PIC S9(3)V99.01 A2 PIC .01 A3 PIC ****.99.(1) 不能同時(shí)用Z浮動(dòng)和+，, $浮動(dòng) 錯(cuò)誤： ZZ$$ 或 ++（2）單個(gè)的+, , $可以與Z或*連用01 A1 PIC +.01 A2 PIC *(3).99.01 A3 PIC $.（3）如果使“Z”或“*”對應(yīng)與所有的數(shù)字字符，當(dāng)數(shù)值為0時(shí)，則所用數(shù)字位全部由空格或*代替。如無S則總是表示為正值。字符編輯數(shù)據(jù)用特定字符表示格式。（2）從屬項(xiàng)的層號比其上屬項(xiàng)的層號高。COBOL將數(shù)據(jù)部分成節(jié)，每個(gè)節(jié)是可選的，但程序中的節(jié)應(yīng)按指定順序定義。][DATEWRITTEN. 編寫日期，可記入修訂史，修改日期、原因及人員。2． 只能由字母，數(shù)字和連字符“”組成，第一個(gè)和最后一個(gè)字符不能用連字符。四． 源程序的書寫格式1． 1~6列，為“序號區(qū)”，為6位整數(shù)序號，不是程序本身的內(nèi)容。5． 缺點(diǎn)是比較繁瑣。4． 結(jié)構(gòu)嚴(yán)謹(jǐn)，層次分明。4． 描述體（描述款目）　　　　在數(shù)據(jù)部中有若干個(gè)節(jié)，每個(gè)節(jié)中有若干個(gè)描述體，每個(gè)描述體又有若干個(gè)子句構(gòu)成。 COBOL單字的規(guī)則如下：1． 字長為1~30個(gè)字符之間。第二章 標(biāo)識部和環(huán)境部一． 標(biāo)識部（IDENTIFICATION DIVISION）（一）必寫部分IDENTIFICATION DIVISION.PROGRAMID. 程序名.（二）任選部分 一般格式： [AUTHOR. 作者姓名][INSTALLATION. 設(shè)計(jì)這個(gè)程序