| View previous topic :: View next topic |
| Author |
Message |
jajularamesh
Beginner
Joined: 14 Apr 2006
Posts: 87
Topics: 33
|
 Posted: Wed May 10, 2006 7:56 am Post subject: how to know the list of users connected to the main frame |
 |
|
| i want to know the list of users connected to the main frame |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed May 10, 2006 8:25 am Post subject: |
|
|
jajularamesh,
| Code: |
/* REXX CODE TO SEE THE LIST OF ONLINE USERS */
INPUTDS= 'YOUR PS/PDS MEMBER HAVING THE ABOVE INPUT FILE'
"ALLOC DA('"INPUTDS"') FILE(INDD) SHR"
UIDLIST. = ' '
"EXECIO * DISKR INDD (STEM UIDLIST."
"EXECIO 0 DISKR INDD (FINIS"
SAY "ACTIVE USERS IN THE LIST ARE:"
NUMERIC DIGITS 10
CVT=PTR(16) /* GET CVT */
ASVT=PTR(CVT+556)+512 /* GET ASVT */
ASVTMAXU=PTR(ASVT+4) /* GET MAX ASVT ENTRIES */
DO A = 0 TO ASVTMAXU - 1
ASCB=STG(ASVT+16+A*4,4) /* GET PTR TO ASCB (SKIP MASTER) */
IF BITAND(ASCB,'80000000'X) = '00000000'X THEN /* IF IN USE */
DO
ASCB=C2D(ASCB) /* GET ASCB ADDRESS */
CSCB=PTR(ASCB+56) /* GET CSCB ADDRESS */
CHTRKID=STG(CSCB+28,1) /* CHECK ADDR SPACE TYPE */
IF CHTRKID='01'X THEN /* IF TSO USER */
DO
ASCBJBNS=PTR(ASCB+176) /* GET ASCBJBNS */
UID = STG(ASCBJBNS,8)
CALL SHOWSTATUS(UID)
END
END
END
"FREE FILE(INDD)"
EXIT
PTR: RETURN C2D(STORAGE(D2X(ARG(1)),4)) /* RETURN A POINTER */
STG: RETURN STORAGE(D2X(ARG(1)),ARG(2)) /* RETURN STORAGE */
SHOWSTATUS:
DO I=1 TO UIDLIST.0
IF SUBSTR(UIDLIST.I,1,8) = ARG(1) THEN
SAY STRIP(SUBSTR(UIDLIST.I,9,50))
END
RETURN
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
shekar123
Advanced
Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
|
| Posted: Wed May 10, 2006 8:33 am Post subject: |
|
|
Ramesh,
1.Go to SDSF
2.Give option LOG
| Code: |
COMMAND INPUT ===> LOG SCROLL ===> CSR
DA Active users
I Input queue
O Output queue
H Held output queue
ST Status of jobs
LOG System log
END Exit SDSF
|
3.On the command prompt F IEF125I
4.U will see on the screen like
| Code: |
IEF125I SHEKAR - LOGGED ON - TIME=07.00.15
|
_________________
Shekar
Grow Technically |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed May 10, 2006 8:55 am Post subject: |
|
|
shekar123,
jajularamesh wants the list of ALL users logged on to the system not just him.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
shekar123
Advanced
Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
|
| Posted: Wed May 10, 2006 12:13 pm Post subject: |
|
|
Kolusu,
Won't F ALL IEF125I will give us list of all users logged to the System ?
_________________
Shekar
Grow Technically |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed May 10, 2006 12:18 pm Post subject: |
|
|
| Quote: |
Kolusu,
Won't F ALL IEF125I will give us list of all users logged to the System ?
|
It will give you but remember that you are running against the system log which is huge and dynamically growing.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
nevilh
Beginner
Joined: 11 Aug 2004
Posts: 115
Topics: 0
|
| Posted: Thu May 11, 2006 2:13 am Post subject: |
|
|
| Quote: |
Won't F ALL IEF125I will give us list of all users logged to the System ?
|
What about the people who logoff . You would need to match the IEF125I with the appropriate IEF126I to eliminate people who have already logged off and are no longer active. If you wanted to use SDSF surely the DA OTSU command would be easier. Though personally I would prefer the solution provided by Kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
