Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to find the attributes of datset

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
prajal123

New User


Joined: 06 Sep 2006
Posts: 3

PostPosted: Mon Oct 09, 2006 10:52 am    Post subject: How to find the attributes of datset
Reply with quote

Hi all,

I wanted to find the total number of allocated and used space of dataset using REXX. And wanted to used that figures in next programmimg.

Please suggest me how can I do this?
Back to top
View user's profile Send private message

bonniem

New User


Joined: 09 Aug 2005
Posts: 67

PostPosted: Mon Oct 09, 2006 11:20 am    Post subject: Re: How to find the attributes of datset
Reply with quote

Issue the command
Code:

LISTDSI("'"DSN"'" RECALL)


Then check the values of variables
Code:

SYSALLOC        | Allocation, in space units
SYSUSED         | Allocation used, in space units
Back to top
View user's profile Send private message
prajal123

New User


Joined: 06 Sep 2006
Posts: 3

PostPosted: Tue Oct 10, 2006 5:08 pm    Post subject: Re: How to find the attributes of datset
Reply with quote

Hi bonniem,

Thanks for the splution. BUt I am not gerriong the values in SYSALLOC & SYSUSED.

Could you please provide me some another option.
Back to top
View user's profile Send private message
bonniem

New User


Joined: 09 Aug 2005
Posts: 67

PostPosted: Tue Oct 10, 2006 5:23 pm    Post subject: Re: How to find the attributes of datset
Reply with quote

try using this piece of code and then get values from the variables.

Code:

X = LISTDSI("'"DSN"'" RECALL)                                         
CC  = SYSREASON                                                       
IF CC > 0 THEN DO                                                     
   SELECT                                                             
     WHEN CC  = 19 THEN DO                                             
       ZEDSMSG = "MULTI-VOLUME DATASET"                               
       ZEDLMSG = DSN ": IS A MUTLI-VOLUME DATASET"                     
       END                                                             
     WHEN CC  = 9 THEN DO                                             
       ZEDSMSG = "MIGRATED"                                           
       ZEDLMSG = DSN ": IS MIGRATED TO NONDASD DEVICE"                 
       END                                                             
     WHEN CC  = 8 THEN DO                                             
       ZEDSMSG = TAPE                                                 
       ZEDLMSG = DSN ": IS NOT ON A DIRECT ACCESS DEVICE"             
       END                                                             
     WHEN CC  = 5 THEN DO                                             
       ZEDSMSG = "NOT CATLOGUED"                                       
       ZEDLMSG = DSN ": NOT CATLOGUED LOCATE MACRO ERROR"             
       END                                                             
     OTHERWISE DO                                                     
       ZEDSMSG = "RC: " CC                                             
       ZEDLMSG = "LOOK UP REASON CODE IN MVS REXX REFERENCE MANUAL PAGE
       END                                                             
    END   /* END SELECT */                                             
   END                                                                 
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts How to find the first monday of the w... abdulrafi COBOL Programming 10 Fri Nov 25, 2016 3:24 pm
No new posts Find out a active PGM jpsager JCL & VSAM 10 Fri Oct 07, 2016 4:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us