【正文】 預(yù)定的范圍中取值，則這個變量稱條件變量。用來表示條件變量當(dāng)前值的名字叫條件名，用層號88，緊跟在條件變量之后說明。 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ù)合條件。 IF X 0 AND X 100 … IF X = 0 OR X = 1十．PERFORM語句 PERFORM語句使控制傳遞另一過程，并在執(zhí)行后返回。它相當(dāng)于子程序調(diào)用，只是不傳遞參數(shù)。1．簡單PERFORM格式 　 PERFORM 過程名1 [ THRU(THROUGH) 過程名2 ] 　過程部中的節(jié)名，段名稱為過程名。例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ù)。 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)檎妗? PERFORM 過程名1 [ THRU 過程名2 ] UNTIL 條件注意：在執(zhí)行PERFORM語句時，先判斷指定的條件是否為真，若為假則執(zhí)行所指定的語句序列，如果一開始條件就為真，則一次也不執(zhí)行。 MOVE 0 TO T 　　MOVE 1 TO N PERFORM UNTIL N 30 ADD N TO T ADD 1 TO N ENDPERFORM.4．PERFORM VARYING格式 PERFORM VARYING格式相當(dāng)于C語言中的FOR語句。多個計數(shù)器（AFTER短語）等于嵌套FOR語句。 PERFORM 過程名1 [ THRU 過程名2 ] VARYING 標(biāo)識符1 FROM 標(biāo)識符2 BY 標(biāo)識符3 UNTIL 條件1[ AFTER 標(biāo)識符4 FROM 標(biāo)識符5 BY 標(biāo)識符6 UNTIL 條件2 ] MOVE 0 TO T PERFORM VARYING N FROM 1 BY 1 UNTIL N 30 ADD N TO T ENDPERFORM PERFORM VARYING I FROM 1 BY 1 UNTIL I 9 　　 AFTER J FROM 1 BY 1 UNTIL J 9 DISPLAY P = I * J ENDPERFORM.5. 出口語句（EXIT語句） 　　EXIT語句提供了一組過程的公共出口，或者說它指出了被調(diào)用過程的邏輯終點(diǎn)。十一．多分支選擇語句（EVALUATE語句） EVALUATE語句根據(jù)一列表達(dá)式的值，從一大組語句中選擇一組要執(zhí)行的語句，相當(dāng)于CASE語句。 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程序正常終止的方式。第五章 表的建立和查找COBOL語言中的表（TABLE）相當(dāng)于其它高級語言中的數(shù)組（ARRAY）。一．表定義生成表時，在數(shù)據(jù)部的數(shù)據(jù)描述項中使用OCCURS子句。1．定長表 OCCURS integer1 TIMESOCCURS從句生成定長數(shù)據(jù)項表格，數(shù)據(jù)項個數(shù)就是指定的個數(shù)，引用表格的下標(biāo)取值為1到integer1之間。01 PRODUCTRECORD.03 PRODUCT OCCURS 20 TIMES. 05 PRODUCTION PIC 9(6). 05 SALES PIC 9(6). 05 HAND PIC 9(6).**PRODUCT是表的名字。2．變長表格 OCCURS 整數(shù)1 TO 整數(shù)2 TIMES DEPENDING ON 數(shù)據(jù)名1OCCURS從句生成變長表格，數(shù)據(jù)項個數(shù)可變。integer1指定最少個數(shù)，可以為0，integer2指定最大個數(shù)。dataname2應(yīng)為整數(shù)，確定每次引用表格時數(shù)據(jù)項的實際個數(shù)，取值為integer1和integer2之間。01 STUDENTSCORERECORD. 03 NAME PIC X(10). 03 QTYOFCOURSE PIC 99. 03 SCORE PIC 9(3) OCCURS 1 TO 10 TIMES DEPENDING ON QTYOFCOURSE.3．多維表格發(fā)生多維表格時，用從屬于帶OCCURS從句的數(shù)據(jù)項的另一個OCCURS從句定義數(shù)據(jù)項。允許最多7維。01 PRODUCTRECORD. 03 PRODUCT OCCURS 20 TIMES.05 QUANTITY PIC 9(6) OCCURS 3 TIMES.PRODUCT是一維表，QUANTITY是二維表。4． 有關(guān)說明（1）OCCURS后面只能為正整數(shù)。（2）OCCURS從句不能用于01層和77層。（表只能定義在記錄內(nèi)部。77層是孤立的數(shù)據(jù)項，不和其他數(shù)據(jù)發(fā)生組合關(guān)系。）（3）如果用OCCURS來描述一個基本項，則重復(fù)出現(xiàn)的是這個基本項。如果用OCCURS來描述一個組合項，則重復(fù)出現(xiàn)的是這個組合項。（4）在COBOL中表元素可以允許為組合項。而且在建立一個多維表的同時，也建立了一維表。（5）只有當(dāng)OCCURS所說明的數(shù)據(jù)是基本項時，才能在該數(shù)據(jù)項的描述中使用PIC從句。01 A.02 B PIC X(20) OCCURS 5. 錯誤03 C PIC X(20). 二．表元素的引用表必須先在數(shù)據(jù)部定義，才能在過程部引用。各個表元素是按一定規(guī)律在內(nèi)存中順序存放的（在內(nèi)存中按行排列，如A(1,1)、A(1,2) 、A(2,1) 、A(2,2)），因此，在引用時必須指出表名和這個元素在表中的位置。例PRODUCT（2）。如果是二維表，在括弧中要用兩個下標(biāo)分別表示此元素在每一維中的位置。例QUANTITY（3，2）。注：下標(biāo)只能是整常數(shù)或具有整型值的數(shù)據(jù)名。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的后面。三．表格的初始化1．對整個表格賦初值。01 TABLE VALUE IS ZERO. 03 A PIC 9(3) OCCURS 20 TIMES.01 TABLE. 03 A PIC 9(3) OCCURS 20 TIMES VALUE IS ZERO.01 TABLE.03 A OCCURS 20 TIMES VALUE SPACES. 05 NAME PIC X(10). 05 MAIL PIC X(20). 對帶OCCURS從句的數(shù)據(jù)項指定VALUE值。01 TABLE. 03 A OCCURS 1 TO 20 DEPENDING ON COUNT VALUE SPACES. 05 NAME PIC X(10). 05 MAIL PIC X(20). 對變長表格，則初始化個數(shù)最多的表格。01 TABLE. 03 A OCCURS 100 TIMES ASCENDING KEY IS ZIP. 05 NAME PIC X(10) VALUE SPACES. 05 MAIL PIC X(20) VALUE SPACES. 05 ZIP PIC 9(5) VALUE ZEROS. 對帶OCCURS從句的數(shù)據(jù)項所屬數(shù)據(jù)項指定VALUE值。2．用OCCURS從句和REDEFINES從句給各個表元素賦初值。01 TABLE.03 MONTHS PIC X(36) VALUE ‘JanFebMarAprMayJunJulAugSepOctNovDec’.03 MNAME REDEFINES MONTHS PIC XXX OCCURS 12 TIMES.四．用索引法引用表元素1．索引的概念。索引是代表一個表元素在表中的相對位置。對作為索引的數(shù)據(jù)名要專門指定。01 TABLE.03 A PIC X(2) OCCURS 5 INDEXED BY K. （1）索引專門用于表元素的引用，不需要在其它地方進(jìn)行數(shù)據(jù)描述。（2）需要用索引來引用表元素的，都需要在建立表時用INDEXED BY短語來指定索引的名字。（3）索引不能用來進(jìn)行算術(shù)運(yùn)算，也不能直接打印或顯示。（4）一維或多維表的每一維按需要可以指定若干個索引名。01 TABLE. 03 A OCCURS 5 INDEXED BY A1, A2. 05 B OCCURS 5 INDEXED BY B1, B2. 07 C PIC 99 OCCURS 8 INDEXED BY C1, C2. A(A1), B(A1, B2) , C(A1, B2, C2)（5），需要另外定義一種特殊的數(shù)據(jù)項叫索引數(shù)據(jù)項，用來專門存儲索引的值。索引數(shù)據(jù)項在數(shù)據(jù)部中定義，用USAGE子句描述。索引數(shù)據(jù)項的用途：將索引名傳遞給子程序（索引名不能再CALL語句中）；將索引值保存在文件中。77 K USAGE IS INDEX.., 2．SET語句SET語句用來給索引賦值，其作用是將一表元素的相對地址放到指定的索引去。（1）格式1用于保存和恢復(fù)索引。SET A TO B A接收項（整型數(shù)據(jù)項或索引數(shù)據(jù)項） B發(fā)送項（整型直接數(shù)，整型數(shù)據(jù)項或索引數(shù)據(jù)項）01 A. 03 B OCCURS 1