IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Scan datasets created by a Racf id


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Mon Dec 07, 2009 11:56 am
Reply with quote

Hi,

I am looking out for a tool/pgm etc to scan for the datasets created by a particular racf id in past one month say. We need to incorporate this tool in our project so that all the unwanted datasets/pds etc could be deleted thus saving the CPU consumed in saving these datasets on DASD. This is all done as a part of demand management initiative. Please let me know if there is such mechanism available. Also all the members are open to give me any suggestions towards saving of mainframe CPU.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Mon Dec 07, 2009 2:47 pm
Reply with quote

Quote:
all the unwanted datasets/pds etc could be deleted thus saving the CPU consumed in saving these datasets on DASD
Grumble...How the removel of unwanted DSNs from DASD would save CPU? It might save you some DASD cost! icon_confused.gif
Quote:
I am looking out for a tool/pgm etc to scan for the datasets created by a particular racf id in past one month say
How will you find the last month thing, I can't help much though there are many examples in the forum is you search them.

To list the DSNs starting with some HLQ you can use IDCMAS LISTCAT but that gives nasty output from this exercise per se. I'd suggest to use:
Code:
//STEP10  EXEC PGM=IKJEFT1A                           
//SYSPROC   DD DSN=SYS1.SAMPLIB,DISP=SHR               
//SYSTSPRT  DD DSN=...HLQ.LIST.ALL,                   
//             DISP=(NEW,CATLG,CATLG),                 
//             UNIT=DISK,SPACE=(CYL,(50,50),RLSE),     
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)     
//SYSTSIN   DD *                                       
%IGGCSIRX                                             
HLQ.**                                             
/*                 
Back to top
View user's profile Send private message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Mon Dec 07, 2009 2:53 pm
Reply with quote

First of alll sorry for the typo error... I actually meant to say DASD charges and not the CPU...

Thanks for the info.. will surely try what you suggested....

Secondly ... could you suggest of any more ways for saving CPU or DASD charges....
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Mon Dec 07, 2009 3:15 pm
Reply with quote

Quote:
could you suggest of any more ways for saving CPU or DASD charges....
That's an over broad question, to start with. Suggest you search the forum, you'll get many valuable suggestion around here -- start from them.
Back to top
View user's profile Send private message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Mon Dec 07, 2009 3:24 pm
Reply with quote

I just ran the jcl but the job ended with RC=12 and the output dataset contained "READY
%IGGCSIRX
IKJ56500I COMMAND IGGCSIRX NOT FOUND"
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Mon Dec 07, 2009 3:26 pm
Reply with quote

icon_smile.gif, please show the JCL you've used.
Back to top
View user's profile Send private message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Mon Dec 07, 2009 3:28 pm
Reply with quote

Here is the jcl:

Code:
//TSTDM000 JOB (@),'HM1112',MSGCLASS=R,         
//             CLASS=A,                         
//         NOTIFY=&SYSUID                       
//*
//TSTDEL  EXEC PGM=IKJEFT1A,                           
//            DYNAMNBR=20,                             
//            REGION=4M                               
//*                                                   
//SYSTSPRT  DD DSN=PT3289A.DSN.ALL,                   
//             DISP=(NEW,CATLG,CATLG),                 
//             UNIT=DISK,SPACE=(CYL,(50,50),RLSE),     
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)     
//*                                                   
//SYSPRINT DD  SYSOUT=*                               
//SYSUDUMP DD  SYSOUT=*                               
//SYSTSIN  DD  *                                       
%IGGCSIRX                                             
NB4204A.**                       
/*
//*

Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon Dec 07, 2009 4:53 pm
Reply with quote

Now look at the JCL given by Anuj and have a little game of "Spot the difference"
Back to top
View user's profile Send private message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Mon Dec 07, 2009 4:57 pm
Reply with quote

I do not see any difference... please let me know if any[/code]
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Mon Dec 07, 2009 4:57 pm
Reply with quote

Hey, and as usual (in india) they are not 6 this time! icon_biggrin.gif
Back to top
View user's profile Send private message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Mon Dec 07, 2009 4:59 pm
Reply with quote

I did not get you sir.... sorry for the trouble...
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Dec 07, 2009 5:04 pm
Reply with quote

medhachaudhari wrote:
I do not see any difference... please let me know if any[/code]



easier to show you the lines that are the same:
Code:

//SYSTSPRT  DD DSN=...HLQ.LIST.ALL,                   
//             DISP=(NEW,CATLG,CATLG),                 
//             UNIT=DISK,SPACE=(CYL,(50,50),RLSE),     
//             DCB=(RECFM=FB,LRECL=133,BLKSIZE=0)     
//SYSTSIN   DD *                                       
%IGGCSIRX                                             
HLQ.**                                             
/*         


that's the only thing that you coded the same as Anuj.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon Dec 07, 2009 5:12 pm
Reply with quote

medhachaudhari wrote:
I do not see any difference... please let me know if any[/code]

I can recommend a great optician icon_rolleyes.gif
Back to top
View user's profile Send private message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Mon Dec 07, 2009 5:22 pm
Reply with quote

Actually .. I had deliberately commented the library step....as I did not find the above pgm in SYS1.SAMPLIB ... but I was wrong...including the library actually helped... thanks so much for your help.. I definitely dont need an optician....

One more help... could I come to know the creation date here..
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Mon Dec 07, 2009 5:44 pm
Reply with quote

You will need to change the REXX code to include the creation date

Documentation for CSI is HERE !
Back to top
View user's profile Send private message
medhachaudhari

New User


Joined: 07 Dec 2009
Posts: 18
Location: mumbai

PostPosted: Tue Dec 08, 2009 9:12 am
Reply with quote

Thanks....
Back to top
View user's profile Send private message
MBabu

Active User


Joined: 03 Aug 2008
Posts: 400
Location: Mumbai

PostPosted: Tue Dec 08, 2009 9:54 am
Reply with quote

ISPF data set list has both SORT CREATED and SAVE commands. You can't find out who actually created a data set without SMF records (or some program that saved that info created from SMF records)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts RACF cost vs. ACF2 cost IBM Tools 2
No new posts Merging 2 datasets into one DFSORT/ICETOOL 1
No new posts CICS Access to RACF CICS 2
No new posts PL/I, VB Datasets and the RDW PL/I & Assembler 4
Search our Forums:

Back to Top