| View previous topic :: View next topic |
| Author |
Message |
Dibakar
Advanced
Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA
|
 Posted: Tue Jan 21, 2003 9:05 am Post subject: CICS RESP CODES |
 |
|
CICS RESP CODES
| Quote: |
01 ERROR
02 RDATT
03 WRBRK
04 EOF
05 EODS
06 EOC
07 INBFMH
08 ENDINPT
09 NONVAL
10 NOSTART
11 TERMIDERR
12 DSIDERR
13 NOTFND
14 DUPREC
15 DUPKEY
16 INVREQ
17 IOERR
18 NOSPACE
19 NOTOPEN
20 ENDFILE
21 ILLOGIC
22 LENGERR
23 QZERO
24 SIGNAL
25 QBUSY
26 ITEMERR
27 PGMIDERR
28 TRANSIDERR
29 ENDDATA
30 INVTSREQ
31 EXPIRED
32 RETPAGE
33 RTEFAIL
34 RTESOME
35 TSIOERR
36 MAPFAIL
37 INVERRTERM
38 INVMPSZ
39 IGREQID
40 OVERFLOW
41 INVLDC
42 NOSTG
43 JIDERR
44 QIDERR
45 NOJBUFSP
46 DSSTAT
47 SELNERR
48 FUNCERR
49 UNEXPIN
50 NOPASSBKRD
51 NOPASSBKWR
52 -
53 SYSIDERR
54 ISCINVREQ
55 ENQBUSY
56 ENVDEFERR
57 IGREQCD
58 SESSIONERR
59 SYSBUSY
60 SESSBUSY
61 NOTALLOC
62 CBIDERR
63 INVEXITREQ
64 INVPARTNSET
65 INVPARTN
66 PARTNFAIL
67 -
68 -
69 -
70 NOTAUTH
71 -
72 -
73 WRONGSTAT
74 NAMEERROR
75 -
76 CCERROR
77 MAPERROR
78 -
79 -
80 NOSPOOL
81 TERMERR
82 ROLLEDBACK
83 END
84 DISABLED
85 ALLOCERR
86 STRELERR
87 OPENERR
88 SPOLBUSY
89 SPOLERR
90 NODEIDERR
|
|
|
| Back to top |
|
 |
Glenn
Beginner
Joined: 23 Mar 2003
Posts: 56
Topics: 3
|
| Posted: Sun Mar 23, 2003 8:39 am Post subject: |
|
|
Just noting to to help, if you are testing for these RESP codes in standard code you can use RESP(WORD CODE) to equate to a code...like with this simple code...
| Code: |
EXEC CICS
RECEIVE MAP ('MAP1')
MAPSET('MAP-SET1')
RESP(RESP-VALUE)
END-EXEC.
IF RESP-VALUE = DFHRESP(MAPFAIL)
DO MAPFAIL CODE
END-IF.
|
Last edited by Glenn on Mon Mar 24, 2003 3:06 am; edited 1 time in total |
|
| Back to top |
|
|
Dibakar
Advanced
Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA
|
| Posted: Mon Mar 24, 2003 1:58 am Post subject: |
|
|
Glenn,
In cobol 'IF A = B(C)' would mean that B is an array and C its index. What does 'RESP (MAPFAIL)' represent here?
Diba. |
|
| Back to top |
|
|
Glenn
Beginner
Joined: 23 Mar 2003
Posts: 56
Topics: 3
|
| Posted: Mon Mar 24, 2003 3:05 am Post subject: |
|
|
If you compile this code, you will notice the CICS interpreter will "see" this section of code and replace it with the appropriate number in the table that you posted.
Note, I remembered incorrectly. It's DFHRESP(MAPFAIL). I edited the code in question.
Look at http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFHWP300/2.7.2?DT=19990421162730
| Quote: | | The DFHRESP built-in translator function makes it very easy to test the RESP value. It allows, you to examine RESP values symbolically. This is easier than examining binary values that are less meaningful to someone reading the code. |
Hope this helps... |
|
| Back to top |
|
|
Dibakar
Advanced
Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA
|
| Posted: Mon Mar 24, 2003 6:41 am Post subject: |
|
|
Thanks Glenn,
I was not aware that CICS interpreter looks at code outside 'EXEC CICS ... END-EXEC' block too.
Diba. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
