View previous topic :: View next topic
|
Author |
Message |
bvenu Warnings : 1 New User
Joined: 17 Aug 2005 Posts: 7
|
|
Back to top |
|
|
kumar_ngl Warnings : 1 New User
Joined: 05 Aug 2005 Posts: 50 Location: chennai
|
|
|
|
Hi venu,
Resp is a option to get the Return code of a specific cics execution.
It should be decalared as full word binary in working-storage ...depending upon the RC of resp value we can lead the program to sucessful execution
example:
Working-storage section.
77 ws-resp pic s9(8) comp.
procedure division.
main.
exec cics send
from ( )
length( )
resp(ws-resp)
end-exec.
If ws-resp=DFHRESP(NORMAL)
GO TO NORMAL-RNT.
IF WS-RESP=DFHLRESP(LENGERR)
GO-TO ERR-RTN.
..
..
..
THANKS,
kumar.p.v |
|
Back to top |
|
|
khamarutheen
Active Member
Joined: 23 Aug 2005 Posts: 677 Location: NJ
|
|
Back to top |
|
|
esanraja
New User
Joined: 08 Aug 2007 Posts: 4 Location: chennai
|
|
|
|
These two are my Copy books in my Cobol program,
COPY CICSRESP.
COPY CICSATTR.
But unable to find this copy book in my MF server. Please can any one assit how to get this copy book from where. and where should i keep this copy book inorder to run my PROGRAM.
RESP (CICS-RESP-CODE) ,this statement is not executing with out this copy book. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
look in any CICS application programmers guide. In the discussion about CICS control blocks, they talk about the eib fields. look there to find return and response codes. |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
Try here:
CICS-value data areas (cvdas)
About half way down the page is:
The CVDA values and their numeric equivalents are listed in the following topics:
CVDAs and numeric values in alphabetic sequence
CVDAs and numeric values in numeric sequence
CVDA values for the DEVICE option
Which are links too...... |
|
Back to top |
|
|
|