View previous topic :: View next topic
|
Author |
Message |
geet16
New User
Joined: 22 Dec 2006 Posts: 24 Location: USA
|
|
|
|
Hi,
We working on changing the TSO ID for our mainframe application. Earlier using TSO ID, we were able to identify user and developer and accordingly execute CLIST which in turn directs to PROPER SETUP
PROCEDURE.
Now using new TSOID, we can't differentiate if the individual loggin is user or developer. So, is there any way i can get their profile?
Please let me know your thoughts.
TIA
Regards
Geet |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
why not use the racf primary group to identify the group ?? |
|
Back to top |
|
|
geet16
New User
Joined: 22 Dec 2006 Posts: 24 Location: USA
|
|
|
|
Hi,
We aren't getting much information about RACF from client side. Hence we are looking out for some other work around. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
You can use this approach
go thru the stem and parse accordingly
Code: |
****** ***************************** Top of Data ******************************
000001 /*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000002 /* */
000003 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000004 Trace "O"
000005 _rc = outtrap("lu.")
000006 Address TSO "LU"
000007 _rc = outtrap('off')
000008 do i = 1 to lu.0
000009 say right(i,2) lu.i
000010 End
000011 Exit
****** **************************** Bottom of Data ****************************
|
or
Code: |
****** ***************************** Top of Data ******************************
000001 /* REXX */
000002 Numeric Digits 20
000003 cvt = Storage(10,4)
000004 cvtasvt = Storage(D2x(C2d(cvt)+556),4)
000005 ascbadd = Storage(D2x(C2d(cvtasvt)+532),4)
000006 ascbasxb = Storage(D2x(C2d(ascbadd)+108),4)
000007 asxbsenv = Storage(D2x(C2d(ascbasxb)+200),4)
000008 aceefcgp = Storage(D2x(C2d(asxbsenv)+116),4)
000009 cgrplen = Storage(D2x(C2d(aceefcgp)+5),3)
000010 cgrplen = C2d(cgrplen)
000011 cgrp = Storage(D2x(C2d(aceefcgp)+32),(cgrplen-32))
000012 groups = ''
000013 Do loop = 1 to cgrplen by 24
000014 groups = groups||' '||Strip(Substr(cgrp,loop,8))
000015 Say groups
000016 end
****** **************************** Bottom of Data ****************************
|
or
http://www.herbpayne.com/2007/04/story/herbpayne/rexx-parse-racf-lu |
|
Back to top |
|
|
|