【正文】 コボル基本語法コボル基本語法一、COBOL基本語法 pla項目使用的Cobol是Micro Focus 公司生產(chǎn)的Cobol,采用在HPUNIX上運(yùn)行。一、cobol的書寫格式（每行） 前6列為序號區(qū)(一般不編輯) 第7列為標(biāo)示列，僅可以寫如下幾個標(biāo)示符。a. “＊” 注釋符(注釋當(dāng)前行的代碼)b “/“ 注釋符(注釋當(dāng)前行的代碼,程序編譯時，強(qiáng)制程序清單另起一頁,不建議使用) c “－“ 字符串連接符 d “D” DEBUG行標(biāo)示符(程序?yàn)镈EBUG模式時，標(biāo)有該標(biāo)示符的語句行代碼執(zhí)行，否則和注釋行效果一樣) 第8列11列為A區(qū)，包括以下內(nèi)容。 a 部、節(jié)名。 b 層號01 第12列72列為B區(qū)，過程部的程序必須寫在B區(qū)中。 第72以后部分不能編輯。二、cobol的語法結(jié)構(gòu) (幾大部分) 標(biāo)示部(IDENTIFICATION DIVISION):提供程序的一般性文檔說明,本項目只保留程序名(PROGRAMID)一項。 環(huán)境部(ENVIRONMENT DIVISION): 提供程序外部有關(guān)的項目。a. 配置節(jié)(CONFIGURATION SECTION)①.指定源計算機(jī)(SOURCECOMPUTE).②.目標(biāo)計算機(jī)(OBJECTCOMPUTE).③.設(shè)置debug模式(SOURCECOMPUTE H9000V WITH DEBUGGING MODE)④. 指定讀環(huán)境變量設(shè)置. SPECIALNAMES. ENVIRONMENTVALUE IS CNSENVPARM ENVIRONMENTNAME IS CNSENVNAME.b. 輸入輸出節(jié)(INPUTOUTPUT SECTION). 文件的物理路徑的定義。 方法一：(寫死文件路徑) SELECT FILELOG ASSIGN /usr3/WSI/monlog/ ORGANIZATION IS LINE SEQUENTIAL. 方法二:(過程部中動態(tài)指定文件) SELECT FILELOG ASSIGN TO SELECTFILE ORGANIZATION IS LINE SEQUENTIAL. 在數(shù)據(jù)部定義字符串變量SELECTFILE,在文件FILELOG打開前動態(tài)指定文件路徑。 方法三:(環(huán)境變量中動態(tài)指定文件) SELECT FILELOG ASSIGN TO EXTERNAL EXTFILELOG ORGANIZATION IS LINE SEQUENTIAL. 在該程序運(yùn)行前，設(shè)置環(huán)境變量: setenv dd_ EXTFILELOG /usr3/WSI/nco035/lsc/tstlog/ 數(shù)據(jù)部(DATA DIVISION)。 程序中的變量都在數(shù)據(jù)部中定義，Cobol中沒有全局變量和局部之分。（）a. 文件節(jié)(FILE SECTION) 給環(huán)境部定義的文件指定一個RECORD變量，讀寫文件用: FD FILELOG. 01 RECORDLOG PIC X(2000). b. 工作存儲節(jié) 定義程序中用到的臨時變量。a) COBOL變量定義需要加層號(表示層次關(guān)系), 層號從01開始 如: 01 I PIC X(10). 組合項 如: 01 WORKAREA. 05 NUM1 PIC 9(09). 05 STR1 PIC X(10). b) 層號依次排列順序?yàn)?01 ,05,10,15,20,30 c. 連接節(jié)子程序的參數(shù)的定義。 過程部(PROCEDURE DIVISION) 程序的主體:程序的邏輯運(yùn)算在此操作。a、 每個程序分為四大節(jié)(模塊), 前處理(初始化變量,設(shè)定初始值等) 主處理(程序業(yè)務(wù)處理部分) 后處理(程序正常結(jié)束時的出口) 錯誤處理(程序異常結(jié)束時的出口)b、 對于子程序，PROCEDURE DIVISION 后應(yīng)列出LINK節(jié)中定義的參數(shù)。如: PROCEDURE DIVISION USING LINKINPUTDATA LINKOUTPUTDATA.c、 程序結(jié)束。 主程序 STOP RUN. 子程序 GO BACK.變量類型COBOL程序的基本變量類型分為兩大類字符串型(X)、數(shù)值型(9)。a 字符串型 01 STRINGA PIC X(100). 100個字符長的變量，程序可以局部操作一個變量( STRINGA(start: length)如： MOVE ALL “X” TO STRINGA(2:10) (將變量STRINGA第2位開始10長度的內(nèi)容全賦為”X”字符) b 數(shù)值型 種類類型說明備注DISPLAY9(m)無符號整數(shù)，每位占用一個字節(jié)，顯示或輸出到文件時，為零的數(shù)位顯示”0”(1=m =18)例如: 01 I PIC 9(8).變量I占用8個字節(jié)。I = 1 時，輸出顯示時為00000001S9(m)帶符號整數(shù)，每位占用一個字節(jié)，符號位不占位，顯示時，為零的數(shù)位顯示”0”，符號顯示在最后，輸出到文件時，為零的數(shù)位顯示”0”，符號丟失。(1=m =18)例如: 01 I PIC S9(8).變量I占用8個字節(jié)。I = 1 時，顯示時為00000001+輸出到文件時為00000001DISPLAY9(m)V9(n)無符號小數(shù)(小數(shù)點(diǎn)不顯示，不占位)每位占用一個字節(jié)，顯示或輸出到文件時，為零的數(shù)位顯示”0”(1=m + n =18)例如: 01 I PIC 9(4)V9(2).變量I占用6個字節(jié),整數(shù)位4位，小數(shù)位2位。I = 時，輸出顯示時為000110S9(m)V9(n)帶符號小數(shù)(小數(shù)點(diǎn)不顯示，不占位)每位占用一個字節(jié)，符號位不占位，顯示時，為零的數(shù)位顯示”0”，符號顯示在最后，輸出到文件時，為零的數(shù)位顯示”0”，符號丟失。 (1=m + n =18)例如: 01 I PIC S9(4)V9(2).變量I占用6個字節(jié),整數(shù)位4位，小數(shù)位2位。I = 時，顯示時為000110+輸出到文件時為000110出力+Z(m)帶符號整數(shù)，每位占用一個字節(jié)，符號位占位，顯示和輸出到文件時，為零的高位顯示為空格,正數(shù)時，符號位為”+”負(fù)數(shù)時，符號位為””(1=m =18)例如: 01 I PIC +Z(4).變量I占用5個字節(jié),I = 1 時， 輸出顯示時為+ 1I = 1 時，輸出顯示時為 1Z(m)帶符號整數(shù)，每位占用一個字節(jié)，符號位占位，顯示和輸出到文件時，為零的高位顯示為空格,正數(shù)時，符號位為空格負(fù)數(shù)時，符號位為””(1=m =18)例如: 01 I PIC Z(4).變量I占用5個字節(jié),I = 1 時， 輸出顯示時為 1I = 1 時，輸出顯示時為 1+Z(m).Z(n)帶符號小數(shù)，每位占用一個字節(jié)，符號、小數(shù)點(diǎn)占位，顯示和輸出到文件時，整數(shù)部為零的高位顯示為空格，小數(shù)部為零的低位顯示為0；正數(shù)時，符號位為”+” 負(fù)數(shù)時，符號位為””(1=m +　n =18)例如: 01 I PIC +Z(4).Z(2)變量I占用8個字節(jié),I = 時，輸出顯示時為+ I = 時，輸出顯示時為 Z(m).Z(n)帶符號小數(shù)，每位占用一個字節(jié)，符號、小數(shù)點(diǎn)占位，顯示和輸出到文件時，整數(shù)部為零的高位顯示為空格，小數(shù)部為零的低位顯示為空格；正數(shù)時，符號位為”+” 負(fù)數(shù)時，符號位為””(1=m +　n =18)例如: 01 I PIC Z(4).Z(2)變量I占用8個字節(jié),I = 時， 輸出顯示時為 I = 1 時，輸出顯示時為 Comp,p5,p39(m) p5無符號整數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和9(m) 一樣，不能出力(1= m =18) S9(m) p5有符號整數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和S9(m) 類似，只是符號在前面，不能出力，(1= m = 18) 9(m)v9(n) p5無符號小數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和9(m)v9(n) 一樣，不能出力(1= m + n =18) S9(m)v9(n) p5有符號整數(shù)，數(shù)據(jù)以二進(jìn)制方式存貯，顯示和S9(m)v9(n) 類似，只是符號在前面，不能出力，(1= m + n = 18) 注： 對于出力型數(shù)值變量,可以用9代替Z,它們的區(qū)別是：結(jié)果為零的整數(shù)部高位： Z型變量用空格顯示，9型變量用零顯示