View previous topic :: View next topic
|
Author |
Message |
Praveenkumar Natarajan
New User
Joined: 24 Sep 2012 Posts: 3 Location: India
|
|
|
|
I am looking for DFHEMTA call replacement as this is not supported in the latest cics versions. In one of my cics source code this call is used to execute " CEMT SET QUEUE(IRDR) OPEN" and "CEMT SET QUEUE(IRDR) CLOSED".
These CEMT commands are invoked as shown below
EXEC CICS
LINK PROGRAM('DFHEMTA')
COMMAREA(XXXX)
END-EXEC.
Where this XXXX contains the CEMT command and other address parameters.
Is there are any ways to replace this link to DFHEMTA or is there any EXEC CICS command which can set my TDQ open or closed via cobol program?
TIA
In a futile attempt to bring attention to the topic the "bold" tags were used. These have been removed |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Use EXEC CICS INQUIRE and EXEC CICS SET commands. |
|
Back to top |
|
|
Praveenkumar Natarajan
New User
Joined: 24 Sep 2012 Posts: 3 Location: India
|
|
|
|
I did some Googling, but could find the proper syntax to open and close tdq. can you provide the syntax or appropriate link for the same. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Well its all in the IBM CICS manuals. I did some research, now its your turn. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Please don't attempt to "highlight" your Subject in any way. Your question will not be considered more important because of that, in fact. probably the reverse. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
At least is was a "bold" action.
:-) |
|
Back to top |
|
|
Praveenkumar Natarajan
New User
Joined: 24 Sep 2012 Posts: 3 Location: India
|
|
|
|
Couldnt find the sytax, can you kindly post the same. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
You need to find the System Programming Reference manual for your version of CICS. Since these are system programming commands, you may need special access to be able to translate your CICS program with the SP option -- ask your site support group for verification. The specific command in the manual is SET TDQUEUE. |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
DFHEMTA is still shipped with TS/4.2. Is it not shipped with TS/5.1?
As has been said, the equivalent to the native CEMT commands, passed to DFHEMTA and addressed off 24-Bit commarea-pointer one, can be found in the "CICS System Programming Reference" for your particular version/release.
I don't know of a list of CEMT commands and their System Reference equivalents, so you'll need to dig into the manuals. Plus, you'll find a difference in response-code values between CEMT (very old CICS Macro DFHEIMDS) and System API's, which is always lots of fun and games to synchronise.
For example, a CEMT response-code (from DFHEIMDS) for "PGMIDERR" is 011, whereas, the System API EIBRESP for "PGMIDERR" is 027. No correlation whatsoever.
Originally introduced with CICS/OS 1.6.1 (around 1985), the last documentation for "DFHEMTA", as far as I can remember, was in CICS/MVS 2.1.2, which was 20+ years ago. |
|
Back to top |
|
|
|