Page 1 of 1

Meaning of RESP and RESP2 (in combination)

PostPosted: Sun Aug 04, 2019 12:58 pm
by varQon
What is meant by resp as 16 and resp2 as 9 when
OPENSTATUS(19)
is called for SET TDQUEUE.

Re: Meaning of RESP and RESP2 (in combination)

PostPosted: Sun Aug 04, 2019 5:52 pm
by Robert Sample
What did the EXEC CICS command look like? It appears that you are confusing two different things. OPENSTATUS(cvda-variable) will set cvda-variable to a CVDA value that can then be tested in your code (COBOL would have IF CVDA-VARIABLE = DFHVALUE(OPEN) as an example). Having OPENSTATUS(19) means that the resource you are inquiring against is closed -- but the RESP and RESP2 values are not used to make that determination; only the cvda-variable matters in such a case.

If you are coding EXEC CICS SET TDQUEUE OPENSTATUS(19) then you are telling CICS that you want the TDQUEUE closed -- to find out if it is open or closed, you would use EXEC CICS INQUIRE TDQUEUE OPENSTATUS(cvda-variable). You need to post more about what you are trying to do to get better help -- code (tagged with the CODE button) is usually the best way to start.

Re: Meaning of RESP and RESP2 (in combination)

PostPosted: Sun Aug 04, 2019 6:45 pm
by varQon
Hi Robert I do want to close the TDQUEUE, here is the code:


CICS SET TDQUEUE(tdq_var) OPENSTATUS
(19) RESP(retcode1) RESP2(retcode2)
 


The retcode1 and retcode2 are 16 & 9 respectively.

This all is done after submitting a JCL via TDQ (row by row).

Re: Meaning of RESP and RESP2 (in combination)

PostPosted: Sun Aug 04, 2019 11:05 pm
by Robert Sample
The CICS manuals such as https://www.ibm.com/support/knowledgece ... queue.html will tell you that RESP 16 is INVREQ and the RESP2 of 9 means
9
OPENSTATUS was specified for an intrapartition queue.
and if you're writing your JCL to an intrapartition TDQ, then you are NOT submitting it to the internal reader (which is an extrapartition TDQ).