|
View previous topic :: View next topic
|
| Author |
Message |
Kingsingh
New User
Joined: 11 Mar 2005
Posts: 9
|
|
|
|
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 |
|
 |
manoj_madhavan
Warnings : 1
New User
Joined: 07 Mar 2005
Posts: 12
|
|
|
|
| i think u can use the CEDF utility ...it gives out the program name for each of the transaction being executed.. |
|
| Back to top |
|
|
Kingsingh
New User
Joined: 11 Mar 2005
Posts: 9
|
|
|
|
Hi manoj...
Through the CICS PGM, I Want to find out.
Thanks |
|
| Back to top |
|
|
manoj_madhavan
Warnings : 1
New User
Joined: 07 Mar 2005
Posts: 12
|
|
|
|
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 |
|
|
mcmillan
Site Admin
Joined: 18 May 2003
Posts: 1210
Location: India
|
|
|
|
| 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 |
|
|
sarma Kappagantu
New User
Joined: 17 Mar 2005
Posts: 22
Location: Bangalore
|
|
|
|
| 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 |
|
|
infoman123
New User
Joined: 01 Mar 2005
Posts: 10
|
|
|
|
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 |
|
|
jagadish2005
New User
Joined: 08 Mar 2005
Posts: 20
|
|
|
|
[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 |
|
|
|
|
