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
 
Need to obtain VTOC information via REXX exec

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
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    Post subject: Need to obtain VTOC information via REXX exec
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

Active User


Joined: 29 Apr 2008
Posts: 379
Location: Maryland

PostPosted: Thu Jan 11, 2018 7:40 am    Post subject:
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: 8735
Location: Welsh Wales

PostPosted: Thu Jan 11, 2018 12:41 pm    Post subject:
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    Post subject: Need to obtain VTOC information via REXX exec Read more: ht
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

Senior Member


Joined: 14 Mar 2007
Posts: 10535
Location: italy

PostPosted: Thu Jan 11, 2018 10:02 pm    Post subject: Reply to: Need to obtain VTOC information via REXX exec
Reply with quote

http://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: 672
Location: The Universe

PostPosted: Fri Jan 12, 2018 2:19 am    Post subject:
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: 8735
Location: Welsh Wales

PostPosted: Fri Jan 12, 2018 12:43 pm    Post subject:
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    Post subject:
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 User


Joined: 01 Sep 2015
Posts: 232
Location: Denmark

PostPosted: Sat Jan 13, 2018 3:41 pm    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Tue Jan 16, 2018 10:38 am    Post subject: Reply to: Need to obtain VTOC information via REXX exec
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Will this code extract 1 byte from fi... pkmurali CLIST & REXX 8 Sat Nov 10, 2018 11:13 pm
No new posts Error reading file in REXX module ashek15 CLIST & REXX 3 Wed Oct 24, 2018 4:50 am
No new posts Encoding using rexx pkmurali CLIST & REXX 2 Sat Sep 08, 2018 1:05 am
No new posts Can we call QMF proc from REXX ? batu544 CLIST & REXX 6 Fri Aug 03, 2018 11:03 am
No new posts Utility to list Data Set Information Auryn JCL & VSAM 6 Tue Jul 17, 2018 5:03 pm

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