> -----Original Message-----
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Dave Cartwright
> Sent: Tuesday, May 16, 2006 9:22 AM
> To: [email protected]
> Subject: Valid TSO Users
> 
> 
> I would like to report on those Users who are defined to 
> RACF, who have a 
> TSO segment and who are not revoked. Unfortunately our RACF 
> DB contains 
> many revoked Users and many Users without a TSO segment (IMS 
> Users). If I 
> unload the Database there are different record types for 
> Userid and TSO 
> segment, so it is not easy to process. I would accept a 
> report of Users 
> with TSO segments who ARE revoked.
> 
> Anybody know how to do it?
> 
> Dave

Do you have DB2? If so then use the RACDBULD sample in SYS1.SAMPLIB to
load the RACF db into DB2 tables. You can then run the following SQL:

SELECT A.USBD_NAME, A.USBD_PROGRAMMER
FROM USER_BD AS A
INNER JOIN USER_TSO_DATA AS B
ON A.USBD_NAME = B.UTSO_NAME
WHERE A.USBD_REVOKE = 'N'
;

If you don't have DB2, but do have SAS, you can put the data into a SAS
database and do the previous SQL with PROC SQL.

If you have none of the above, you can use SORT to select the unload
record type 0220 and do a simple report on it. You might even be able to
use ICETOOL's SPLICE to "merge" the data from the unload record type
0100 and 0220 and create a report using that. I haven't tried this.

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and its
content is protected by law.  If you are not the intended recipient, you
should delete this message and are hereby notified that any disclosure,
copying, or distribution of this transmission, or taking any action
based on it, is strictly prohibited. 
 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to