cobol基本語法總結(編輯修改稿)

　

【文章內容簡介】 EVALUATE B WHEN = 1 OR = 2 OR = 3 語句 WHEN OTHER 語句 ENDEVALUATE WHEN OTHER 語句 ENDEVALUATE. 1另外,不同的COBOL系統提供了不同內部函數，建議少用內部函數，以下提供幾個通用的內部函數 ORD 取得字符的ASICII碼 如： MOVE FUNCTION ORD (“A”) TO NUMBER.? UPPERCASE 字母小寫轉換成大寫 如： MOVE FUNCTION UPPERCASE (STRING(START:1)) TO STRING(START:1) LOWER CASE 字母小寫轉換成大寫 如： MOVE FUNCTION LOWERCASE (STRING(START:1)) TO STRING(START:1) REVERSE 對字符串中所有字符進行倒序 如： MOVE FUNCTION REVERSE(STRING1) TO STRING LENGTH 取得變量的定義長度，如： COMPUTE LEN = FUNCTION LENGTH(STRING)二、PRO*COBOL基本語法 COMPLA使用的PRO*COBOL是ORACLE公司提供的在COBOL程序中嵌入SQL語句的一種方法，使得程序方便地訪問操作ORACLE數據庫；PRO*COBOL程序經過ORACLE提供的預編譯器預編譯生成中間COBOL程序后，程序中所有的SQL語句直接調用ORACLE庫函數，再經過COBOL編譯器同一般COBOL程序一樣編譯生成各種可執行模塊,由于程序中直接調用ORACLE庫函數，所以它們訪問操作ORACLE數據庫的速度很快，基本語法如下。一、特點。 所有的SQL或數據庫操作相關語句均被括在” EXEC SQL” 和 “ENDEXEC”之間，并且它們只能包含一條語句，如: EXEC SQL SQL語句 ENDEXEC. 所有訪問操作數據庫的變量都必須是主變量。 “EXEC SQL” ，”ENDEXEC’及其包含的語句都必須從12列或12列以后開始。三、 數據部內容。 引用兩個對象SQLCA, ORACA.EXEC SQL INCLUDE SQLCA ENDEXEC.EXEC SQL INCLUDE ORACA ENDEXEC. 主變量定義。 EXEC SQL BEGIN DECLARE SECTION ENDEXEC. （主變量定義開始） EXEC SQL END DECLARE SECTION ENDEXEC.（主變量定義結束） 主變量都必須定義在這里，具體定義和一般的COBOL變量一樣。 VARCHAR型變量(可變長度). : 05 STRING PIC X(100) VARYING. 它實際包含兩部分(預編譯后的中間COBOL程序可見) 05 STRING. 06 STRINGLEN PIC S9(4) COMP. 06 STRINGARR PIC X(100). STRINGLEN 表示字符串的實際長度，STRINGARR 表示字符串的實際內容。 SQL語句中，只能用STRING. 從表中得到值時，STRINGLEN 自動被賦值。 向表中寫入值時，STRINGLEN 需要手工指定長度，SQL將STRING(1:STRINGLEN)部分有效字符串寫到表中。 定義主變量時，引用COPY句: EXEC SQL INCLUDE ENDEXEC. 游標的定義可以放在數據中。四、 數據部中SQL語句的基本語法1）、錯誤撲獲 ORACLE錯誤撲獲是一個全局性的標志，在一個事務(在PRO*COBOL中，ORACLE事務以COMMIT或ROLLBACK為分割點)中，后一個錯誤撲獲會覆蓋前一個錯誤撲獲設置。 遇到SQL警告(SQLCODE 0 )繼續EXEC SQL WHENEVER SQLWARNING CONTINUE ENDEXEC. 遇到SQL錯誤(SQLCODE 0 )繼續EXEC SQL WHENEVER SQLERROR CONTINUE ENDEXEC. 遇到SQL錯誤(SQLCODE 0 )跳轉EXEC SQL WHENEVER SQLERROR GOTO ORAERROR ENDEXEC. 2）、 數據連接 數據庫連接在一般的項目開發中用不到，只用于測試程序ドラバ中(不連接外部數據庫) 方式一（USERNAME 和PASSWORD分開,如：USERNAME = “OPS$LAPROC51” PASSWORD = “LAPROC”）EXEC SQL CONNECT :USERNAME IDENTIFIED BY :PASSWDENDEXEC. 方式二（USERNAME 和PASSWORD合并,如：UID = “OPS$LAPROC51/LAPROC”）EXEC SQL CONNECT :UIDENDEXEC.3）、 靜態SQL語句 單條記錄的檢索EXEC SQL SELECT ENAME, SAL,COMMINTO :HSTEMPNAME,:HSTSALARY,:HSTCOMMISSION:HSTCOMMINDFROM EMPWHERE EMPNO = :HSTEMPNUMBERENDEXEC. 注: 上例中的COMMIND為指示變量,在檢索操作中每個接受主變量都可指定一個指示變量(9(04) COMP型)，它用來判斷主變量是不是接受到一個空值(NULL)（主變量不能接受空值），當指示變量為1時，表示對應的主變量應該接受到一個空值（主變量自己表示不出來） 多條記錄的檢索（CURSOR 游標） 游標的定義 EXEC SQL DECLARE CUR_NAME CURSOR FOR SELECT MSG_CD , MSG_1,MSG_2 FROM WWWTMSG1 ENDEXEC. 游標的定義：將SQL查詢語句聲明為一個游標，不調用ORACLE庫函數，不會更新SQLCODE的值。 游標的打開 EXEC SQL OPEN CUR_NAME ENDEXEC. 游標的打開：用游標定義的SQL語句檢索數據庫，將檢索結果生成一個游標對象，(此時游標指針在第一條記錄前一位置，無法確定游標中有沒有記錄)。 游標中記錄的抽取 EXEC SQL FETCH CUR_NAME INTO : HSTMSGCD , : HSTMSG1,: HSTMSG2 ENDEXEC. 游標中記錄的抽取：將游標中的記錄抽取到相應的主變量中，一次抽取一條。 游標的關閉 EXEC SQL CLOSE CUR_NAME ENDEXEC. 游標的關閉: 將現有的游標對象釋放，游標再次打開前，必須關閉。 更新 EXEC SQL UPDATE WWWTMSG1 SET MSG_1 = : HSTMSG1, MSG_2 = : HSTMSG2 WHERE MSG_CD = : HSTMSGCD ENDEXEC. 刪除 EXEC SQL DELETE FROM WWWTMSG1 WHERE MSG_CD = : HSTMSGCD ENDEXEC 插入