upendrasri
Active User
Joined: 28 Sep 2017
Posts: 124
Location: India
|
|
|
|
Hi,
I have created a datasest as below. Space allocations are in Blocks.
Command ===>
More:
Data Set Name . . . . : TEST.ABCD.OUT1
General Data Current Allocation
Management class . . : TESTPDS Allocated blocks . : 10
Storage class . . . : STANDARD Allocated extents . : 1
Volume serial . . . : T0S101
Device type . . . . : 3390
Data class . . . . . : PDSNCOMP
Organization . . . : PS Current Utilization
Record format . . . : FB Used blocks . . . . : 0
Record length . . . : 80 Used extents . . . : 0
Block size . . . . : 27920
1st extent blocks . : 10
Secondary blocks . : 200 Dates
Data set name type : Creation date . . . : 2017/11/17
In 3.4 if I press F11 , Dataset space allocation showed in Tracks.
Command - Enter "/" to select action Tracks %Used XT
-------------------------------------------------------------------------------
TEST.ABCD.OUT1 5 0
Can somebody assist me , Blocks to Tracks conversion?
Thanks. |
|
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
Determine the number of blocks that will fit on a track. This is non trivial, though 27920 is easy; there are two potential blocks per track, so the first extent - 10 blocks is equivalent to 10 blocks / 2 blocks per track, or 5 tracks.
| Code: |
Data Set Name . . . . : XXXXXX.TEST.BLOCK
General Data Current Allocation
Management class . . : **None** Allocated blocks . : 10
Storage class . . . : USER Allocated extents . : 1
Volume serial . . . : XXXX33
Device type . . . . : 3390
Data class . . . . . : **None** Current Utilization
Organization . . . : NONE Used blocks . . . . : 0
Record format . . . : ? Used extents . . . : 0
Record length . . . : 0
Block size . . . . : 27920
1st extent blocks . : 10
Secondary blocks . : 5
Data set name type :
Creation date . . . : 2017/11/18 Referenced date . . : ***None***
Expiration date . . : ***None*** |
Sometimes it is more difficult. For example, a data set allocated with this JCL -
| Code: |
//A EXEC PGM=IEFBR14
//TEST DD DISP=(MOD,DELETE),UNIT=SYSALLDA,SPACE=(TRK,0),
// DSN=&SYSUID..TEST.BLOCK
//B EXEC PGM=IEFBR14
//TEST DD DISP=(,CATLG),UNIT=SYSDA,SPACE=(27920,(10,5,3)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160),DSN=*.A.TEST |
can yield
| Code: |
Data Set Name . . . . : XXXXXX.TEST.BLOCK
General Data Current Allocation
Management class . . : **None** Allocated blocks . : 48
Storage class . . . : USER Allocated extents . : 1
Volume serial . . . : XXXX13 Maximum dir. blocks : 3
Device type . . . . : 3390
Data class . . . . . : **None**
Organization . . . : PO Current Utilization
Record format . . . : FB Used blocks . . . . : 1
Record length . . . : 80 Used extents . . . : 1
Block size . . . . : 6160 Used dir. blocks . : 1
1st extent blocks . : 48 Number of members . : 0
Secondary blocks . : 5
Data set name type : PDS
Creation date . . . : 2017/11/18 Referenced date . . : ***None***
Expiration date . . : ***None*** |
Using the table here you can determine there are 8 records per track, so 48 / 8 = 6 tracks.
Didn't the SPACE parameter imply 5 tracks? 10 / 2 = 5! Yes, but JCL added an additional track for the directory.
An alert reader - and I'd bet my mortgage payment - a sucker bet as the mortgage has been paid off - that no one will come up with at least two obvious questions. |
|
