Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

DFHEMTA replacement

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
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    Post subject: DFHEMTA replacement
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: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 28, 2013 3:18 pm    Post subject:
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    Post subject: Reply to: [b]DFHEMTA replacement[/b]
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: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 28, 2013 3:28 pm    Post subject:
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Thu Feb 28, 2013 4:42 pm    Post subject: Reply to: DFHEMTA replacement
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: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu Feb 28, 2013 4:58 pm    Post subject:
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    Post subject: needed syntax
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: 7913
Location: Bellevue, IA

PostPosted: Thu Feb 28, 2013 6:18 pm    Post subject:
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: 2502
Location: Atlanta, Georgia, USA

PostPosted: Thu Feb 28, 2013 6:32 pm    Post subject: Reply to: DFHEMTA replacement
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Replacement FTP to SFTP Vasili Koipish All Other Mainframe Topics 1 Wed May 11, 2016 3:10 pm
No new posts Conditional replacement of output file gcicchet JCL & VSAM 2 Fri Apr 29, 2011 10:05 am
No new posts Replacement for GO TO tecnokrat COBOL Programming 15 Mon Oct 25, 2010 3:39 pm
No new posts outrec character replacement John Howard JCL & VSAM 10 Wed May 12, 2010 7:15 pm
No new posts substring replacement in a record sudarsanreddyk DFSORT/ICETOOL 3 Mon Mar 23, 2009 11:17 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us