MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Unused files

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Data Management
View previous topic :: View next topic  
Author Message
radkrish
Beginner


Joined: 12 Aug 2005
Posts: 102
Topics: 19

PostPosted: Tue Jul 18, 2006 3:48 am    Post subject: Unused files Reply with quote

How to find the list of all unused files in Mainframes.

regds,
krish
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12365
Topics: 75
Location: San Jose

PostPosted: Tue Jul 18, 2006 7:59 am    Post subject: Reply with quote

radkrish,

Please SEARCH before posting. Check this link

http://www.mvsforums.com/helpboards/viewtopic.php?t=6285&highlight=typrun

Hope this helps....

Cheers

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
radkrish
Beginner


Joined: 12 Aug 2005
Posts: 102
Topics: 19

PostPosted: Wed Jul 19, 2006 2:01 am    Post subject: Reply with quote

kolusu,

Thanks for your reply.

But I want to list the dataset.The posting shows about deleting the datasets.
And when I run without DELETE keyword it shows Maxcc=8.
Code:

PAGE 0001     5695-DF175  DFSMSDSS V1R3.0  DATA SET SERVICES     2006.200 03:00
ADR031I (SCH)-PRIME(01), TYPRUN=NORUN REQUESTED. TASKS WILL EXECUTE IN NORUN MOD
  DUMP DS(INCL(dumm.**)                                 -                       
   BY((REFDT,LE,*,-30))                                 -                       
   OUTDD(PSEUDO)                                        -                       
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP '       
ADR109I (R/I)-RI01 (01), 2006.200 03:00:28 INITIAL SCAN OF USER CONTROL STATEMEN
ADR129E (001)-RI01 (01), KEYWORD 'OUTDD ' IS IMPROPER                           
ADR182T (001)-RI03 (01), INPUT STREAM END-OF-FILE FOUND BEFORE END OF COMMAND   
ADR012I (SCH)-DSSU (01), 2006.200 03:00:29 DFSMSDSS PROCESSING COMPLETE. HIGHEST
                         SYNTAX                                                 
                         TASK    001
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12365
Topics: 75
Location: San Jose

PostPosted: Wed Jul 19, 2006 5:35 am    Post subject: Reply with quote

Quote:

OUTDD(PSEUDO) -


Remove the Hyphen at the end on the last statement. The hyphen is used as continuation character.

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
radkrish
Beginner


Joined: 12 Aug 2005
Posts: 102
Topics: 19

PostPosted: Wed Jul 26, 2006 12:24 am    Post subject: Reply with quote

though it shows MAXCC=8

Code:
********************************* TOP OF DATA **********************************
PAGE 0001     5695-DF175  DFSMSDSS V1R3.0  DATA SET SERVICES     2006.207 01:19
ADR031I (SCH)-PRIME(01), TYPRUN=NORUN REQUESTED. TASKS WILL EXECUTE IN NORUN MOD
  DUMP                   /* COMMAND DUMP             */ -                       
   DS(INCL(RAD.**)      /* INCLUDE ALL DSN WITH HLQ */ -                       
   BY((REFDT,LE,*,-30))  /* SELECT IF REFDT LE 30    */ -                       
   OUTDD(PSEUDO)         /* OUT DD NAME              */                         
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP '       
ADR109I (R/I)-RI01 (01), 2006.207 01:19:27 INITIAL SCAN OF USER CONTROL STATEMEN
ADR129E (001)-RI01 (01), KEYWORD 'OUTDD ' IS IMPROPER                           
ADR131E (001)-RI03 (01), ABOVE TEXT BYPASSED UNTIL NEXT COMMAND                 
ADR017E (001)-CLTSK(01), 2006.207 01:19:27 TASK NOT SCHEDULED DUE TO ERROR. TASK
ADR012I (SCH)-DSSU (01), 2006.207 01:19:27 DFSMSDSS PROCESSING COMPLETE. HIGHEST
                         SYNTAX                                                 
                         TASK    001                                           
******************************** BOTTOM OF DATA ********************************


My requirement is to find out the datasets which are not referenced in the last 60 days.
Code:

 //STEP0100 EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN'           
 //SYSPRINT DD SYSOUT=*                                     
 //PSEUDO   DD DUMMY                                       
 //SYSIN    DD *                                           
   DUMP                   /* COMMAND DUMP             */ - 
    DS(INCL(RAD.**)      /* INCLUDE ALL DSN WITH HLQ */ - 
    BY((REFDT,LE,*,-30))  /* SELECT IF REFDT LE 30    */ - 
    OUTDD(PSEUDO)         /* OUT DD NAME              */   
 /*                                                         
//


what was wrong in OUTDD...

regds,
krish
Back to top
View user's profile Send private message
radkrish
Beginner


Joined: 12 Aug 2005
Posts: 102
Topics: 19

PostPosted: Wed Jul 26, 2006 12:25 am    Post subject: Reply with quote

Quote:
BY((REFDT,LE,*,-30))


Code:
BY((REFDT,LE,*,-60))
Back to top
View user's profile Send private message
mfuser
Banned


Joined: 01 Mar 2005
Posts: 105
Topics: 58

PostPosted: Wed Jul 26, 2006 12:32 am    Post subject: Reply with quote

Kolusu,

I am also getting RC=8 and i am getting the same error message as radkrish is getting.Can you let us know how to solve the problem ?
Code:

ADR129E (001)-RI01 (01), KEYWORD 'OUTDD ' IS IMPROPER 
Back to top
View user's profile Send private message
nevilh
Beginner


Joined: 11 Aug 2004
Posts: 115
Topics: 0

PostPosted: Wed Jul 26, 2006 3:38 am    Post subject: Reply with quote

have you tried BY((REFDT,LE,*,-60))) three close brackets at end not two
Back to top
View user's profile Send private message
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 525
Topics: 89
Location: Bangalore India

PostPosted: Wed Jul 26, 2006 4:00 am    Post subject: Reply with quote

nevilh,

Why do we need three brackets as there are opening two , so we need to close two only ?
_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
radkrish
Beginner


Joined: 12 Aug 2005
Posts: 102
Topics: 19

PostPosted: Wed Jul 26, 2006 4:27 am    Post subject: Reply with quote

nevilh,
you are right.I did wondered abt the missing close bracket.Now its running fine with three brackets.

regds,
krish
Back to top
View user's profile Send private message
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 525
Topics: 89
Location: Bangalore India

PostPosted: Wed Jul 26, 2006 5:20 am    Post subject: Reply with quote

nevilh,

You are correct.I did not look in for the matching DS( to have three brackets.Thanks.
_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Data Management All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group