IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need to obtain VTOC information via REXX exec


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
djeffbland

New User


Joined: 11 Jan 2018
Posts: 4
Location: USA

PostPosted: Thu Jan 11, 2018 4:13 am
Reply with quote

A previously used UCB Load module no longer works for me on higher z/OS releases. I'd like to find out how I can obtain the TOTAL tracks of a VOLUME via a REXX exec. As show below by the VTOC command, I need to obtain the 50085 value (total track size of volume).


Code:
Volume . : C98003                                                           
 Command ===>                                                                 
                                                                             
 Unit . . : 3390                                                             
                                                                             
  Volume Data             VTOC Data              Free Space   Tracks    Cyls 
  Tracks . :   50,085     Tracks  . :        30  Size  . . :  50,054   3,336 
  %Used  . :        0     %Used . . :         1  Largest . :  50,040   3,336 
  Trks/Cyls:       15     Free DSCBS:     1,498  Free                         
                                                 Extents . :       2
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2010
Location: USA

PostPosted: Thu Jan 11, 2018 7:40 am
Reply with quote

The demonstration of absolute degradation of "IT experts"... icon_pray.gif 12.gif 36_2_18.gif

Use PARSE statement in REXX to extract any value from any text string.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Jan 11, 2018 12:41 pm
Reply with quote

IEHLIST or DCOLLECT may have the info

Why you need it in REXX ??
Back to top
View user's profile Send private message
djeffbland

New User


Joined: 11 Jan 2018
Posts: 4
Location: USA

PostPosted: Thu Jan 11, 2018 9:23 pm
Reply with quote

expat wrote:
IEHLIST or DCOLLECT may have the info

Why you need it in REXX ??


I should have mentioned that I have tried IEHLIST and DCOLLECT. IEHLIST does not give total tracks and DCOLLECT I have failed to get running related to RACF it seems.
I need it in REXX since I'm running an exec to build JCL. The exec needs to dynamically determine the size of a volume so I know what size to allocate a file system that will use the whole volume (actually a minidisk volume).
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Jan 11, 2018 10:02 pm
Reply with quote

gsf-soft.com/Freeware/RXSMS.html
worth a try
Back to top
View user's profile Send private message
steve-myers

Active Member


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

PostPosted: Fri Jan 12, 2018 2:19 am
Reply with quote

I hate to rain on your parade, but the number of tracks in a volume is not in the VTOC. It may be possible to derive this from VTOC data, but I need to research this more. I may know more in a few hours.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Jan 12, 2018 12:43 pm
Reply with quote

Huh, file system and minidisks
is this VM, Unix services or what

The volume geometry will tell you the number of tracks on a volume, but NOT the number available, but then you haven't mentioned that, but if you know the volume size surely you must also know the space available rather than the space possibly available.

A 3390-3 will have X number of tracks, a 3390-9 will have Y number of tracks etc. etc.
but as for mini disks and file systems .....................
Back to top
View user's profile Send private message
djeffbland

New User


Joined: 11 Jan 2018
Posts: 4
Location: USA

PostPosted: Fri Jan 12, 2018 9:05 pm
Reply with quote

expat wrote:
Huh, file system and minidisks
is this VM, Unix services or what

The volume geometry will tell you the number of tracks on a volume, but NOT the number available, but then you haven't mentioned that, but if you know the volume size surely you must also know the space available rather than the space possibly available.

A 3390-3 will have X number of tracks, a 3390-9 will have Y number of tracks etc. etc.
but as for mini disks and file systems .....................

This is a z/OS image running on a VM system. I need to programmatically determine the total tracks of a given VOLSER.
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Sat Jan 13, 2018 3:41 pm
Reply with quote

If you can issue a command and get the response, then the DS QD,VOL= should tell you. I use the ISPF REXX api for stuff like this. It will generate a lot of trafffic on the console if you do it for all devices, but you shouldnt need to do it very often. Another possible alternative is the old MXI freeware program. It is a bit dated, but the dasd display still works, at least for non-EVA volumes (not sure about EVA). And it has a very nice REXX interface. See cbttape.org.
Back to top
View user's profile Send private message
djeffbland

New User


Joined: 11 Jan 2018
Posts: 4
Location: USA

PostPosted: Mon Jan 15, 2018 11:00 pm
Reply with quote

Willy Jensen wrote:
If you can issue a command and get the response, then the DS QD,VOL= should tell you. I use the ISPF REXX api for stuff like this. It will generate a lot of trafffic on the console if you do it for all devices, but you shouldnt need to do it very often. Another possible alternative is the old MXI freeware program. It is a bit dated, but the dasd display still works, at least for non-EVA volumes (not sure about EVA). And it has a very nice REXX interface. See cbttape.org.

Yeah, tried it, but my ID does not have the console command authority. Will look into MXI. Thanks.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2545
Location: Silicon Valley

PostPosted: Tue Jan 16, 2018 10:38 am
Reply with quote

Quote:
A previously used UCB Load module no longer works

I have not studied this for many years, but it used to be that the UCB contained the device type and model bits. And from that information you had to conclude the device geometry.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top