【正文】 PrintStatus(statusbuf)。 do{ EXEC SQL FETCH c1 INTO :Usr_name, :Dev_no, :Call_flg, :Called_arno, :Called_no, :Call_dat, :Call_dur, :Call_rate, :Call_fee, :Add_fee。 /*可省略 */ EXEC SQL DECLARE c1 CURSOR FOR SELECT , , , , , , , , , FROM auto10a_list, bas_infot WHERE ( = ) AND = :as_dev_no。039。 double Add_fee。 char Dev_no[9]。 △ 平臺(tái)數(shù)據(jù)移植問(wèn)題，不必考慮高低位轉(zhuǎn)換和對(duì)齊方式。在隨 EasyCICS 發(fā)行的 CD上有所有開(kāi)發(fā)工具的示例源程序。 ESQL的源文件可以通過(guò)數(shù)據(jù)庫(kù)的預(yù)編譯工具編譯成一般的 C 源文件，這一點(diǎn)和使用 CICS API 相同。所以，針對(duì)不同的數(shù)據(jù)庫(kù)，要定義不同的 XA 文件 (switch load file)。 CICS API 在 RS6000、 AS400、 VSE/ESA、HPUX、 Solaris、 OS2 和 Windows NT 上的實(shí)現(xiàn)基本相同，所以很容易移植。在本章的后續(xù)部分，我們將解析一個(gè)更加健全的例子，并展示 13 種常用開(kāi)發(fā)工具訪(fǎng)問(wèn) CICS 的編程方法。 RsOpen 方法用于打開(kāi)結(jié)果集。 程序首先創(chuàng)建了 的類(lèi)實(shí)例對(duì)象，并執(zhí)行了類(lèi)的 ConnectServer方法。 } catch(ResultSetErrorException re){ (())。 i = rc。 ()。RsFetchRow 方法用于取出結(jié)果集的一行，而 RsGetCol 方法用于取出當(dāng)前行的一列值。在這里， ‖NO‖是關(guān)鍵字。所有返回的值經(jīng)格式化后寫(xiě)到屏幕上。注意所謂關(guān)鍵字是用戶(hù)隨意定義的，但最好客戶(hù)程序和服務(wù)程序能相互匹配，如果沒(méi)有通過(guò) SetValue 函數(shù)設(shè)置某關(guān)鍵字的值就直接調(diào)用 GetValue 函數(shù)取此關(guān)鍵字的值，則取出空字符串。 printf( , )。 cc = RsGetColNum()。cr )。 include /* */ void main(){ 16 int i, j, rc, cc, r。 程序最后在關(guān)閉游標(biāo)后調(diào)用了 ExitEasyCics 函數(shù)，注意在任何情況下退出CICS 服務(wù)程序，必須調(diào)用該函數(shù)。再調(diào)用了 BeginWrite 函數(shù)，表示開(kāi)始寫(xiě)通信用的公共數(shù)據(jù)區(qū)，它的真正作用是清除該公共數(shù)據(jù)區(qū)。 } 清單 2111 (簡(jiǎn)化 ) 清單 2111 所示的程序可以用于 CICS for NT，訪(fǎng)問(wèn) DB2 數(shù)據(jù)庫(kù)。 sprintf( s, %, Call_fee )。 RsSetCol( 3, s )。 /*可省略 */ EXEC SQL DECLARE c1 CURSOR FOR SELECT , , , , , , , , , FROM auto10a_list, bas_infot WHERE ( = ) AND = :as_dev_no。 char as_dev_no[9]。 long Call_flg。 PrintStatus(statusbuf)。 sprintf( s, %, Add_fee )。 RsSetCol( 5, Called_no )。 sprintf( statusbuf, %s,%s,%d,%s,%s,%s,%,%,%,%165。n, )。 11 RsCreate(10)。 Value[Num1] = 39。 double Call_rate。 EXEC SQL BEGIN DECLARE SECTION。 JAVA 也不需要 makefile 之類(lèi)的東西，而且可以不用重新編譯，就移植到各種操作系統(tǒng)平臺(tái)上。 程序在 [B]處執(zhí)行了類(lèi)的 ConnectServer 方法。注意，可以通過(guò)多個(gè)SetValue 和 GetValue 函數(shù)來(lái)傳遞多個(gè)字符串值。這個(gè)程序采用 EasyCICS 組件。該函數(shù)的第一個(gè)參數(shù)是 CICS 的系統(tǒng)名稱(chēng)，相當(dāng)于 CICS 域 (Region)的連接字符串；函數(shù)的后兩個(gè)參數(shù)分別是 CICS的用戶(hù)名稱(chēng)和口令。 程序在 [D]處調(diào)用了 ExitEasyCics 函數(shù)，任何情況下退出 CICS 服務(wù)程序，必須調(diào)用該函數(shù)。ExitEasyCics 函數(shù)的作用是退出 CICS 服務(wù)程序，并把返回信息傳給客戶(hù)程序。 //[D] } catch(ServerErrorException se){ //[E] (())。 } 清單 212 以下是運(yùn)行結(jié)果： D:165。aclock )。正在公司的編程高手們紛紛摩拳擦掌，準(zhǔn)備大干一場(chǎng)時(shí)，一個(gè)初級(jí)的 CICS 程序員突然宣布他已在 5 分鐘內(nèi)完成了任務(wù)，并將得到一筆可觀的報(bào)酬 —— 有這種好事嗎？那我們不妨就來(lái)看看 GETTIME 的 CICS 解決方案。不過(guò)，這里提供了幾乎所有常用的前端開(kāi)發(fā)工具作為 CICS 客戶(hù)的例子，也許這正是您所需要的，那么，請(qǐng)認(rèn)真閱讀后面的內(nèi)容。如果您原來(lái)靠游泳過(guò)河，那我教您一種劃船過(guò)河的方法，這條船就是中間件 CICS—— 當(dāng)然您不能靠劃船的經(jīng)驗(yàn)來(lái)驅(qū)動(dòng)它， CICS 需要的是 —— 編程。是的，如果不考慮價(jià)格因素，用 CICS 去實(shí)現(xiàn)許多一般的服務(wù)程序可是個(gè)省事的好辦法。 /* [B] */ time( amp。 /* [A] */ CallProgramAndCommit(GETTIME)。 //[A] (CICSNT01, TEST, TEST)。 我們先來(lái)分析一下服務(wù)程序，就是清單 211 展示的 C 程序。在這里， ‖TIME‖是關(guān)鍵字，日期和時(shí)間字符串 (由 asctime 函數(shù)獲得 )是值。請(qǐng)參照如下插圖： 圖 212 (選擇管理界面程序 ) 6 圖 213 (在 CICS 域中選擇 program 資源設(shè)置 ) 圖 214 (program 資源設(shè)置 ) 7 圖 21 5(program 資源設(shè)置 ) 當(dāng)然，也可以使用如下指令 (注意大小寫(xiě) )： cicsadd c pd r CICS 域名 你的程 序名 (GETTIME) PathName=路徑 RSLKey=public 再看看 ANSI C 的客戶(hù)程序，就是清單 212 展示的 C 程序。另外，如果客戶(hù)機(jī)方面調(diào)用 SetValue 函數(shù)，而服務(wù)器方面調(diào)用 GetValue 函數(shù)也完全可以。 程序在 [C]處執(zhí)行了組件的 CallProgramAndCommit 方法，我們一般使用此函數(shù)來(lái)調(diào)用服務(wù)程序 (Program)。 最后，我們研究一下 JAVA 的例子。注意，可以通過(guò)多個(gè)SetValue 和 GetValue 函數(shù)來(lái)傳遞多個(gè)字符串值。那么，這個(gè)例子實(shí)現(xiàn)什么功能？ TELECOM 的客戶(hù)程序向服務(wù)程序提供一個(gè)移動(dòng)電話(huà)設(shè)備號(hào)碼，服務(wù)程序 9 根據(jù)這個(gè)號(hào)碼查出相關(guān)的計(jì)費(fèi)單據(jù)后返回給客戶(hù)程序，客戶(hù)程序立即顯示此單據(jù)。 char Called_no[15]。 /*****************************************************************************/ /*Functions*/ /*****************************************************************************/ /* */ void GetValueNum(char *Key, char *Value, int Num){ char s[4096]。 /*Read:*/ GetValueNum( NO, as_dev_no, sizeof(as_dev_no) )。 PrintStatus(statusbuf)。 PrintStatus(statusbuf)。 sprintf( s, %lu, Call_flg )。 RsSetCol( 8, s )。 /*ifdef( SYBASE ) EXEC SQL DEALLOCATE CURSOR c1。 EXEC SQL BEGIN DECLARE SECTION。 double Call_rate。 /*Write:*/ BeginWrite()。 RsSetCol( 1, Usr_name )。 RsSetCol( 7, s )。 }while(1)。注意，以 EXEC SQL打頭的語(yǔ)句都可以通過(guò)數(shù)據(jù)庫(kù)的預(yù)編譯程序轉(zhuǎn)化成相應(yīng)的 C 語(yǔ)言代碼。注意每從數(shù)據(jù)庫(kù)取出一行，調(diào)用 RsAddRow函數(shù)使 EasyCICS的結(jié)果集增加一行。include set USERLIB=$(DB2PATH)165。 printf(Enter Query Number:)。 return。 jcc。該函數(shù)的第一個(gè)參 數(shù)是 CICS 的系統(tǒng)名稱(chēng)，相當(dāng)于 CICS 域 (Region)的連接字符串；函數(shù)的后兩個(gè)參數(shù)分別是 CICS 的用戶(hù)名稱(chēng)和口令。注意， RsCreate 和 RsOpen 函數(shù)對(duì)是 EasyCICS 傳遞二維值的標(biāo)準(zhǔn)方法，而 SetValue 和 GetValue 函數(shù)對(duì)是 EasyCICS 傳遞單值 (零維值 )的標(biāo)準(zhǔn)方法。 程序首先執(zhí)行了組件的 ConnectServer 方法。 RsOpen 方法用于打 20 開(kāi)結(jié)果集。 try{ App oEc = new App()。 int cc = ()。 } ()。cicsjava 宋阮 2020208 105011031 0595 01385995193 Apr 17 1999 10:55PM 22 宋阮 2020208 105011031 0595 01385990145 Apr 16 1999 12:22PM 宋阮 2020208 105011031 0595 01385922328 Apr 9 1999 6:42PM 宋阮 2020208 105011031 0595 01385922328 Apr 7 1999 12:50PM 宋 阮 2020208 105011031 0595 01385995193 Apr 6 1999 12:57PM 宋阮 2020208 105011031 0595 23 01385995193 Apr 5 1999 11:29AM 宋阮 2020208 105011031 0595 01385995193 Apr 5 1999 10:08AM 宋阮 2020208 105011031 0595 01385995193 Apr 3 1999 3:50PM 宋阮 2020208 105011031 0595 01385995183 Apr 3 1999 10:15AM 宋阮 2020208 105011031 0595 01385995193 Mar 31 1999 9:48PM 24 宋阮 2020208 105011031 0595 01385995193 Mar 29 1999 4:49PM 宋阮 2020208 105011031 0595 01385995193