Meaning of RESP and RESP2 (in combination)



Support for CICS/ESA, CICS/TS & Transaction Gateway, CICS Configuration Manager and CICS Performance Analyzer

Meaning of RESP and RESP2 (in combination)

Postby varQon » Sun Aug 04, 2019 12:58 pm

What is meant by resp as 16 and resp2 as 9 when
OPENSTATUS(19)
is called for SET TDQUEUE.
varQon
 
Posts: 3
Joined: Sat Jul 27, 2019 12:44 am
Has thanked: 0 time
Been thanked: 0 time

Re: Meaning of RESP and RESP2 (in combination)

 

Re: Meaning of RESP and RESP2 (in combination)

Postby Robert Sample » Sun Aug 04, 2019 5:52 pm

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.
Robert Sample
Global moderator
 
Posts: 3615
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 266 times

Re: Meaning of RESP and RESP2 (in combination)

Postby varQon » Sun Aug 04, 2019 6:45 pm

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).
varQon
 
Posts: 3
Joined: Sat Jul 27, 2019 12:44 am
Has thanked: 0 time
Been thanked: 0 time

Re: Meaning of RESP and RESP2 (in combination)

Postby Robert Sample » Sun Aug 04, 2019 11:05 pm

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).
Robert Sample
Global moderator
 
Posts: 3615
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 266 times


Return to CICS

 


  • Related topics
    Replies
    Views
    Last post