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
 

 

Finding the Program Name for the specified Transaction

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
Kingsingh

New User


Joined: 11 Mar 2005
Posts: 9

PostPosted: Tue Mar 15, 2005 3:27 pm    Post subject: Finding the Program Name for the specified Transaction
Reply with quote

Hi again its me.........

Is it possible to get a Program name for the specified Transaction Id in CICS.

Thanks in advance
Back to top
View user's profile Send private message

manoj_madhavan
Warnings : 1

New User


Joined: 07 Mar 2005
Posts: 12

PostPosted: Tue Mar 15, 2005 4:16 pm    Post subject:
Reply with quote

i think u can use the CEDF utility ...it gives out the program name for each of the transaction being executed..
Back to top
View user's profile Send private message
Kingsingh

New User


Joined: 11 Mar 2005
Posts: 9

PostPosted: Tue Mar 15, 2005 4:19 pm    Post subject: Re: Cics
Reply with quote

Hi manoj...

Through the CICS PGM, I Want to find out.

Thanks
Back to top
View user's profile Send private message
manoj_madhavan
Warnings : 1

New User


Joined: 07 Mar 2005
Posts: 12

PostPosted: Tue Mar 15, 2005 4:49 pm    Post subject:
Reply with quote

i ve no idea of gettin it thru program...

but u can try out the ppt entry.. i also heard tht u need sm special rights to access the transaction entries....


sorry 4 not being able to provide a cleare answer
Back to top
View user's profile Send private message
mcmillan

Site Admin


Joined: 18 May 2003
Posts: 1202
Location: India

PostPosted: Tue Mar 15, 2005 9:36 pm    Post subject:
Reply with quote

Quote:
get a Program name for the specified Transaction Id in CICS

There are lot of ways to do this...

1. Using CEMT Transation you can identify the corresponding program.
Code:
 CEMT I TRA   
                                               
 STATUS:  RESULTS - OVERTYPE TO MODIFY   
                   
+ Tra(BAG1) Pri( 001 ) Pro(BALU    ) Tcl( DFHTCL00 ) Ena Sta
             Prf(DFHCICST) Uda Bel Iso               Bac Wai
  Tra(BALA) Pri( 001 ) Pro(VISWA3  ) Tcl( DFHTCL00 ) Ena Sta
             Prf(DFHCICST) Uda Bel Iso               Bac Wai
  Tra(BALI) Pri( 001 ) Pro(EMPMAP  ) Tcl( DFHTCL00 ) Ena Sta
             Prf(DFHCICST) Uda Bel Iso               Bac Wai
  Tra(BANG) Pri( 001 ) Pro(FILE1   ) Tcl( DFHTCL00 ) Ena Sta
             Prf(DFHCICST) Uda Bel Iso               Bac Wai


2. If you use one of the products like Dynamic Allocate Deallocate System
(DADS) or CICS Application File Control Facility (CAFC), both have online
transactions that you or your systems person can use to identify which
loadlib a program is being loaded from.

3. You could check the running job's DFHRPL DD and do a search of the
libraries for your program name.


Quote:
From the CICS PGM, I Want to find out


Yes, it's possible. but there is no direct command available for this. You have to write an ISPF edit macro to scan a concatenation such a DFHRPL or STEPLIB and highlight loadlibs where a given program is found (while in ISPF edit on the CICS startup JCL).

Code:
        MACRO                                                          00010000
         TELIN                                                          00020000
         GBLC  &TELCSCT                                                 00050000
         GBLB  &GBREQU        REQU MACRO GENERATION FLAG                00050100
         LCLC  &DTTM                                                    00051000
&TELCSCT SETC  '&SYSECT'                                                00052000
         B     *+24                     AROUND PGM ID/DATE-TIME STAMP   00053000
         DC    CL8'&SYSECT'             PROGRAM IDENTIFICATION          00054000
         DC    C'-'                                                     00055000
&DTTM    SETC  '&SYSDATE'(1,2).'&SYSDATE'(4,2).'&SYSDATE'(7,2)          00056000
         DC    C'&DTTM'                 DATE STAMP (MMDDYY)             00057000
         DC    C'-'                                                     00058000
&DTTM    SETC  '&SYSTIME'(1,2).'&SYSTIME'(4,2)                          00059000
         DC    C'&DTTM'                 TIME STAMP (HHMM)               00060000
         AIF   (&GBREQU EQ 1).A0900                                     00170000
R0       EQU   0                                                        00190000
R1       EQU   1                                                        00200000
R2       EQU   2                                                        00210000
R3       EQU   3                                                        00220000
R4       EQU   4                                                        00230000
R5       EQU   5                                                        00240000
R6       EQU   6                                                        00250000
R7       EQU   7                                                        00260000
R8       EQU   8                                                        00270000
R9       EQU   9                                                        00280000
R10      EQU   10                                                       00290000
RA       EQU   10                                                       00300000
R11      EQU   11                                                       00310000
RB       EQU   11                                                       00320000
R12      EQU   12                                                       00330000
RC       EQU   12                                                       00340000
R13      EQU   13                                                       00350000
RD       EQU   13                                                       00360000
R14      EQU   14                                                       00370000
RE       EQU   14                                                       00380000
R15      EQU   15                                                       00390000
RF       EQU   15                                                       00400000
&GBREQU  SETB  1                                                        00410000
.A0900   ANOP                                                           00430000
         MEND                                                           00440000
Back to top
View user's profile Send private message
sarma Kappagantu

New User


Joined: 17 Mar 2005
Posts: 22
Location: Bangalore

PostPosted: Mon Mar 21, 2005 12:13 pm    Post subject:
Reply with quote

If you would like to know the program name from the program, issue a ASSIGN (my-program-var) command from your CICS program.
Back to top
View user's profile Send private message
infoman123

New User


Joined: 01 Mar 2005
Posts: 10

PostPosted: Fri Jun 24, 2005 9:22 pm    Post subject: Re: Finding the Program Name for the specified Transaction
Reply with quote

i thgink this will work..plzz try it out

EXEC CICS INQUIRE('TRAN')

PGID(PGM-NAME)

END-EXEC

PGM-NAME WILL CONTAIN THE PROGRAM NAME...

PLEASE TRY AND LET US KNOW...
Back to top
View user's profile Send private message
jagadish2005

New User


Joined: 08 Mar 2005
Posts: 20

PostPosted: Sat Jun 25, 2005 8:16 am    Post subject: Re: Finding the Program Name for the specified Transaction
Reply with quote

[quote="infoman123"]i thgink this will work..plzz try it out

EXEC CICS INQUIRE('TRAN')

PGID(PGM-NAME)

END-EXEC

PGM-NAME WILL CONTAIN THE PROGRAM NAME...

PLEASE TRY AND LET US KNOW...[/quote]


Hi,
Ur information is 100% correct

with regard
Arunachalla
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 finding delayed job/s in OPC jzhardy IBM Tools 0 Mon May 29, 2017 9:04 am
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts CICS Transaction Timeout Hooman24 CICS 2 Sun Apr 16, 2017 2:16 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm


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