IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

DFHEMTA replacement


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Praveenkumar Natarajan

New User


Joined: 24 Sep 2012
Posts: 3
Location: India

PostPosted: Thu Feb 28, 2013 3:08 pm
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 28, 2013 3:18 pm
Reply with quote

Use EXEC CICS INQUIRE and EXEC CICS SET commands.
Back to top
View user's profile Send private message
Praveenkumar Natarajan

New User


Joined: 24 Sep 2012
Posts: 3
Location: India

PostPosted: Thu Feb 28, 2013 3:20 pm
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 28, 2013 3:28 pm
Reply with quote

Well its all in the IBM CICS manuals. I did some research, now its your turn.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Feb 28, 2013 4:42 pm
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 28, 2013 4:58 pm
Reply with quote

At least is was a "bold" action.

:-)
Back to top
View user's profile Send private message
Praveenkumar Natarajan

New User


Joined: 24 Sep 2012
Posts: 3
Location: India

PostPosted: Thu Feb 28, 2013 6:11 pm
Reply with quote

Couldnt find the sytax, can you kindly post the same.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Feb 28, 2013 6:18 pm
Reply with quote

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
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Thu Feb 28, 2013 6:32 pm
Reply with quote

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. icon_eek.gif

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts SFTP replacement for LOCSITE ASA in FTP All Other Mainframe Topics 7
No new posts Replacement FTP to SFTP All Other Mainframe Topics 1
No new posts Conditional replacement of output file JCL & VSAM 2
No new posts Replacement for GO TO COBOL Programming 15
No new posts outrec character replacement JCL & VSAM 10
Search our Forums:

Back to Top