大型主機應用上的開放系統(tǒng)和中間件20xx年度教育部-ibm精-資料下載頁
2025-07-18 19:57本頁面
【正文】 ，將出現(xiàn)如下屏幕： ? 在 ENTER YOUR ID HERE:處輸入 VSAM數(shù)據(jù)集中具有的一個 KEY值。如000001，按回車， MESSAGE:處將顯示： HELLO, VSAMDATA1 !其中 VSAMDATA1是 KEY 000001對應的 NON KEY的值。 COBOL+CICS+DB2樣例程序開發(fā) ? 本節(jié)在 ，論述 COBOL+CICS+DB2樣例程序的開發(fā)過程。 ? 在編寫 COBOL+CICS+DB2樣例程序的源代碼之前，必須在 DB2中創(chuàng)建相應的數(shù)據(jù)庫、表空間和表并插入樣本數(shù)據(jù)。方法是：在 ISPF菜單中輸入以下 SQL命令或語句創(chuàng)建樣例程序中需要的表和數(shù)據(jù)（假設用戶TJD0211具有 SYSADM的權(quán)限）： ? 表創(chuàng)建好并插入數(shù)據(jù)后，可以生成表 ，該數(shù)據(jù)結(jié)構(gòu)在后續(xù) COBOL+CICS+DB2樣例程序的源代碼中將用到。生成方法是：在 ISPF主菜單中輸入： ，按回車，然后在如下界面輸入相應的項，其中粗體為必填項： ? 這樣表 (TT01C01)中，如下所示： ? 自此， COBOL+CICS+DB2樣例程序中要用到的 DB2表創(chuàng)建完畢并生成了對應數(shù)據(jù)結(jié)構(gòu)。 ? COBOL+CICS+DB2樣例程序的 MAP源代碼如下面兩頁所示： ? COBOL+CICS+DB2樣例程序的 COPY BOOK如下面兩頁所示： ? 編譯、鏈接上述 COBOL+CICS+DB2樣例程序的 MAP源代碼的 JCL同編譯、鏈接 COBOL+CICS樣例程序的 MAP源代碼的 JCL基本相同，故此處略。 ? 提交上述 JCL并成功（ MAXCC=4）后，便在 MAPSET M211T03。 ? 自此， COBOL+CICS+DB2樣例程序的 CICS MAP生成并執(zhí)行完畢。 ? COBOL+CICS+DB2與 COBOL+CICS程序的主邏輯非常相似，受篇幅限制，此處只介紹加入 DB2的處理邏輯后與 COBOL+CICS的程序不同之處的代碼。 （ 1）首先在程序一開始的注釋中加入如下代碼： ? 上述注釋表示應用程序中將用到數(shù)據(jù)庫表 TT01C01，且是關于書籍信息的表。 （ 2）在引入 COPYBOOK的代碼 COPY ： ? 上述代碼第一行表示將含有關鍵的 SQLCODE變量的 SQLCA結(jié)構(gòu)加入到代碼中來，下面的代碼將用到 SQLCODE這個代表 SQL是否運行成功的變量。 ? 第二行表示將 TT01C01這個含有數(shù)據(jù)庫表中各個列對應的各個變量定義的 PDS成員加入到代碼中來，下面的代碼用到表中列對應的各個變量時將不需要再定義。 （ 3）在 A300PROCESS程序段書寫如下代碼： ? 該代碼片斷實現(xiàn)的功能在上文 4. PROCEDURE DIVISION部分已經(jīng)解釋完畢，故此處略。 ? DB2預編譯、 CICS翻譯、 COBOL編譯、鏈接上面的 COBOL+CICS+DB2源程序的 JCL如下面五頁所示： ? 提交上述 JCL并成功（ MAXCC=4）后，便在 PROGRAM C0O11T3。 ? 自此， COBOL+CICS+DB2樣例程序的源代碼編寫并執(zhí)行完畢。 ? 下面在 CICS Region里創(chuàng)建各個資源，這些資源包括 MAPSET， PROGRAM，TRANSACTION， DB2CONNECTION和 DB2ENTRY。 ? 在 CICS Region里輸入如下命令創(chuàng)建 MAPSET： CEDA DEF MAPSET(M211T03) G(TJD0211) ? 在 CICS Region里輸入如下命令創(chuàng)建 PROGRAM： CEDA DEF PROG(C0O11T3) G(TJD0211) ? 在 CICS Region里輸入如下命令創(chuàng)建 TRANSACTION： CEDA DEF TRANSACTION(C211) PROG(C0O11T3) G(TJD0211) ? 在 CICS Region里輸入如下命令創(chuàng)建 DB2CONNECTION： CEDA DEF DB2CONN(DB8G) DB2ID(DB8G) G(TJD0211) ? 在 CICS Region里輸入如下命令創(chuàng)建 DB2ENTRY： CEDA DEF DB2ENTRY(E211T01) TRANSID(C211) PLAN(P211T03) G(TJD0211) ? 在 CICS Region里輸入如下命令安裝定義的上述資源： CEDA INS G(TJD0211) ? 注 ： DB2CONNECTION表示 CICS和 DB2的連接，且是 DB2子系統(tǒng)獨占的，即DB2CONNECTION中指定的 DB2ID(DB8G)表示將使用子系統(tǒng) DB8G， 如果之前 CICS和 DB2的連接采用另一個子系統(tǒng) DB7G，那么在采用 DB8G之前，必須在 CICS Region中： （ 1）運行如下命令將 CICS和 DB2的連接斷開： DSNC STOP （ 2）安裝 DB2CONNECTION（步驟略） （ 3）運行如下命令將 CICS和 DB2重新連接起來，此時將采用子系統(tǒng)DB8G： DSNC STRT （ 4）可以運行如下命令查看 CICS和 DB2的連接細節(jié)： DSNC DISP STAT ? 自此， COBOL+CICS+DB2樣例程序的 CICS資源都已經(jīng)定義并安裝完畢。 ? 下面執(zhí)行剛剛創(chuàng)建并安裝好的交易。在 CICS Region里輸入 C211，回車，如果一切正常，將出現(xiàn)如下屏幕： ? 在 ENTER KEY處輸入 DB2表中的 KEY值，如 00001，按回車， CONTENT處將顯示 DB2表中 KEY值 00001對應的 NON KEY值 BOOK1。
電大資料相關推薦
鄂ICP備17016276號-1