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
 

 

To check PROFILE of associated TSO ID

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
geet16

New User


Joined: 22 Dec 2006
Posts: 24
Location: USA

PostPosted: Tue Feb 05, 2008 6:32 pm    Post subject: To check PROFILE of associated TSO ID
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10277
Location: italy

PostPosted: Tue Feb 05, 2008 6:37 pm    Post subject: Reply to: To check PROFILE of associated TSO ID
Reply with quote

why not use the racf primary group to identify the group ??
Back to top
View user's profile Send private message
geet16

New User


Joined: 22 Dec 2006
Posts: 24
Location: USA

PostPosted: Tue Feb 05, 2008 6:54 pm    Post subject: Reply to: To check PROFILE of associated TSO ID
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10277
Location: italy

PostPosted: Tue Feb 05, 2008 7:19 pm    Post subject: Reply to: To check PROFILE of associated TSO ID
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts RACF profile access vasanthz All Other Mainframe Topics 11 Fri Sep 23, 2016 5:51 am


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