View previous topic :: View next topic
|
Author |
Message |
prajal123
New User
Joined: 06 Sep 2006 Posts: 3
|
|
|
|
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 |
|
|
bonniem
New User
Joined: 09 Aug 2005 Posts: 67
|
|
|
|
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 |
|
|
prajal123
New User
Joined: 06 Sep 2006 Posts: 3
|
|
|
|
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 |
|
|
bonniem
New User
Joined: 09 Aug 2005 Posts: 67
|
|
|
|
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 |
|
|
|