歡迎您光臨本站 註冊首頁

CICS-COBOL的異常系統 .

←手機掃碼閱讀     火星人 @ 2014-03-03 , reply:0

CICS-COBOL的異常系統 .

CICS-COBOL的異常系統 .

異常條件錯誤(Exceptional Condition ABEND)

這類錯誤發生在CICS命令(CICS EXEC)執行遇到問題但RESP沒有在命令中指定的情況

異常條件錯誤碼,下表中碼的規律是AEI或AEY起始,最後一個字母是字母或數字,多數條件名稱都比較直觀。Code Condition Code Condition Code Condition
AEIA ERROR AEIV LENGERR AEYL FUNCERR
AEID EOF AEIW QZERO AEYM UNEXPIN
AEIE EIDS AEIZ ITEMERR AEYN NOPASSBKRD
AEIG INBFMH AEI0 PGMIDERR AEYO NOPASSBKWR
AEIH NONVAL AEI1 TRANSIDERR AEYP SEQIDERR
AEII NOSTART AEI2 ENDDATA AEYQ SYSIDERR
AEIJ TERMIDERR AEI3 INVTSREQ AEYR ISINVREQ
AEIK DSIERR AEI8 TSIOERR AEYT ENVDEFERR
AEIL NOTFND AEI9 MAPFAIL AEYU IGREQCD
AEIM DUPREC AEYA INVERRTERM AEYV SESSERR
AEIN DUPKEY AEYB INVMPSZ AEYY NOTALLOC
AEIO INVREQ AEYC IGREQID AEYZ CBIDERR
AEIP IOERR AEYE INVLDC AEY0 INVEXITREQ
AEIQ NOSPACE AEYG JIDERR AEY1 INVPARTNSET
AEIR NOSPACE AEYH QIDERR AEY2 INVPARTN
AEIS NOTOPEN AEYJ DSSTAT AEY3 PARTNFAIL
AEIT ENDFILE AEYK SELNERR AEY7 NOTAUTH
AEIU ILLOGIC         程序檢查錯誤(Program Check ABEND)


這類錯誤發生在程序嘗試執行一個不被硬體允許的操作。這類錯誤導致的異常總稱ASRA異常碼(ABEND CODE)。

程序檢查錯誤(ASRA異常碼)類型Operation exception Specification exception Decimal-divide exception
Privileged exception Data exception Exponent overflow
Execute exception Fixed-point overflow Exponent underflow
Protection exception Fixed-point divide exception Signifcance exception
Addressing exception Decimal overflow Floating-point divide exception 其他CICS相關ABENDCode Explanation
ABMB 使用絕對游標定位(Absolute Cursor Position)方式,但指定游標超越輸出設備界限
ABM0 指定的映射表(map)不在映射集中(mapset)
AFCV 對一個文件的請求無法獲得一個記錄級的鎖
AICA 一個任務執行的時間超出失控任務(runaway tasks)的時限
AKCS 一個任務因為超出對事務定義的死鎖超時而終止
AKCT 一個任務因為等待終端輸入超出對事務定義的終端讀入等待超時而終止
AKC3 任務被殺死,通常因為主終端操作者(master terminal operator)執行CEMT TASK PURGE命令
APCT 程序無法找到或已經終止
ASRB 操作系統ABEND發生;CICS能夠終止這個事務並自身繼續運行
ATCH 事務終止,通常因為死鎖情形 使用EDF調試程序

EDF是以名為CEDF的CICS事務啟動,一般以但屏幕方式運行,即調試和程序界面交替出現,這也是最常見的調試模式。

對於遠程調試,可以用形如:CEDF H400, ON,這樣就在H400的遠程終端上啟動EDF進行調試。

也能調試任何一個已經在任一終端運行的事務,CEDX MNTB, ON,其中MNTB是事務名稱。

EDF啟動以後以EXEC CICS的命令為單元暫停執行,通常先顯示將調用的命令和一些狀態,然後是可能的顯示,最後是命令的執行結果。在程序最後退出后對CONTINUE EDF作出選擇可決定是否繼續EDF調試模式。PF5可以進入WORKING STORAGE的內存16進位檢視。





COBOL的共享工作區(COMMON WORK AREA)


共享區在變數去定義好並加上定址性(Addressing)后,就能被這個程序訪問,並在程序間共享。一個詳細說明見view plaincopy to clipboardprint?
01.LINKAGE SECTION.  
02.01  COMMON-WORK-AREA  
03.    05  CWA-CURRENT-DATE    PIC X(8).  
04.    05  CWA-COMPANY-NAME    PIC X(30).  
05.... 其他代碼  
06.    EXEC CICS      
        //CWA所有CICS程序共享;TWA事務內共享;TCTUA終端內共享  LINKAGE SECTION.
  01  COMMON-WORK-AREA
      05  CWA-CURRENT-DATE    PIC X(8).
      05  CWA-COMPANY-NAME    PIC X(30).
  ... 其他代碼
      EXEC CICS      
        //CWA所有CICS程序共享;TWA事務內共享;TCTUA終端內共享 ADDRESS {CWA|TWA|TCTUA}(ADDRESS OF COMMON-WORK-AREA)
  //此後COMMON-WORK-AREA中內容就映射到了共享區域了
  END-EXEC.

[火星人 ] CICS-COBOL的異常系統 .已經有853次圍觀

http://coctec.com/docs/service/show-post-1686.html