INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Transaction - Program relation

Transaction - Program relation

(OP)
Does anyone know where CICS stores information about which programs are associated with which transactions?

RE: Transaction - Program relation

Program Control Table (PCT)

Code what you mean,
and mean what you code!
But by all means post your code!

Razalas

RE: Transaction - Program relation

(OP)
Best way to access that from within a CICS COBOL Program?  I need to get, given a Transaction ID from the commarea, the name of the associated program.

Jim

RE: Transaction - Program relation

Hi Jim,
You can try EXEC CICS INQUIRE TRANSACTION which will give you back the program name.

You need to tell CICS what transaction to start at to begin with. There is a Cobol example here: http://www.legsem.com/code/DPLARCHT.txt

I haven't tried it myself, but this would appear to be what you are after.

Marc

RE: Transaction - Program relation

You will need to set the SP option on the CICS translator to allow use of the  SP (sysprogs) interface commands. You can use XOPTS to pass this if you are using a standard proc, or something like Endevor to compile with.

Steve

"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object::PerlDesignPatterns)

RE: Transaction - Program relation

(OP)
Marc, Steve,
   That sounds like a viable option, now I've done some reading, the exit that we're looking at using gives us easy access to the transaction number (don't ask why that's hard, it's too painful). For like 90% of our programs, the transaction ID and the program name are identical, but there are some which inexplicably (I'm new here) aren't.  So this call should ensure that I can get the proper program name from the CICS tables.  I'll continue to investigate along these lines for now.

Thanks,
Jim

RE: Transaction - Program relation

(OP)
Hmmmm. . .We compile using CList scripts, I'm going to need to talk to someone else I think.

RE: Transaction - Program relation

If you have the transaction ID, you don't need to do the start-next-end browse sequence, you can enquire directly. This will be faster and less code.

You can pass the XOPTS as a comment in the first line of the program source, which might save you having to change your compile CLIST.

Steve

"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object::PerlDesignPatterns)

RE: Transaction - Program relation

(OP)
Can one transaction be mapped to multiple programs in that table?

 

RE: Transaction - Program relation

No. It's a 'if you get this transaction, then run this program' 1:1 mapping. Occasionally you find that multiple transactions can map on to the same program, (which then looks at EIBTRNID to work out what to do next), but never the other way around.

Steve

"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object::PerlDesignPatterns)

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close