390開發實用技術: 主機開發者入門之CICS MAP

CICS+DB2+COBOL+MAPS是一種具有代表性的主機聯機開發模式.所謂'聯機',是相對於'批量'而言.聯機程序一般能提供交互式畫面給用戶輸入數據,查詢,執行等等.是應聘主機開發工作的必備技能之一.本文介紹開發的第一步:創建屏幕畫面MAP



STEP1:編寫MAP MICRO程序.請注意,三要素:DFHMSD, DFHMDI, DFHMDF. 分別代表MAPSET, MAP和裏面的FIELD.



STEP2:編譯MAP MICRO.事實上會生成2個咚咚:一個叫做PHYSICAL MAP,一個叫做SYMBOLIC MAP. 請注意:PHYSICAL MAP是二進制文件,給CICS調用;而SYMBOLIC MAP是COPYBOOK,給COBOL程序引用裏面的變量.



STEP3:生成的physical map,二進制文件



STEP4:生成的symbolic map,是cobol copybook



STEP5:下面進入CICS環境去定義剛纔生成的MAP



STEP5.5:這裏要插播一下,CICS存在一個庫列問題.怎樣能讓CICS知道您的MAP是在那個庫下呢?我剛纔編譯的PHYSICAL MAP在JIA.MAP.LOAD下,必須要去啓動CICS的系統進程去加入這個庫列.(這步很關鍵,本人嘗試了一個下午才發現).今後大家要建立自己的程序,請把PHYSICAL MAP定義到ALLUSER.MAP.LOAD



STEP6:用CEDA DEF MAPSET(TSTMAPM) GROUP(TEST)去定義這個MAP.爲啥要這樣定義呢?因爲CICS是高層應用,它需要知道調用的MAP是指向外面的哪個程序.



STEP7:定義完了以後要安裝,用CEDA INS MAPSET(TSTMAPM) GROUP(TEST)



STEP8:可以很高興的看看MAP了....用SEND MAP(TSTMP2M) MAPSET(TSTMAPM)....慢着,怎麼剛纔的改動沒生效?還是原來的map?



STEP9:這時候必須要刷新MAP,才能使剛改動過的MAP生效,用CECI SET PROG(TSTMAPM) NEW



STEP10:現在看到的纔是您改動過MAP,編譯,定義,安裝後的結果...呵呵,長時間的辛苦終於有回報了.