Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Mainframe Blocks to Tracks conversion

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
upendrasri

New User


Joined: 28 Sep 2017
Posts: 49
Location: India

PostPosted: Sat Nov 18, 2017 10:52 am    Post subject: Mainframe Blocks to Tracks conversion
Reply with quote

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.
Back to top
View user's profile Send private message

steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 587
Location: The Universe

PostPosted: Sat Nov 18, 2017 12:04 pm    Post subject:
Reply with quote

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.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Conversion of UTF-8 to EBCDIC muralikrishnan_new COBOL Programming 1 Tue Nov 21, 2017 5:33 pm
No new posts NDM 300 files from mainframe to linux shreya19 All Other Mainframe Topics 2 Thu Oct 26, 2017 11:40 am
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts Mainframe scheduling tool ddhar Compuware & Other Tools 2 Wed Sep 27, 2017 12:48 am
No new posts How do I create a mainframe monitorin... anjali.bisht All Other Mainframe Topics 4 Fri Sep 01, 2017 2:20 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us