【正文】 于01和77層，可以用于基本或組數(shù)據(jù)項目。 [SIGN IS] LEADING [ SEPARATE CHARACTER ] TRAILING 通過LEADING或TRAILING 來指定符號在數(shù)字的第一位（LEADING）或最后一位(TRAILING)。采用INDEX用法的項目只能在過程部的某些語句中，不能有PIC從句。類似于USAGE COMP,但與在某些平臺上的字節(jié)順序相反。大多選擇與PACKEDDECIMAL一致。（不用PIC）PACKEDDECIMAL指定數(shù)字按縮和十進(jìn)制存放，以減少每個數(shù)字的存儲量。COMPUTATIONAL1由廠家定義。BINARY指定項目存放成二進(jìn)制數(shù)。USAGE子句不影響項目的使用(但過程部的有些語句將某些操作數(shù)限于某種USAGE從句)。（5）REDEFINES子句應(yīng)在其它子句之前。（2）用REDEFINES子句的描述體應(yīng)緊跟在被重新定義的數(shù)據(jù)項的描述之后，中間不能插入其它項的說明。當(dāng)數(shù)值為負(fù)時，在編輯型數(shù)據(jù)項中最后兩個字節(jié)中置DB或CR，數(shù)值為正時，此兩字節(jié)留空格。浮動字符前不能再出現(xiàn)其它符號，即浮動字符應(yīng)為第一個描述字符。當(dāng)用“+”時，不論數(shù)值為正或負(fù)一律加符號。01 W PIC 9(3).9(2).01 V PIC 9(3)V9(2). MOVE TO V MOVE V TO W 錯誤：01 W PIC S9(3).9(2).2．“，”描述符表示插入逗號的位置，盡管它通常作千位分隔符，但也可以插入格式字符串其他地方。數(shù)字編輯數(shù)據(jù)項目的格式字符串只能包含字符Z、B、0、/、P、V、。如有S則必須是最左邊一個描述符。當(dāng)數(shù)值很大，前面或后面若干位為0，為了節(jié)省內(nèi)存可以用“P”描述符。運(yùn)算時按隱含的小數(shù)點(diǎn)位置對準(zhǔn)進(jìn)行運(yùn)算。數(shù)字?jǐn)?shù)據(jù)只能包含字符9，V，S和P的組合，至少要有一個9，最多18個9，至少一個V和S。01 X PIC X(4).01 Y PIC X(8).01 Z PIC A(5)X9(2).MOVE ’BOOK’ TO XMOVE ’1234’ TO XMOVE ’COBOL85’ TO YMOVE ’COBOL85’ TO Z(C) 字符編輯數(shù)據(jù)（字母數(shù)字）要把字符數(shù)據(jù)格式化成特定形式，則可以用字符編輯數(shù)據(jù)。三. 數(shù)據(jù)部用子句（一）PIC子句PIC是PICTURE的縮寫，PIC子句用來描述每一個基本數(shù)據(jù)項，定義基本項目的具體長度、格式和數(shù)據(jù)類型。（講RENAMES語句時再介紹。（5）66層和88層是特殊層。層次規(guī)定如下：（1）用來描述數(shù)據(jù)的層次結(jié)構(gòu)的層號從01開始，到49結(jié)束，即可用的層號為01~49。 REPORT SECTION.RD EMPLOYEEREPORT PAGE LIMIT 60 LINES HEADING 1 FOOTING 58 FIRST DETAIL 3.二．COBOL數(shù)據(jù)的類型及層次 （一）數(shù)據(jù)類型 （1）numeric（數(shù)字）（2）numericedited（數(shù)字編輯）（3）alphabetic（字母）（4）alphanumeric（字母數(shù)字）（5）alphanumericedited（字母數(shù)字編輯）所有數(shù)據(jù)類型缺省作為字符串存放在內(nèi)存中，唯一可以用不同方式存儲的數(shù)據(jù)類別是數(shù)字型數(shù)據(jù)（通過USAGE子句）。WORKINGSTORAGE SECTION.77 X PIC S99 VALUE 21.01 A PIC 9(08).01 B. 03 B1 PIC X(04). 03 B2 PIC X(02). 03 B3 PIC X(02).3． 連接節(jié)本節(jié)只用于子程序，包含調(diào)用程序傳遞的數(shù)據(jù)（即參數(shù)）。（2） 文件中包括的記錄名。第三章 數(shù)據(jù)部一． 數(shù)據(jù)部的節(jié) 數(shù)據(jù)部包含程序引用的所有數(shù)據(jù)的定義，如文件記錄、變量、表格和報表。SPECIALNAMES. CLASS REALNUMBER IS?。?123456789+.＂可用于類條件測試 DECIMALPOINT IS COMMA. 逗號用作小數(shù)點(diǎn)，句號用作編輯符 CURRENCY SIGN IS “Y”. 表示貨幣符號的字符，DEFAULT$2． 輸入輸出節(jié)輸入輸出節(jié)只用于文件，它把內(nèi)部文件與外部文件（包括外部設(shè)備）聯(lián)系起來。若該段省略，則編譯程序的計算機(jī)是源計算機(jī)。3. 環(huán)境部（ENVIRONMENT DIVISION）環(huán)境部指定程序中與特定計算機(jī)或操作系統(tǒng)相關(guān)的方面，指明用到哪些設(shè)備，哪些文件，將程序中用到的內(nèi)部文件名與外部文件（或外部設(shè)備）聯(lián)系起來。第二章 標(biāo)識部和環(huán)境部一． 標(biāo)識部（IDENTIFICATION DIVISION）（一）必寫部分IDENTIFICATION DIVISION.PROGRAMID. 程序名.（二）任選部分 一般格式： [AUTHOR. 作者姓名][INSTALLATION. 設(shè)計這個程序的公司或部門。例：ZERO ZEROS ZEROES SPACE SPACES HIGHVALUE HIGHVALUES LOWVALUE LOWVALUES QUOTE QUOTES ALL 常量七.?。茫希拢希烫幚頂?shù)據(jù)的特點(diǎn)：　　　層次的概念；記錄和文件的概念。保留字：有300多個。5． 不能用保留字作為用戶定義字和系統(tǒng)名稱，但用戶定義字和系統(tǒng)名稱可以用同一個單詞。 COBOL單字的規(guī)則如下：1． 字長為1~30個字符之間。3．運(yùn)算符和等號左右兩邊必須各留一個空格。4． 12~72列（現(xiàn)在有時廠家規(guī)定可到80列），為“B”區(qū)，過程部中的句子只能從B區(qū)開始書寫。連接符“”表示本行是緊接在上一行的后面。4． 描述體（描述款目）　　　　在數(shù)據(jù)部中有若干個節(jié)，每個節(jié)中有若干個描述體，每個描述體又有若干個子句構(gòu)成。一個句子是以英文句號來結(jié)束的。除標(biāo)識部以外，每個部下可以有若干個節(jié)（SECTION），每個節(jié)以“節(jié)頭”作標(biāo)識。程序中不需要外部文件時，環(huán)境部為空，也可以省略部標(biāo)題。4． 結(jié)構(gòu)嚴(yán)謹(jǐn)，層次分明。COBOL針對商業(yè)世界的使用，是真正商用應(yīng)用程序開發(fā)的首選語言。第一章 關(guān)于COBOL的初步知識一. COBOL語言的特點(diǎn) COBOL是Common BusinessOriented Language（公用面向商業(yè)的語言）的縮寫，主要供數(shù)據(jù)處理、數(shù)據(jù)收集及分析之用。1． 適于數(shù)據(jù)處理領(lǐng)域。5． 缺點(diǎn)是比較繁瑣。DATA DIVISION （數(shù)據(jù)部）程序中所用到的全部數(shù)據(jù)（包括：文件數(shù)據(jù)—用于輸入輸出、靜態(tài)數(shù)據(jù)、參數(shù)等）都應(yīng)在數(shù)據(jù)部中說明它們的類型和所占內(nèi)存的情況。每個節(jié)下又可包括若干段（PARAGRAPH），每個段用“段名”標(biāo)識。句子又由語句（Statement）組成。四． 源程序的書寫格式1． 1~6列，為“序號區(qū)”，為6位整數(shù)序號，不是程序本身的內(nèi)容?！?”或“/”表示本行為注釋行。5． 73~80列，為“注釋區(qū)”。4．逗號，句號，分號的左邊不能留空格，而右邊應(yīng)有空格。2． 只能由字母，數(shù)字和連字符“”組成，第一個和最后一個字符不能用連字符。用戶自定義字：文件、數(shù)據(jù)、標(biāo)號、程序等所取的名稱。如：+、ACCEPT、ADD、BEFORE、DATA。八． 程序文本的復(fù)制與替換操作1. COPY語句COPY語句用COBOL源文本textname替換從COPY字開始到終止句號之前的內(nèi)容。][DATEWRITTEN. 編寫日期，可記入修訂史，修改日期、原因及人員。如果程序不需要任何環(huán)境部提供的項目，則可以省略環(huán)境部。如果指定WITH DEBUGGING MODE 從句，則編譯所有源調(diào)試行，否則把調(diào)試行作為說明語句。它有兩個段：文件控制段：FILECONTROL段是給文件命名，指出存放該文件的外部設(shè)備及其他有關(guān)文件控制信息。COBOL將數(shù)據(jù)部分成節(jié)，每個節(jié)是可選的，但程序中的節(jié)應(yīng)按指定順序定義。（3） 每個記錄中數(shù)據(jù)的層次關(guān)系。LINKAGE SECTION.01 LCMIN. COPY RCI001.01 LCMOT. COPY RCJ001.4． 通信節(jié)通信節(jié)描述作為程序間接口的數(shù)據(jù)和消息控制系統(tǒng)，用以實(shí)現(xiàn)與通信設(shè)備相關(guān)的消息分析的COBOL方法。對數(shù)字型數(shù)據(jù)制訂不同方式存儲，提高計算效率。（2）從屬項的層號比其上屬項的層號高。88層是對特殊數(shù)據(jù)項目條件名保留的。） （三）限定數(shù)據(jù) （四）FILLER關(guān)鍵字 需要定義部分記錄，但這部分在程序中永遠(yuǎn)不會用到，則可用保留字FILLER占有這個記錄部分的位置。01 A. 03 A1 PIC 9999. 03 A2 PIC AAAA. 03 A3 PIC XXXX. (A)字母數(shù)據(jù)字母數(shù)據(jù)限于字母表中使用的字符和空格符，用A描述符表示，每個字符用一個A表示。字符編輯數(shù)據(jù)用特定字符表示格式。1．“9”描述符 表示數(shù)字存放位置, 不能放入空格，不能表示小數(shù)和負(fù)數(shù)。顯示時只顯示內(nèi)存中的內(nèi)容，不顯示小數(shù)點(diǎn)。P只能出現(xiàn)在開頭或末尾，而不能同時在兩處出現(xiàn)。如無S則總是表示為正值。、*、+、CR、DB的組合。 01 W PIC 999,. MOVE TO W 輸出表示： 123，3．“0”描述符表示插入’0’。當(dāng)用“”時，當(dāng)數(shù)值為正時，數(shù)值前空一格，數(shù)值為負(fù)時，加一負(fù)號。01 A1 PIC S9(3)V99.01 A2 PIC ++++.99.01 A3 PIC $$$$.99.01 A4 PIC ++++.++.01 A5 PIC $$$$.$$. 錯誤： 01 A1 PIC +$$.99.8．零抑制格式（取消高位零，用“Z”和“*”描述符）01 A1 PIC S9(3)V99.01 A2 PIC .01 A3 PIC ****.99.(1) 不能同時用Z浮動和+，, $浮動 錯誤： ZZ$$ 或 ++（2）單個的+, , $可以與Z或*連用01 A1 PIC +.01 A2 PIC *(3).99.01 A3 PIC $.（3）如果使“Z”或“*”對應(yīng)與所有的數(shù)字字符，當(dāng)數(shù)值為0時，則所用數(shù)字位全部由空格或*代替。01 A1 PIC $9(3).99DB.01 A2 PIC $.10．PIC子句小結(jié) 描述字符 含義 9 表示一個數(shù)字位置 A 表示一個字母位置 X 表示一個字符位置 V 表示隱含的小數(shù)點(diǎn)位置 S 表示數(shù)值數(shù)據(jù)帶符號 P 表示十進(jìn)比例換算 $ 插入貨幣號 . 插入小數(shù)點(diǎn)位置 ， 插入逗號位置 + 一律加符號 對負(fù)數(shù)加負(fù)號，對正數(shù)前留一空格 Z 取消高位零，用空格代替 * 取消高位零，用*代替 B 插入空格 0 插入零 DB（借方） 數(shù)據(jù)為負(fù)時，在數(shù)據(jù)后面插入DB，為正時，空兩格 CR（貸方） 數(shù)據(jù)為負(fù)時，在數(shù)據(jù)后面插入CR，為正時，空兩格（二） REDEFINES子句REDEFINES子句可以用不同數(shù)據(jù)描述同一計算機(jī)內(nèi)存，適用于基本數(shù)據(jù)項和組數(shù)據(jù)項。當(dāng)進(jìn)行多次重定義，必須緊跟出現(xiàn)，而且要求使用最初定義的數(shù)據(jù)名。（6）使用REDEFINES子句的數(shù)據(jù)項不能使用VALUE子句賦初值。USAGE子句可以用于基本和組數(shù)據(jù)項目。在PIC子句中描述字符9的個數(shù)為1~4時，占內(nèi)存字節(jié)為2；個數(shù)為5~9時，占內(nèi)存字節(jié)為4；個數(shù)為10~18時，占內(nèi)存字節(jié)為8。大多定義為單精度內(nèi)部浮點(diǎn)數(shù)字項，用內(nèi)存4Byte。每個數(shù)字4位或每個字節(jié)表示2個數(shù)字。COMPUTATIONAL4由廠家定義。在支持小尾字節(jié)順序的平臺上,COMP5執(zhí)行速度更快。注：USAGE從句用于組層時作用于組中每個基本項目。符號的具體表示由廠家指定。詳細(xì)內(nèi)容見表格處理。（七）JUSTIFIED子句 JUSTIFIED子句(簡稱