【文章內(nèi)容簡介】 COMP4 COMPUTATIONAL5 COMP5 INDEX PACKEDDECIMAL缺省為DISPLAY。BINARY、COMPUTATIONAL、PACKEDDECIMAL只用于數(shù)字數(shù)據(jù)項。BINARY指定項目存放成二進制數(shù)。在PIC子句中描述字符9的個數(shù)為1~4時，占內(nèi)存字節(jié)為2；個數(shù)為5~9時，占內(nèi)存字節(jié)為4；個數(shù)為10~18時，占內(nèi)存字節(jié)為8。COMPUTATIONAL由廠家定義。大多選擇與BINARY相同。COMPUTATIONAL1由廠家定義。大多定義為單精度內(nèi)部浮點數(shù)字項，用內(nèi)存4Byte。（不用PIC）COMPUTATIONAL2由廠家定義。大多定義為雙精度內(nèi)部浮點數(shù)字項，用內(nèi)存8Byte。（不用PIC）PACKEDDECIMAL指定數(shù)字按縮和十進制存放，以減少每個數(shù)字的存儲量。每個數(shù)字4位或每個字節(jié)表示2個數(shù)字。符號也占半個字節(jié)，放在最后面（無符號，用‘1111’；+號，用‘1100’；號，用‘1101’）。COMPUTATIONAL3由廠家定義。大多選擇與PACKEDDECIMAL一致。COMPUTATIONAL4由廠家定義。大多選擇與PACKEDDECIMAL一致。COMPUTATIONAL5由廠家定義。類似于USAGE COMP,但與在某些平臺上的字節(jié)順序相反。在支持小尾字節(jié)順序的平臺上,COMP5執(zhí)行速度更快。（COMPX類似于COMP5，但按大尾字節(jié)順序存放。）INDEX用法是特殊用法，指定用該項目作為表格索引。采用INDEX用法的項目只能在過程部的某些語句中，不能有PIC從句。注：USAGE從句用于組層時作用于組中每個基本項目。如用BINARY時，組中的所有基本項目都要用數(shù)字。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ù)字數(shù)據(jù)項中符號的位置。 [SIGN IS] LEADING [ SEPARATE CHARACTER ] TRAILING 通過LEADING或TRAILING 來指定符號在數(shù)字的第一位（LEADING）或最后一位(TRAILING)。符號的具體表示由廠家指定。 如果有SEPARATE子句，則符號用標準字符+或表示，符號位記入數(shù)據(jù)項的長度。（五）OCCURS子句 OCCURS子句指定數(shù)據(jù)項為固定項目數(shù)或可變項目數(shù)的表格（即數(shù)組）。OCCURS子句不能用于01和77層，可以用于基本或組數(shù)據(jù)項目。詳細內(nèi)容見表格處理。（六）SYNCHRONIZED子句 SYNCHRONIZED子句指定基本數(shù)據(jù)項在計算機內(nèi)存自然邊界上的對齊。 指定SYNCHRONIZED子句時的具體效果由廠家指定?？蓞⒖唇炭茣?5章。（七）JUSTIFIED子句 JUSTIFIED子句(簡稱JUST)只能用于非編輯的字母數(shù)字基本數(shù)據(jù)項。即數(shù)據(jù)放進這個項目時，它與最右邊的字符對齊。數(shù)據(jù)太長時左邊截尾，太短時則左邊填充。標準規(guī)則為與最左邊的字符對齊并在右邊截尾或填充。（八）BLANK WHEN ZERO子句BLANK WHEN ZERO子句只能用于數(shù)字型或數(shù)字編輯型的基本項。使用時，當數(shù)據(jù)項的值為零時，內(nèi)容改變?yōu)榭崭瘛?3 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子句來實現(xiàn)。 01 A1 PIC 99 VALUE 12. 01 A2 PIC X(5) VALUE ’COBOL’. 01 A3 PIC S99V99 VALUE . 01 T. 03 A4 PIC 9(6) VALUE ZERO. 03 A5 PIC X(6) VALUE SPACES. 03 A6 PIC X(6) VALUE ALL ’A’.03 A7 VALUE ’1234’. 組項目被初始化了，則下屬項目不能有05 A71 PIC 99. VALUE子句。 05 A72 PIC 99.四．66層RENAMES項目用66層RENAMES項目可以在不改變數(shù)據(jù)項的長度的前提下，重新定義數(shù)據(jù)區(qū)的名稱和數(shù)據(jù)結構的形式。原各基本項的類型和長度不變。即是說該格式可以更名現(xiàn)有數(shù)據(jù)項或數(shù)據(jù)項組，或以原定以未允許的方式組合。66 數(shù)據(jù)名1 RENAMES 數(shù)據(jù)名2 [ THRU 數(shù)據(jù)名3 ]01 A. 03 B05 G05 H 03 C05 I05 J03 D03 E 03 F66 K RENAMES G THRU I.66 M RENAMES B THRU C.66 N RENAMES E.（1）層號只能用66，它必須緊跟在01層記錄中最后一個數(shù)據(jù)描述體之后。（2）只能用于工作單元節(jié)中，不能用于文件節(jié)中。（3）指定數(shù)據(jù)名3時，數(shù)據(jù)名3必須在數(shù)據(jù)名2后面定義，不能從屬于數(shù)據(jù)名2。此時數(shù)據(jù)名1是一組項目。第四章 過程部一．簡介過程部是COBOL程序的最后一個部分。包含程序運行時要執(zhí)行的所有語句。以PROCEDURE DIVISION開頭，包含對數(shù)據(jù)操作的程序邏輯。過程部的組件包括語句、句子、段和節(jié)。（1） 語句（statement）：以動詞開頭的單詞、直接數(shù)和分隔符的組合。語句應一律從B區(qū)（12列開始）開始寫，續(xù)行也應從B區(qū)開始。（2） 句子（sentence）：以英文句號（.）結尾的一系列語句。（3） 段（paragraph）：由段名、句號分隔符和零或幾條句子組成。段的最后一條語句要用英文句號結束。（4） 節(jié)（section）：由節(jié)標題加上保留字SECTION和分隔符句號。注：段名應在節(jié)中保持唯一性、節(jié)名應在程序中保持唯一性。段名不能與節(jié)名重復。引用段名時可以用所屬的節(jié)限定如下：GO TO PARA1 IN SECTION22.例1:PROCEDURE DIVISION. (過程部頭)A SECTION. （A節(jié)）A1. MOVE 1 TO I. （A1段） MOVE 2 TO J.A2. ADD I TO J. （A2段）B SECTION. （B節(jié)）…例2：PROCEDURE DIVISION.DISPLAY ’HOW DO YOU DO’STOP RUN.例3：MOVE 100 TO X.ADD Y TO Z.IF X 100 GO TO FINISH.二．算術運算語句1． 加法語句（ADD 語句）ADD A TO B A + B → BADD 15 TO C 15 + C → CADD A, B TO C A + B + C → CADD 15, 25 TO C 15 + 25 + C → CADD A, B GIVING C A + B → CADD 15, 25 GIVING C 15 + 25 → CADD A, B TO C, D A + B + C → C, A + B + D → D2． 減法語句（SUBTRACT語句）SUBTRACT B FROM A A – B → A SUBTRACT B, C FROM A A – B –C → A SUBTRACT B, C FROM A, T A – B –C → A, T – B –C → T SUBTRACT B, C FROM A GIVING X A – B –C → X3．乘法語句（MULTIPLY 語句） MULTIPLY A BY B A * B → B MULTIPLY A BY B GIVING C A * B → C MULTIPLY A BY B, C A * B → B, A * C → C4．除法語句（DIVIDE語句） DIVIDE A INTO B B / A → B DIVIDE A INTO B GIVING C B / A → C DIVIDE A BY B GIVING C A / B → C DIVIDE A BY B GIVING C REMAINDER D A / B → 商C, 余數(shù)D REMAINDER子句 ：取得余數(shù)。存放余數(shù)的數(shù)據(jù)項可以時數(shù)字或數(shù)字編輯數(shù)據(jù)項。余數(shù)計算取決于每個操作數(shù)的符號和小數(shù)點位置。 例： 77 Q PIC S99V9. 77 R PIC S99V9. DIVIDE 3 INTO 7 GIVING Q REMAINDER R Q= R=5．計算語句（COMPUTE語句） COMPUTE語句可以進行復雜的四則運算，也可實現(xiàn)指數(shù)運算。 COMPUTE T = (A + B) * C / D COMPUTE T = X ** 2 COMPUTE T = 1 / (1 / A + 1 / B) 運算次序：（　）－＞　單邊運算符＋、―?。荆。荆ⅲ荆?、－例1：IDENTIFICATION DIVISION.PROGRAMID EX1.ENVIRONMENT DIVISION.DATA DIVISION.WORKINGSTORAGE SECTION.77 X PIC 9999.77 A PIC 9977 B PIC 99.77 C PIC 99.PROCEDURE DIVISION. ACCEPT A. ACCEPT B. ACCEPT C. COMPUTE X = (A + B) / C. DISPLAY X. STOP RUN.6．四舍五入處理（ROUNDER子句） 接收項目后邊的ROUNDER短語表示運算產(chǎn)生的數(shù)值先進行四舍五入處理再存入接收項目中。對多個接收項目，舍入處理對各個項目獨立進行。 ADD A, B TO C ROUNDER ADD A, B, C TO D, E ROUNDER, F ROUNDER7．長度溢出處理（ON SIZE ERROR短語） 結果絕對值大于接收項目最大存儲能力時，會發(fā)生SIZE ERROR條件。01 A PIC 9V9 VALUE .1． B PIC 9V9 VALUE .01 C PIC 9V9. MULTIPLY A BY B GIVING C ON SIZE ERROR DISPLAY ’SIZE ERROR’.8．帶CORRESPONDING子句的算術運算語句(數(shù)據(jù)項同名時編寫多條語句的縮寫方法。) 算術運算語句中的ADD和SUBTRACT語句除了可以用來使兩個或多個單個的數(shù)據(jù)項進行運算外，還可以用來使兩個組合項中的對應項進行加，減運算。進行運算的各項必須是數(shù)值型初等項。（數(shù)據(jù)項目不一定要格式相同。數(shù)據(jù)項的順序也無關緊要。） 02 A. 02 B.03 A1 PIC 9(3). 03 A1 PIC 99V99.03 A2 PIC 99V99. 03 A2 PIC 9V9.03 A3 PIC 9V9. 03 A3 PIC 99V99.ADD CORR A TO B.三．傳送語句（MOVE語句）MOVE語句用來實現(xiàn)數(shù)據(jù)的傳送，將一個數(shù)據(jù)從一個內(nèi)存域送到另一個內(nèi)存域。MOVE 123 TO AMOVE ZERO TO BMOVE SPACE TO CMOVE ’COBOL’ TO X, Y, Z1．同類型數(shù)據(jù)間的傳送規(guī)則。MOVE A TO B 其中A為發(fā)送項，B為接收項 　數(shù)字型數(shù)據(jù)之間的傳送，按小數(shù)點位置對