【正文】 EXEC. 主變量都必須定義在這里，具體定義和一般的COBOL變量一樣。 SQL語句中，只能用STRING. 從表中得到值時，STRINGLEN 自動被賦值。四、 數(shù)據(jù)部中SQL語句的基本語法1）、錯誤撲獲 ORACLE錯誤撲獲是一個全局性的標(biāo)志，在一個事務(wù)(在PRO*COBOL中，ORACLE事務(wù)以COMMIT或ROLLBACK為分割點)中，后一個錯誤撲獲會覆蓋前一個錯誤撲獲設(shè)置。 遇到SQL錯誤(SQLCODE 0 )跳轉(zhuǎn)EXEC SQL WHENEVER SQLERROR GOTO ORAERROR ENDEXEC. 2）、 數(shù)據(jù)連接 數(shù)據(jù)庫連接在一般的項目開發(fā)中用不到，只用于測試程序ドラバ中(不連接外部數(shù)據(jù)庫) 多條記錄的檢索（CURSOR 游標(biāo)） 游標(biāo)中記錄的抽取 EXEC SQL FETCH CUR_NAME INTO : HSTMSGCD , : HSTMSG1,: HSTMSG2 ENDEXEC. 游標(biāo)中記錄的抽?。簩⒂螛?biāo)中的記錄抽取到相應(yīng)的主變量中，一次抽取一條。 事務(wù)的提交 方式二（不釋放連接） EXEC SQL COMMIT WORK ENDEXEC. SELECT 1403 : 沒有檢索到記錄 UPDATE 1403 : 沒有更新的記錄 60 : 死鎖 2049: 由于死鎖導(dǎo)致系統(tǒng)超時 INSERT 1 : 插入的記錄已存在 60 : 死鎖 2049: 由于死鎖導(dǎo)致系統(tǒng)超時 方式一 MOVE INSERT INTO DYN1 VALUES (39。 方式二EXEC SQL EXECUTE IMMEDIATE INSERT INTO DYN1 VALUES (39。 DELIMITED BY SIZE EMPNO DELIMITED BY SIZE 39。 動態(tài)三(用于檢索SQL語句) 方式二(不帶參數(shù)) STRING SELECT ENAME FROM DELIMITED BY SIZE EMP WHERE DEPTNO = 39。 以HP UNIX 為操作系統(tǒng) 以 ORACLE SERVER 為數(shù)據(jù)庫系統(tǒng) 二、通信處理方式 Compla項目采用兩種處理方式RPC(同步),MQ(異步). Compla項目就是制作若干SPP,常駐于OPENTP1中，供其它系統(tǒng)調(diào)用。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. CALL 39。CBLDCADM39。WSISPPSV39。注意在SUP程序中調(diào)用前必須指定入力データ的長度（INDATALENG）和出力データ的長度（OUTDATALENG） CLOSE 39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. CALL 39。. 02 STATUSCODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO.CALL 39。CLOSE 39。 入力データ　　　　 INPUTDATA INPUTDATALENGTH 出力データ OUTPUTDATA OUTPUTDATALENGTH (データ、データ長度的位置關(guān)系和SUP中RPC CALL的データ、データ長度的位置關(guān)系不同) entry “SPP SEVICE NAME ”。 將編輯好的ユーザーサービス定義ファイル以betran50用戶置于/opt/betran50/conf內(nèi) 可以使用以下命令啟動，停止等服務(wù)。 ユーザーサービス定義ファイル(文件名不帶任何后綴，并且不超過8個字母) SPP ユーザーサービス定義ファイル　　　　　　set module = SPPMDset service_group = SPPGPset service = SPPSV1=SPPSV1P,SPPSV2=SPPSV2P CBLDCRPC39。 USING ADMARG. 該SPP MODULE 中所有的SPP SERVICE 都完成初始化(完成數(shù)據(jù)部前的運行)，進(jìn)入監(jiān)視狀態(tài)。 USING RPCOPARG. 進(jìn)入OPENTP1環(huán)境 RPC MAINLOOP (SPPのサービス開始) 01 RSVARG. 02 REQUEST PIC X(8) VALUE 39。 SPP MAIN RPC　OPEN (アプリケーションプログラムの開始) 01 RPCOPARG. 02 REQEST PIC X(8) VALUE 39。一個SPP Module 在OPENTP1下以一個組的方式注冊。CBLDCRPC39。CBLDCRPC39。CALL 39。（不常駐OPENTP1下的SUP程序不調(diào)用該函數(shù)） COMPLETE39。 USING RPCOPARG. 進(jìn)入OPENTP1 環(huán)境 RPC　OPEN (アプリケーションプログラムの開始) 01 RPCOPARG. 02 REQEST PIC X(8) VALUE 39。 以MQ SERVER(INFOR STAR MQ ,IBM MQ的改造品)完成異步通信方式。 DELIMITED BY SIZEINTO DYNSTMT.EXEC SQL DECLARE C CURSOR FOR S ENDEXEC.EXEC SQL OPEN C ENDEXEC.EXEC SQL FETCH C INTO :ENAME ENDEXEC.EXEC SQL CLOSE C ENDEXEC. 所有的檢索SQL語句都必須采用游標(biāo)方式。 方式一(帶參數(shù)) MOVE SELECT ENAME FROM EMP WHERE DEPTNO = :V1TO DYNSTMT.EXEC SQL PREPARE S FROM :DYNSTMT ENDEXEC.EXEC SQL DECLARE C CURSOR FOR S ENDEXEC.EXEC SQL OPEN C USING :DEPTNO ENDEXEC.EXEC SQL FETCH C INTO :ENAME ENDEXEC.EXEC SQL CLOSE C ENDEXEC. DELIMITED BY SIZE DEPTNO1 DELIMITED BY SIZE 39。)ENDEXEC. 動態(tài)一：只用于沒有任何參數(shù)和返回結(jié)果的SQL語句操作 ) TO DYNSTMT.EXEC SQL EXECUTE IMMEDIATE :DYNSTMT ENDEXEC. 動態(tài)一（直接執(zhí)行SQL字符串） DELETE 1403 : 沒有刪除的記錄 60 : 死鎖 2049: 由于死鎖導(dǎo)致系統(tǒng)超時 FETCH（游標(biāo)中記錄的抽取） 1403 : 游標(biāo)指針FETCH到游標(biāo)的尾部