【正文】 COBOL語言中數(shù)值型變量種類很多，針對不同的要求有不同的數(shù)值類型。c、在COBOL變量定義時(shí),可以加入格式字符串字符。d、不同類型變量間賦值。 整數(shù) 字符串中數(shù)值部分可以作為對應(yīng)長度的DISPLAY型變量給其它各種數(shù)值型變量。 DISPLAY型變量(包括出力型變量)被賦值時(shí)，超出它表示范圍的數(shù)可以被接受，但截去超出的高位。 COMP型變量被賦值時(shí)，超出它表示范圍的數(shù)不能被接受。 小數(shù) DISPLAY型變量(包括出力型變量)被賦值時(shí)，超出它表示范圍的數(shù)可以被接受，但整數(shù)部截去超出的高位，小數(shù)部截去低位。 COMP型變量被賦值時(shí)，整數(shù)部超出它表示范圍的數(shù)不能被接受，小數(shù)部超出它表示范圍的數(shù)可以被接受，但小數(shù)部截去低位 注: 以上所述賦值變量為任何類型的數(shù)值型變量(經(jīng)過嚴(yán)格測試得出結(jié)論)。 e、字符型比較。 字符串比較時(shí)，系統(tǒng)自動(dòng)截去尾部空格（如 “a “ = “a” ）。 數(shù)字的數(shù)值形式和數(shù)字字符形式相等（如 “1234567890” = 1234567890） 綜合以上兩點(diǎn), 有 “12 “ = 12二、 基本語法:賦值語句MOVE。 a、 將一個(gè)變量賦給另個(gè)變量 move a to b. b、將一個(gè)變量同時(shí)賦給另外兩個(gè)變量。 Move a to b c . c、將一個(gè)變量全部賦為某個(gè)字符 move all “x” to a. d、對于賦值溢出，截取的方式為. 字符型變量截去右邊的溢出部分。 數(shù)值型變量截去整數(shù)部高位、小數(shù)部低位的溢出部分。e、 組和項(xiàng)傳送，它們的數(shù)據(jù)結(jié)構(gòu) 必須相同f、 對于組合項(xiàng)成員的局部引用，應(yīng)該如下: ０１ AAREA. 　　 05 STR1 PIC X(10). 　　 05 STR2 PIC X(10). ０１ BAREA. 　　 05 STR1 PIC X(20). 　　 05 STR2 PIC X(10).MOVE STR1 OF AAREA(1:4) TO STR1 OF BAREA(1:4).顯示語句DISPLAY a. 向控制臺打印顯示的信息(如果程序基于opentp1環(huán)境,該信息將寫到opentp1的log文件中).DISPLAY “DISPLAY RESULT：” STR1 “@@”. b、輸出一個(gè)環(huán)境變量名。 DISPLAY WKENVNAME UPON CNSENVNAME. 接受語句ACCEPTa、 接受從控制臺上的輸入值。b、 接受環(huán)境變量值。ACCEPT WKENVPARM FROM CNSENVPARMON EXCEPTION NOT ON EXCEPTION ENDACCEPT. 四則運(yùn)算原則上,四則運(yùn)算不用助記符語句,但對于簡單運(yùn)算( ++,),可采用助記符語句。a、 加法( ADD 1 TO NUM1)b、 減法(SUBTRACT 1 FROM NUM1)c、 其它所有運(yùn)算均采用COMPUTE 語句COMPUTE NUM1 = NUM2 + NUM3 * 10 運(yùn)算符如下: + 加 減* 乘/ 除** 指數(shù) 在COMPUTE語句中,變量和運(yùn)算符間至少留有一個(gè)空格。 重定義語句REDEFINES(數(shù)據(jù)部中使用) 01 A PIC X(10) VALUE SPACE.01 B REDEFINES A PIC 9(10). 變量A,B使用同一個(gè)空間，重定義時(shí)，重定義變量必須緊跟著被重定義變量后面，并且在字符串同數(shù)值一起重定義時(shí),如果對變量進(jìn)行初始化，變量會(huì)初始化為空格。 數(shù)組關(guān)鍵詞OCCURS OCCURS 整數(shù) TIMES. 01 A OCCURS 10 PIC X(30). b. 組合項(xiàng)數(shù)組01 A.05 B OCCURS 10. 10 C PIC X(10). 10 D PIC X(20). 注意：引用數(shù)組中某一元素如下 DISPLAY C OF B(1) OF A. 檢查替換語句INSPECT. INSPECT A TALLYING N FOR ALL ‘X’. 計(jì)算字符串A中含有‘X’字符的個(gè)數(shù)，結(jié)果賦給N. INSPECT A REPLACING ALL ‘X’ BY ‘A’. 將字符串A中所有的‘X’字符用‘A’代替. 連結(jié)語句STRING STRING A, B, C DELIMITED BY SIZE INTO D . 將字符串A, B, C按它們定義長度連接賦給變量D. STRING A, B, C DELIMITED BY SPACE INTO D . 將字符串A, B, C連接賦給變量D,去掉中間所有的空格. STRING “AAAAAAA” DELIMITED BY SIZE “BBBBBBB ” DELIMITED BY SIZE B DELIMITED BY SIZE INTO D .將字符串和字符串變量連接賦給變量D. IF語句IF 語句包含以下三種: IF ( 條件 ) THEN語句 （無 “.”結(jié)束）ENDIF. IF ( 條件 ) THEN語句 （無 “.”結(jié)束）ELSE語句 （無 “.”結(jié)束）ENDIF. IF ( 條件 ) THEN語句 （無 “.”結(jié)束）ELSEIF ( 條件 ) THEN語句 （無 “.”結(jié)束）ENDIF ENDIF. 注: IF 語句最多只能使用三層嵌套,條件用括號括起來。10 關(guān)系運(yùn)算符助記符運(yùn)算符 含義IS GREATER THAN大于IS LESS THAN小于IS EQUAL TO=等于 IS NOT GREATER THANNOT =小于等于IS NOT LESS THANNOT =大于等于IS NOT EQUAL TONOT =不等于注: 判斷字符串能否轉(zhuǎn)換為數(shù)字。A1 IS NUMERICA1 IS NOT NUMERIC1PERFORM 語句 PERFORM XXXRTN. 調(diào)用子節(jié)，直到遇到第一個(gè)只包含EXIT語句的段中止，回到該調(diào)用語句的下一條語句。 EXIT只與它搭配有效。 所以節(jié)的定義規(guī)定如下: XXXRTN SECTION. 語句塊 XXXEXT. EXIT. PERFORM XXXRTN N TIMES. 循環(huán)調(diào)用子節(jié)N次 PERFORM XXXRTN UNTIL N 30. 循環(huán)調(diào)用子節(jié)，直到N 大于30。PERFORM UNTIL 表達(dá)式 語句 ENDPERFORM. 循環(huán)調(diào)用語句塊,表達(dá)式判斷在語句塊前進(jìn)行。 PERFORM VARYING X FROM A BY B UNTIL X 12 語句 ENDPERFORM. 循環(huán)調(diào)用語句塊,相當(dāng)于FOR 循環(huán)。1EVALUATE 語句EVALUATE 變量、常量、表達(dá)式 WHEN ANY TRUE FALSE (NOT) 常量1 THRU (THROUGH) 常量2 WHEN OTHER .END – EVALUATE ANY ：任何變量、常量值 TRUE、FALSE ：關(guān)系表達(dá)式的結(jié)果 (NOT) 常量1 THRU (THROUGH) 常量2: 值(不)在常量1和常量2 構(gòu)成的閉區(qū)間 另外，在WHEN 后面可以包含簡單的關(guān)系表達(dá)式。 如: EVALUATE A WHEN = 10