【正文】 VING C ON SIZE ERROR DISPLAY ’SIZE ERROR’.8．帶CORRESPONDING子句的算術(shù)運(yùn)算語(yǔ)句(數(shù)據(jù)項(xiàng)同名時(shí)編寫多條語(yǔ)句的縮寫方法。 　　字母或字符型數(shù)據(jù)間的傳送，按左端對(duì)齊，如發(fā)送項(xiàng)長(zhǎng)于接收項(xiàng)，則右端多余位截去，如短于接收項(xiàng)，右端補(bǔ)空格。組合項(xiàng)的傳送是將發(fā)送項(xiàng)的內(nèi)容不加轉(zhuǎn)換地一個(gè)字節(jié)一個(gè)字節(jié)地順序傳送到接收項(xiàng)。 ACCEPT 標(biāo)識(shí)符 FROM DATE （6字符）DAY （6字符）DAYOFWEEK （1字符）TIME （8字符）2．顯示語(yǔ)句（DISPLAY語(yǔ)句） DISPLAY語(yǔ)句將數(shù)據(jù)寫入輸出設(shè)備。STRING A, B, C DELIMITED BY SIZE INTO DSTRING A, B, C DELIMITED BY SPACE INTO D2．POINTER（指針短語(yǔ)），用來(lái)指定開始復(fù)制的具體字符位置。UNSTRING A INTO B, C, D TALLYING IN N. (N=3)6．OVERFLOW短語(yǔ) 注：如果發(fā)送項(xiàng)的長(zhǎng)度大于接收項(xiàng)的總長(zhǎng)度，則填完最后一個(gè)接收項(xiàng)時(shí)，語(yǔ)句結(jié)束并發(fā)生溢出。 INSPECT A TALLYING N FOR CHARACTERS AFTER ’T’ ( N = 9 )CHARACTERS計(jì)算所有字符，任何字符都算匹配。） INSPECT A TALLYING N FOR ALL ’L’ REPLACING LEADING ’A’ BY ’E’ AFTER ’L’3． INSPECT CONVERTING格式，是INSPECT REPLACING語(yǔ)句縮寫。 IF X 0 AND X 100 … IF X = 0 OR X = 1十．PERFORM語(yǔ)句 PERFORM語(yǔ)句使控制傳遞另一過(guò)程，并在執(zhí)行后返回。 PERFORM 過(guò)程名1 [ THRU 過(guò)程名2 ] VARYING 標(biāo)識(shí)符1 FROM 標(biāo)識(shí)符2 BY 標(biāo)識(shí)符3 UNTIL 條件1[ AFTER 標(biāo)識(shí)符4 FROM 標(biāo)識(shí)符5 BY 標(biāo)識(shí)符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. 出口語(yǔ)句（EXIT語(yǔ)句） 　　EXIT語(yǔ)句提供了一組過(guò)程的公共出口，或者說(shuō)它指出了被調(diào)用過(guò)程的邏輯終點(diǎn)。integer1指定最少個(gè)數(shù)，可以為0，integer2指定最大個(gè)數(shù)。77層是孤立的數(shù)據(jù)項(xiàng)，不和其他數(shù)據(jù)發(fā)生組合關(guān)系。例PRODUCT（2）。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. 對(duì)帶OCCURS從句的數(shù)據(jù)項(xiàng)所屬數(shù)據(jù)項(xiàng)指定VALUE值。（4）一維或多維表的每一維按需要可以指定若干個(gè)索引名。SET A TO B A接收項(xiàng)（整型數(shù)據(jù)項(xiàng)或索引數(shù)據(jù)項(xiàng)） B發(fā)送項(xiàng)（整型直接數(shù)，整型數(shù)據(jù)項(xiàng)或索引數(shù)據(jù)項(xiàng)）01 A. 03 B OCCURS 1。（2）需要用索引來(lái)引用表元素的，都需要在建立表時(shí)用INDEXED BY短語(yǔ)來(lái)指定索引的名字。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). 對(duì)帶OCCURS從句的數(shù)據(jù)項(xiàng)指定VALUE值。01 A.02 B PIC X(20) OCCURS 5. 錯(cuò)誤03 C PIC X(20). 二．表元素的引用表必須先在數(shù)據(jù)部定義，才能在過(guò)程部引用。（2）OCCURS從句不能用于01層和77層。01 PRODUCTRECORD.03 PRODUCT OCCURS 20 TIMES. 05 PRODUCTION PIC 9(6). 05 SALES PIC 9(6). 05 HAND PIC 9(6).**PRODUCT是表的名字。 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語(yǔ)言中的FOR語(yǔ)句。用來(lái)表示條件變量當(dāng)前值的名字叫條件名，用層號(hào)88，緊跟在條件變量之后說(shuō)明。 MOVE ’’ TO A INSPECT A REPLACING ALL ’0’ BY SPACE ALL ’.’ BY ’,’ ALL ’A’ BY ’B’ INSPECT A REPLACING FIRST ’0’ BY SPACE BEFORE ’.’ FIRST短語(yǔ)時(shí)，只把第一個(gè)出現(xiàn)的字符當(dāng)作匹配。) MOVE ’AT**F,***,T’ TO A INSPECT A TALLYING N FOR ALL ’*’ AFTER ’T’ ( N = 5 ) ALL檢查匹配的字符或字符串個(gè)數(shù)。 UNSTRING A DELIMITED BY ’T’ OR ALL ’ ’ OR ’R’ INTO B DELIMITER IN QC DELIMITER IN PD ENDUNSTRING.4．POINTER短語(yǔ)，指定從發(fā)送項(xiàng)某一指定位置開始傳送。A1. ADD A TO C ON SIZE ERROR GOTO A2.A2. STOP RUN.六．字符串連接語(yǔ)句（STRING語(yǔ)句）STRING語(yǔ)句從一個(gè)或幾個(gè)發(fā)送數(shù)據(jù)項(xiàng)收集字符并將數(shù)據(jù)合成一個(gè)接收數(shù)據(jù)項(xiàng)。 ACCEPT 標(biāo)識(shí)符 [ FROM 助憶名 ]**助憶名應(yīng)與環(huán)境部SPECIALNAMES段中的硬件名相關(guān)聯(lián)。如果發(fā)送項(xiàng)是數(shù)字，則必須是無(wú)符號(hào)整數(shù)。MOVE 123 TO AMOVE ZERO TO BMOVE SPACE TO CMOVE ’COBOL’ TO X, Y, Z1．同類型數(shù)據(jù)間的傳送規(guī)則。對(duì)多個(gè)接收項(xiàng)目，舍入處理對(duì)各個(gè)項(xiàng)目獨(dú)立進(jìn)行。（4） 節(jié)（section）：由節(jié)標(biāo)題加上保留字SECTION和分隔符句號(hào)。包含程序運(yùn)行時(shí)要執(zhí)行的所有語(yǔ)句。 05 A72 PIC 99.四．66層RENAMES項(xiàng)目用66層RENAMES項(xiàng)目可以在不改變數(shù)據(jù)項(xiàng)的長(zhǎng)度的前提下，重新定義數(shù)據(jù)區(qū)的名稱和數(shù)據(jù)結(jié)構(gòu)的形式。（七）JUSTIFIED子句 JUSTIFIED子句(簡(jiǎn)稱JUST)只能用于非編輯的字母數(shù)字基本數(shù)據(jù)項(xiàng)。符號(hào)的具體表示由廠家指定。在支持小尾字節(jié)順序的平臺(tái)上,COMP5執(zhí)行速度更快。每個(gè)數(shù)字4位或每個(gè)字節(jié)表示2個(gè)數(shù)字。在PIC子句中描述字符9的個(gè)數(shù)為1~4時(shí)，占內(nèi)存字節(jié)為2；個(gè)數(shù)為5~9時(shí)，占內(nèi)存字節(jié)為4；個(gè)數(shù)為10~18時(shí)，占內(nèi)存字節(jié)為8。（6）使用REDEFINES子句的數(shù)據(jù)項(xiàng)不能使用VALUE子句賦初值。01 A1 PIC $9(3).99DB.01 A2 PIC $.10．PIC子句小結(jié) 描述字符 含義 9 表示一個(gè)數(shù)字位置 A 表示一個(gè)字母位置 X 表示一個(gè)字符位置 V 表示隱含的小數(shù)點(diǎn)位置 S 表示數(shù)值數(shù)據(jù)帶符號(hào) P 表示十進(jìn)比例換算 $ 插入貨幣號(hào) . 插入小數(shù)點(diǎn)位置 ， 插入逗號(hào)位置 + 一律加符號(hào) 對(duì)負(fù)數(shù)加負(fù)號(hào)，對(duì)正數(shù)前留一空格 Z 取消高位零，用空格代替 * 取消高位零，用*代替 B 插入空格 0 插入零 DB（借方） 數(shù)據(jù)為負(fù)時(shí)，在數(shù)據(jù)后面插入DB，為正時(shí)，空兩格 CR（貸方） 數(shù)據(jù)為負(fù)時(shí)，在數(shù)據(jù)后面插入CR，為正時(shí)，空兩格（二） REDEFINES子句REDEFINES子句可以用不同數(shù)據(jù)描述同一計(jì)算機(jī)內(nèi)存，適用于基本數(shù)據(jù)項(xiàng)和組數(shù)據(jù)項(xiàng)。當(dāng)用“”時(shí)，當(dāng)數(shù)值為正時(shí)，數(shù)值前空一格，數(shù)值為負(fù)時(shí)，加一負(fù)號(hào)。、*、+、CR、DB的組合。P只能出現(xiàn)在開頭或末尾，而不能同時(shí)在兩處出現(xiàn)。1．“9”描述符 表示數(shù)字存放位置, 不能放入空格，不能表示小數(shù)和負(fù)數(shù)。01 A. 03 A1 PIC 9999. 03 A2 PIC AAAA. 03 A3 PIC XXXX. (A)字母數(shù)據(jù)字母數(shù)據(jù)限于字母表中使用的字符和空格符，用A描述符表示，每個(gè)字符用一個(gè)A表示。88層是對(duì)特殊數(shù)據(jù)項(xiàng)目條件名保留的。對(duì)數(shù)字型數(shù)據(jù)制訂不同方式存儲(chǔ)，提高計(jì)算效率。（3） 每個(gè)記錄中數(shù)據(jù)的層次關(guān)系。它有兩個(gè)段：文件控制段：FILECONTROL段是給文件命名，指出存放該文件的外部設(shè)備及其他有關(guān)文件控制信息。如果程序不需要任何環(huán)境部提供的項(xiàng)目，則可以省略環(huán)境部。八． 程序文本的復(fù)制與替換操作1. COPY語(yǔ)句COPY語(yǔ)句用COBOL源文本textname替換從COPY字開始到終止句號(hào)之前的內(nèi)容。用戶自定義字：文件、數(shù)據(jù)、標(biāo)號(hào)、程序等所取的名稱。4．逗號(hào)，句號(hào)，分號(hào)的左邊不能留空格，而右邊應(yīng)有空格?！?”或“/”表示本行為注釋行。句子又由語(yǔ)句（Statement）組成。DATA DIVISION （數(shù)據(jù)部）程序中所用到的全部數(shù)據(jù)（包括：文件數(shù)據(jù)—用于輸入輸出、靜態(tài)數(shù)據(jù)、參數(shù)等）都應(yīng)在數(shù)據(jù)部中說(shuō)明它們的類型和所占內(nèi)存的情況。1． 適于數(shù)據(jù)處理領(lǐng)域。COBOL針對(duì)商業(yè)世界的使用，是真正商用應(yīng)用程序開發(fā)的首選語(yǔ)言。程序中不需要外部文件時(shí)，環(huán)境部為空，也可以省略部標(biāo)題。一個(gè)句子是以英文句號(hào)來(lái)結(jié)束的。連接符“”表示本行是緊接在上一行的后面。3．運(yùn)算符和等號(hào)左右兩邊必須各留一個(gè)空格。5． 不能用保留字作為用戶定義字和系統(tǒng)名稱，但用戶定義字和系統(tǒng)名稱可以用同一個(gè)單詞。例：ZERO ZEROS ZEROES SPACE SPACES HIGHVALUE HIGHVALUES LOWVALUE LOWVALUES QUOTE QUOTES ALL 常量七.?。茫希拢希烫幚頂?shù)據(jù)的特點(diǎn)：　　　層次的概念；記錄和文件的概念。3. 環(huán)境部（ENVIRONMENT DIVISION）環(huán)境部指定程序中與特定計(jì)算機(jī)或操作系統(tǒng)相關(guān)的方面，指明用到哪些設(shè)備，哪些文件，將程序中用到的內(nèi)部文件名與外部文件（或外部設(shè)備）聯(lián)系起來(lái)。SPECIALNAMES. CLASS REALNUMBER IS?。?123456789+.＂可用于類條件測(cè)試 DE