01-cobol-基礎知識講義(編輯修改稿)

　

【文章內容簡介】 COMP4 COMPUTATIONAL5 COMP5 INDEX PACKEDDECIMAL缺省為DISPLAY。BINARY、COMPUTATIONAL、PACKEDDECIMAL只用于數字數據項。BINARY指定項目存放成二進制數。在PIC子句中描述字符9的個數為1~4時，占內存字節為2；個數為5~9時，占內存字節為4；個數為10~18時，占內存字節為8。COMPUTATIONAL由廠家定義。大多選擇與BINARY相同。COMPUTATIONAL1由廠家定義。大多定義為單精度內部浮點數字項，用內存4Byte。（不用PIC）COMPUTATIONAL2由廠家定義。大多定義為雙精度內部浮點數字項，用內存8Byte。（不用PIC）PACKEDDECIMAL指定數字按縮和十進制存放，以減少每個數字的存儲量。每個數字4位或每個字節表示2個數字。符號也占半個字節，放在最后面（無符號，用‘1111’；+號，用‘1100’；號，用‘1101’）。COMPUTATIONAL3由廠家定義。大多選擇與PACKEDDECIMAL一致。COMPUTATIONAL4由廠家定義。大多選擇與PACKEDDECIMAL一致。COMPUTATIONAL5由廠家定義。類似于USAGE COMP,但與在某些平臺上的字節順序相反。在支持小尾字節順序的平臺上,COMP5執行速度更快。（COMPX類似于COMP5，但按大尾字節順序存放。）INDEX用法是特殊用法，指定用該項目作為表格索引。采用INDEX用法的項目只能在過程部的某些語句中，不能有PIC從句。注：USAGE從句用于組層時作用于組中每個基本項目。如用BINARY時，組中的所有基本項目都要用數字。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字符的數字數據項中符號的位置。 [SIGN IS] LEADING [ SEPARATE CHARACTER ] TRAILING 通過LEADING或TRAILING 來指定符號在數字的第一位（LEADING）或最后一位(TRAILING)。符號的具體表示由廠家指定。 如果有SEPARATE子句，則符號用標準字符+或表示，符號位記入數據項的長度。（五）OCCURS子句 OCCURS子句指定數據項為固定項目數或可變項目數的表格（即數組）。OCCURS子句不能用于01和77層，可以用于基本或組數據項目。詳細內容見表格處理。（六）SYNCHRONIZED子句 SYNCHRONIZED子句指定基本數據項在計算機內存自然邊界上的對齊。 指定SYNCHRONIZED子句時的具體效果由廠家指定。可參看教科書的25章。（七）JUSTIFIED子句 JUSTIFIED子句(簡稱JUST)只能用于非編輯的字母數字基本數據項。即數據放進這個項目時，它與最右邊的字符對齊。數據太長時左邊截尾，太短時則左邊填充。標準規則為與最左邊的字符對齊并在右邊截尾或填充。（八）BLANK WHEN ZERO子句BLANK WHEN ZERO子句只能用于數字型或數字編輯型的基本項。使用時，當數據項的值為零時，內容改變為空格。03 A PIC $(5).99 BLANK WHEN ZERO.03 B PIC Z, BLANK WHEN ZERO.03 C PIC ***.** BLANK WHEN ZERO.(BLANK子句不起作用)（九）賦初值子句（VALUE 子句） 程序中的數據往往需要賦初值，可以用VALUE子句來實現。 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項目可以在不改變數據項的長度的前提下，重新定義數據區的名稱和數據結構的形式。原各基本項的類型和長度不變。即是說該格式可以更名現有數據項或數據項組，或以原定以未允許的方式組合。66 數據名1 RENAMES 數據名2 [ THRU 數據名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層記錄中最后一個數據描述體之后。（2）只能用于工作單元節中，不能用于文件節中。（3）指定數據名3時，數據名3必須在數據名2后面定義，不能從屬于數據名2。此時數據名1是一組項目。第四章 過程部一．簡介過程部是COBOL程序的最后一個部分。包含程序運行時要執行的所有語句。以PROCEDURE DIVISION開頭，包含對數據操作的程序邏輯。過程部的組件包括語句、句子、段和節。（1） 語句（statement）：以動詞開頭的單詞、直接數和分隔符的組合。語句應一律從B區（12列開始）開始寫，續行也應從B區開始。（2） 句子（sentence）：以英文句號（.）結尾的一系列語句。（3） 段（paragraph）：由段名、句號分隔符和零或幾條句子組成。段的最后一條語句要用英文句號結束。（4） 節（section）：由節標題加上保留字SECTION和分隔符句號。注：段名應在節中保持唯一性、節名應在程序中保持唯一性。段名不能與節名重復。引用段名時可以用所屬的節限定如下：GO TO PARA1 IN SECTION22.例1:PROCEDURE DIVISION. (過程部頭)A SECTION. （A節）A1. MOVE 1 TO I. （A1段） MOVE 2 TO J.A2. ADD I TO J. （A2段）B SECTION. （B節）…例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, 余數D REMAINDER子句 ：取得余數。存放余數的數據項可以時數字或數字編輯數據項。余數計算取決于每個操作數的符號和小數點位置。 例： 77 Q PIC S99V9. 77 R PIC S99V9. DIVIDE 3 INTO 7 GIVING Q REMAINDER R Q= R=5．計算語句（COMPUTE語句） COMPUTE語句可以進行復雜的四則運算，也可實現指數運算。 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短語表示運算產生的數值先進行四舍五入處理再存入接收項目中。對多個接收項目，舍入處理對各個項目獨立進行。 ADD A, B TO C ROUNDER ADD A, B, C TO D, E ROUNDER, F ROUNDER7．長度溢出處理（ON SIZE ERROR短語） 結果絕對值大于接收項目最大存儲能力時，會發生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子句的算術運算語句(數據項同名時編寫多條語句的縮寫方法。) 算術運算語句中的ADD和SUBTRACT語句除了可以用來使兩個或多個單個的數據項進行運算外，還可以用來使兩個組合項中的對應項進行加，減運算。進行運算的各項必須是數值型初等項。（數據項目不一定要格式相同。數據項的順序也無關緊要。） 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語句用來實現數據的傳送，將一個數據從一個內存域送到另一個內存域。MOVE 123 TO AMOVE ZERO TO BMOVE SPACE TO CMOVE ’COBOL’ TO X, Y, Z1．同類型數據間的傳送規則。MOVE A TO B 其中A為發送項，B為接收項 　數字型數據之間的傳送，按小數點位置對