|
View previous topic :: View next topic
|
| Author |
Message |
neerajpeddu
New User
Joined: 03 Feb 2006
Posts: 25
Location: Calgary, AB
|
|
|
|
Hi there,
Can you please let me know how to list all the users that are currently logged on to a CICS region.
I can find out using a CEMT I TE(*) userid(x*) but then I will have to go to each individual terminal to find out what the userid is. Is there any easy way to get the list of all users currently logged on to cics.
Any help is greatly appreciated. Thanks in advance. |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
|
|
|
|
| Many sites have written programs to do this -- ours was coded in 1992. Check with your site support group. |
|
| Back to top |
|
|
neerajpeddu
New User
Joined: 03 Feb 2006
Posts: 25
Location: Calgary, AB
|
|
|
|
| Thanks. I've checked but there does not seem to be any thing similar. Looks like I'll have to write a program myself. |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
| Back to top |
|
|
neerajpeddu
New User
Joined: 03 Feb 2006
Posts: 25
Location: Calgary, AB
|
|
|
|
Awesome. Thanks a lot. That is a very valuable information. I will use Start and browse resoure definition in my code. found an example in the IBM manual.
| Code: |
EXEC CICS INQUIRE FILE START END-EXEC.
PERFORM UNTIL RESPCODE = DFHRESP(END)
EXEC CICS INQUIRE FILE(FILENAME) NEXT
OPENSTATUS(OPENSTAT)
RECOVSTAT(RCVRSTAT)
FWDRECSTATUS(FWDSTAT)
RESP(RESPCODE) END-EXEC
IF RESPCODE = DFHRESP(NORMAL)
IF OPENSTAT = DFHVALUE(OPEN)
CALL RCVY-RTN USING RCVRSTAT FWDSTAT
END-IF
ELSE CALL ERROR-RTN END-IF
END-PERFORM.
EXEC CICS INQUIRE FILE END END-EXEC. |
Thanks again for all your help. |
|
| Back to top |
|
|
|
|
