How to find the size of the PDS or PS using REXX?

[Jatin Singh]

Hi,

Could anyone please advise me in finding the size of the PDS or PS using REXX? I need to know cylinders occupied by them.

[zprogrammer]

Hi Jatin,

What do you mean by SIZE is it total bytes or Tracks or Cylinders?

[zprogrammer]

Hi,

Try this

Code: Select all

/*REXX*/
ADDRESS ISPEXEC
X = LISTDSI("'"<pds or ps name>"'")
SAY 'DSNAME =    ' SYSDSNAME
SAY 'LRECL  =    ' SYSLRECL
SAY 'BLKSIZE =   ' SYSBLKSIZE
SAY ' USED       ' SYSUNITS '= ' SYSUSED
SAY ' ALLOCATED  ' SYSUNITS '= ' SYSALLOC

[zprogrammer]

Also check this link which tells you what other information you could retrieve

http://publibz.boulder.ibm.com/cgi-bin/ ... T#FIRSTHIT