Page 2 of 3

Re: Rexx tool for cost saving

PostPosted: Wed Sep 05, 2012 12:59 am
by dick scherrer
Hello,

I need to do this task using REXX also...
Why does someone believe this must be done using REXX :?
And no, this is Not the requirement . . . The requirement is to get the needed information.

But dont we have any REXX command to get the last reference of a dataset ?
No.
Keep in mind that unless the statistics are always generated/updated and no one modifies them (yes, that too can be done) they would be worthless for what you want.

Re: Rexx tool for cost saving

PostPosted: Wed Sep 05, 2012 12:44 pm
by NicC
Why would you think that Rexx has a command to do that? Rexx is a general purpose programming language running on many different platforms including mobile phones so why should it have keywords/builtin functions to query stuff belonging to one specific platform? A quick browse of the Rexx language reference manual would have informed you. Yes, there are specific mainframe extensions but a quick browse through their manual would have told you the same thing.

Re: Rexx tool for cost saving

PostPosted: Thu Sep 06, 2012 7:45 pm
by balamurali cl
Hi All,

I left REXX and used the below JCl
//DSS     EXEC PGM=ADRDSSU,REGION=0M,
//             PARM='TYPRUN=NORUN'   
//SYSPRINT  DD SYSOUT=*               
//SYSIN     DD *                     
   DUMP -                             
       DATASET( -                     
      INCLUDE( -                     
           BALU.** -                 
            ) -                       
       BY( REFDT LT (*,-XXX) ) -     
        ) -                           
    OUTDDNAME(OUT)                   
//OUT       DD SYSOUT=*               


But I got return code 8
and error msg below

TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP '
2012.250 07:14:51 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED
INVALID 'BY' CRITERIA
2012.250 07:14:51 TASK NOT SCHEDULED DUE TO ERROR. TASK RETURN CODE 0008
2012.250 07:14:51 DFSMSDSS PROCESSING COMPLETE. HIGHEST RETURN CODE IS 0008 FRO
SYNTAX
TASK 001


Please help and REFDT LT (*,-XXX) ) - refers to date ?

Can you pls expian me? Can I saw the ADRDSSU manual but didnt get the above commands. Can you pls help me to get the manual

Re: Rexx tool for cost saving

PostPosted: Thu Sep 06, 2012 8:10 pm
by enrico-sorichetti
Can I saw the ADRDSSU manual but didnt get the above commands. Can you pls help me to get the manual


one of my previous replies had the link to the DFDSS manuals

here they are again
guide
http://publibz.boulder.ibm.com/cgi-bin/ ... 0117165748
reference
http://publibz.boulder.ibm.com/cgi-bin/ ... 0227163444

not the latest ones but more than enough
click on the second link and search for REFDT
to arrive
http://publibz.boulder.ibm.com/cgi-bin/ ... T#FIRSTHIT

and use
 //OUT DD DUMMY


o a real dataset name to create a true dump

Re: Rexx tool for cost saving

PostPosted: Thu Sep 06, 2012 9:48 pm
by Pedro
BY( REFDT LT (*,-XXX) ) -     


I am surprised that the IBM manual is not that clear! </sarcasm> The explanation of the BY( ) syntax could be better.

Rather than 'XXX', you should provide a numeric value.

Hint:
get all the datasets which are not referenced from 365 days

Re: Rexx tool for cost saving

PostPosted: Mon Sep 10, 2012 3:14 pm
by balamurali cl
Hi All,

Thanks for your help!!!!

I have used the below code
//DSS     EXEC PGM=ADRDSSU,REGION=0M   
//SYSPRINT  DD SYSOUT=*                 
//SYSIN     DD *                       
   DUMP -                               
       DATASET( -                       
      INCLUDE( -                       
           abc.** -                 
            ) -                         
       BY((REFDT,LT,*, -365) -           
        )) -                           
    OUTDDNAME(OUT)                     
//OUT       DD DUMMY                   


Here I am getting the datasets list which are not referenced from 365 days. But even this is checking only the datasets which are not migrated. I want to search even the migrated datasets but the datasets should not be recalled.

If the datasets is not migrated the above is working fine. I have searched the other threds but could not find a solution for this. Pls help me.

Re: Rexx tool for cost saving

PostPosted: Mon Sep 10, 2012 4:40 pm
by enrico-sorichetti
for migrated datasets You will have to do it thru the appropriate HSM commands!

for example a DCOLLECT on the MCDS and a rexx script to process the output and issue the Hdelete commands
not overlry difficult

see file 206 at www.cbttape.org
for working snippets on how to process dcollect data with rexx

Re: Rexx tool for cost saving

PostPosted: Mon Sep 10, 2012 7:47 pm
by balamurali cl
Hi Enrico,

I am not able to FTP the file 206 to my mainframes.

I am trying to FTP in command prompt and even I try in binary mode the FTP process is getting abend.

Cn you please tell me the commands and process to get the information of migrated datasets. Pls help me!!!!

Re: Rexx tool for cost saving

PostPosted: Mon Sep 10, 2012 8:01 pm
by dick scherrer
Hello,

Suggest you ftp to your desktop rather than your mainframe. Then look at what you have downloaded.

If the file will not download, post the reason(s) why rather than saying "is getting abend".

Re: Rexx tool for cost saving

PostPosted: Mon Sep 10, 2012 8:19 pm
by balamurali cl
I am able to download to my desktop as XMI file .

But I dont Know how to open an XMI file?