Rexx tool for cost saving



IBM's Command List programming language & Restructured Extended Executor

Re: Rexx tool for cost saving

Postby dick scherrer » Wed Sep 05, 2012 12:59 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Re: Rexx tool for cost saving

 

Re: Rexx tool for cost saving

Postby NicC » Wed Sep 05, 2012 12:44 pm

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.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2690
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisys (almost)
Has thanked: 4 times
Been thanked: 105 times

Re: Rexx tool for cost saving

Postby balamurali cl » Thu Sep 06, 2012 7:45 pm

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
balamurali cl
 
Posts: 36
Joined: Mon Sep 03, 2012 9:01 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Rexx tool for cost saving

Postby enrico-sorichetti » Thu Sep 06, 2012 8:10 pm

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
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: Rexx tool for cost saving

Postby Pedro » Thu Sep 06, 2012 9:48 pm

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
Pedro Vera
User avatar
Pedro
 
Posts: 569
Joined: Thu Jul 31, 2008 9:59 pm
Location: Silicon Valley
Has thanked: 0 time
Been thanked: 39 times

Re: Rexx tool for cost saving

Postby balamurali cl » Mon Sep 10, 2012 3:14 pm

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.
balamurali cl
 
Posts: 36
Joined: Mon Sep 03, 2012 9:01 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Rexx tool for cost saving

Postby enrico-sorichetti » Mon Sep 10, 2012 4:40 pm

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
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: Rexx tool for cost saving

Postby balamurali cl » Mon Sep 10, 2012 7:47 pm

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!!!!
balamurali cl
 
Posts: 36
Joined: Mon Sep 03, 2012 9:01 pm
Has thanked: 2 times
Been thanked: 0 time

Re: Rexx tool for cost saving

Postby dick scherrer » Mon Sep 10, 2012 8:01 pm

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".
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6304
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 91 times

Re: Rexx tool for cost saving

Postby balamurali cl » Mon Sep 10, 2012 8:19 pm

I am able to download to my desktop as XMI file .

But I dont Know how to open an XMI file?
balamurali cl
 
Posts: 36
Joined: Mon Sep 03, 2012 9:01 pm
Has thanked: 2 times
Been thanked: 0 time

PreviousNext

Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post