【正文】 TED短語UNSTRING A DELIMITED BY SIZE INTO B, CUNSTRING A DELIMITED BY ’T’ INTO B, CUNSTRING A DELIMITED BY ALL ’’ INTO B, CUNSTRING A DELIMITED BY ALL SPACE OR ’. ’ INTO B, C 2．COUNT短語，將已發(fā)送的字符個數(shù)記入用戶定義的記數(shù)器。STRING A, B, C DELIMITED BY SIZE INTO DSTRING A, B, C DELIMITED BY SPACE INTO D2．POINTER（指針短語），用來指定開始復(fù)制的具體字符位置。否則顯示這個數(shù)據(jù)后輸出設(shè)備復(fù)位到下一行。 ACCEPT 標(biāo)識符 FROM DATE （6字符）DAY （6字符）DAYOFWEEK （1字符）TIME （8字符）2．顯示語句（DISPLAY語句） DISPLAY語句將數(shù)據(jù)寫入輸出設(shè)備。四．輸入輸出語句1．接收語句（ACCEPT語句） ACCEPT語句從輸入設(shè)備讀取數(shù)據(jù)。組合項的傳送是將發(fā)送項的內(nèi)容不加轉(zhuǎn)換地一個字節(jié)一個字節(jié)地順序傳送到接收項。常量ZERO可直接賦值。 　　字母或字符型數(shù)據(jù)間的傳送，按左端對齊，如發(fā)送項長于接收項，則右端多余位截去，如短于接收項，右端補空格。數(shù)據(jù)項的順序也無關(guān)緊要。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ù)運算語句(數(shù)據(jù)項同名時編寫多條語句的縮寫方法。 例： 77 Q PIC S99V9. 77 R PIC S99V9. DIVIDE 3 INTO 7 GIVING Q REMAINDER R Q= R=5．計算語句（COMPUTE語句） COMPUTE語句可以進(jìn)行復(fù)雜的四則運算，也可實現(xiàn)指數(shù)運算。段名不能與節(jié)名重復(fù)。（3） 段（paragraph）：由段名、句號分隔符和零或幾條句子組成。過程部的組件包括語句、句子、段和節(jié)。此時數(shù)據(jù)名1是一組項目。即是說該格式可以更名現(xiàn)有數(shù)據(jù)項或數(shù)據(jù)項組，或以原定以未允許的方式組合。03 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)。數(shù)據(jù)太長時左邊截尾，太短時則左邊填充。 指定SYNCHRONIZED子句時的具體效果由廠家指定。（五）OCCURS子句 OCCURS子句指定數(shù)據(jù)項為固定項目數(shù)或可變項目數(shù)的表格（即數(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ù)字?jǐn)?shù)據(jù)項中符號的位置。）INDEX用法是特殊用法，指定用該項目作為表格索引。COMPUTATIONAL5由廠家定義。COMPUTATIONAL3由廠家定義。大多定義為雙精度內(nèi)部浮點數(shù)字項，用內(nèi)存8Byte。大多選擇與BINARY相同。BINARY、COMPUTATIONAL、PACKEDDECIMAL只用于數(shù)字?jǐn)?shù)據(jù)項。 03 A PIC X(8) VALUE ’ABCDEFGH’. 03 B REDEFINES A.05 B1 PIC X(4). 05 B2 PIC X(4).（三）USAGE子句USAGE子句可以指定計算機內(nèi)存中的數(shù)據(jù)項格式，充分利用計算機內(nèi)存空間和算術(shù)功能。（4）用REDEFINES子句可以改變數(shù)據(jù)的結(jié)構(gòu)，REDEFINES從句定義的區(qū)域長度應(yīng)小于等于原區(qū)域長度。內(nèi)存中的值為數(shù)據(jù)名1和數(shù)據(jù)名2共享。01 A1 PIC .01 A2 PIC ***.**.（4）可與“，”連用 01 A1 PIC Z,.9．插入“DB”和“CR”字符 DB（DEBIT，借方）和CR（CREDIT，貸方）只能用作固定插入，而且只作最后一個描述符號。在編輯型數(shù)據(jù)的描述中，指定浮動插入的字符個數(shù)應(yīng)足夠，以免數(shù)據(jù)被截斷。01 W PIC 9(3).01 V PIC B9(3)B.MOVE 123 TO W.MOVE W TO V.5．“+”或“”描述符表示在輸出的數(shù)值前（或后）加正號或負(fù)號。1．“.”描述符表示插入小數(shù)點的位置，只能在格式字符串中使用一次，不能與V和P同時使用。數(shù)字編輯數(shù)據(jù)可以用于顯示數(shù)字，但所有計算中只能用數(shù)字?jǐn)?shù)據(jù)。 描 述 數(shù)值 內(nèi)存中表示 長度 數(shù)值范圍 01 X PIC 9P(4). 10000 1 1 1~9*10000 01 Y PIC PPP99. 23 2 ~4．“S”描述符 表示一個帶符號的數(shù)，符號不算如項目長度中，除非包括SIGN IS SEPARATE 從句。 描 述 數(shù)值 內(nèi)存中表示 長度 數(shù)值范圍 01 X PIC 99V99. 8750 4 ~ 01 Y PIC 9(3)V9(2). 781 78100 5 ~ 01 Z PIC V999 234 3 01 T PIC 999V 123 123 33．“P”描述符 表示數(shù)據(jù)項的比例因子，不占內(nèi)存，不算進(jìn)項目長度中。 描 述 數(shù)值 內(nèi)存中表示 長度 數(shù)值范圍 01 X PIC 999 123 123 3 0~999 01 Y PIC 9(4) 4567 4567 4 0~9999 01 Z PIC 99 12 2 01 T PIC 99 12 22．“V”描述符 指出在數(shù)據(jù)中隱含的小數(shù)點的位置，不占內(nèi)存，不算進(jìn)項目長度中。01 EDITEDDATE PICTURE IS 99/XXX/9999.MOVE ’05May1909’ TO EDITEDDATE 則EDITEDDATE的值為‘05/May/1909’ (D)數(shù)字?jǐn)?shù)據(jù)數(shù)字?jǐn)?shù)據(jù)由數(shù)字組成，包括其隱含的小數(shù)點和操作符號，表示的是實際數(shù)字值, 可用于數(shù)據(jù)運算。字符數(shù)據(jù)項目的格式字符串可用用A、 X、 9表示，至少要包含一個X,是非數(shù)值類型的，不能用于運算。 如果組項目不需按名稱引用，則可以用FILLER關(guān)鍵字作為數(shù)據(jù)名，不用生成組名，但FILLER組名中定義的每個數(shù)據(jù)項應(yīng)當(dāng)唯一。）66層是用于更明現(xiàn)有數(shù)據(jù)項或數(shù)據(jù)項組。（4）77層項目用于某個組的數(shù)據(jù)項，如程序中的臨時變量。數(shù)據(jù)的層次結(jié)構(gòu)是：記錄—組合項—基本項。5． 報表節(jié)報表節(jié)描述實現(xiàn)COBOL報告編寫工具的系統(tǒng)所需的數(shù)據(jù)。DATA DIVISION. (數(shù)據(jù)部)FILE SECTION. (文件節(jié))FD FILE1. （文件名） LABEL RECORD IS OMITTED DATA RECORD IS STUDENTSCORE. 01 STUDENTSCORE. (記錄名) 03 NAME PIC X(10). 03 NUM PIC 9(06).03 CORUSESCORE.05 CORUSE1 PIC 9(03).05 CORUSE2 PIC 9(03).05 CORUSE3 PIC 9(03).2． 工作存儲節(jié)包含程序所需的臨時結(jié)果和初始化靜態(tài)數(shù)據(jù)的數(shù)據(jù)定義。包括：（1） 文件名和文件屬性。FILECONTROL. SELECT FILE1 ASSIGN TO “”. SELECT FILE2 ASSIGN TO DISK. SELECT FILE3 ASSIGN TO PRINTER. 輸入輸出控制段： IOCONTROL段包含定義程序返回點，不同文件共享的內(nèi)存區(qū)和多文件卷中文件位置的項目。SPECIALNAMES段用于把系統(tǒng)中原規(guī)定的一些設(shè)備名或功能名或符號改為用戶自己指定的名字或符號。SOURCECOMPUTER段標(biāo)識編譯程序的計算機。] 注：標(biāo)識部中的段標(biāo)題只能按部描述中指定的順序出現(xiàn)。替換從REPLACE語句的第一個格式開始，到REPLACE OFF 語句結(jié)束。 例：’abcd’, ’Expired’,3． 象征常量：用保留字表示某些常用常量(直接數(shù))。分為：Computer name、Implementers name、Language name。4． 小寫字母與大寫字母等價。 ’ ” ( ) $空格 ： COBOL單字分三種：保留字、用戶自定義字及系統(tǒng)名稱。2．相鄰的兩個字之間必須留一個以上的空格。3． 8~11列，為“A區(qū)”，部頭，節(jié)頭，段頭，層號01，層號77以及文件描述符FD，程序結(jié)束標(biāo)題等應(yīng)從A區(qū)開始書寫，但不一定從第8列開始寫。2． 第7列，為“指示符區(qū)（續(xù)行標(biāo)志區(qū)）”。 注意：部標(biāo)題、節(jié)標(biāo)題、段名、數(shù)據(jù)項目描述及句子后必須用英文句號結(jié)束，否則程序無法編譯。3． 句子，語句和子句 在過程部中，每一段由若干個句子（Sentence）組成。2． 節(jié)和段 標(biāo)識部下只有各個段。ENVIRONMENT DIVISION （環(huán)境部）列出程序中所用到的文件。3． 通用性強，標(biāo)準(zhǔn)化程度較高。事實上，除了商業(yè)之外，各種管理工作都廣泛使用COBOL,如各種統(tǒng)計工作，財會工作，企業(yè)計劃編制，作業(yè)制度，情報檢索，人事管理等。COBOL自60年代初開始廣泛應(yīng)用于計算機應(yīng)用領(lǐng)域（商業(yè)和其他領(lǐng)域）。2． 采用英語語法的高級語言，可讀性、可維護(hù)性、可移植性較強。二． 最簡單的COBOL程序介紹例１：IDENTIFICATION DIVISION.(標(biāo)識部)PROGRAMID. EXAM1.（程序標(biāo)識段）ENVIRONMENT DIVISION.（設(shè)備部）DATA DIVISION.（數(shù)據(jù)部）PROCEDURE DIVISION.（過程部）A. DISPLAY ‘THIS IS A COBOL PROGRAM.’. STOP RUN.例２：IDENTIFICATION DIVISION.(標(biāo)識部)PROGRAMID. EXAM２.（程序標(biāo)識段）ENVIRONMENT DIVISION.（設(shè)備部）DATA DIVISION.（數(shù)據(jù)部）WORKINGSTORAGE SECTION.(工作單元節(jié))77 A PICTURE IS 9(3).（對Ａ進(jìn)行描述）77 B PICTURE IS 9(3).（對Ｂ進(jìn)行描述）PROCEDURE DIVISION.（過程部）S. ACCEPT A.（輸入Ａ值） ACCEPT B.（輸入Ｂ值）　　ADD A TO B.(A+BB)DISPLAY A,B.（顯示Ａ和Ｂ值） STOP RUN. 三． COBOL程序的結(jié)構(gòu)1． 部每個程序都包括四個部：IDENTIFICATION DIVISION （標(biāo)識部）提供程序的一般性文檔說明，主要用來指定源程序名。PROCEDURE DIVISION （過程部）包含構(gòu)成程序的過程性語句，用來給出程序要執(zhí)行的指令，使計算機產(chǎn)生相應(yīng)的操作。各個段內(nèi)有各種COBOL元素。一個語句中又可以包含若干個子句（Clause）。序號不是必須的，但其所占區(qū)域要保留。“D”表示本行為調(diào)試行。在寫程序時，應(yīng)注意以下幾點：1．大寫或小寫字母均可，習(xí)慣用大寫字母。