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

Largest Extent on a volume.


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Mon Sep 13, 2010 3:31 pm
Reply with quote

Hi,

Could you please let me know how to find the Largest available Extent on DASD Volume.
I understand that this can be got from V type records, but dont have access to perform DCOLLECT. ISMF is not available too on this LPAR and to add there is no Quickref. I tried IEHLIST LISTVTOC but I think it does not have volume level information, it produced a dataset level detail.

One thing that is available was 3.4 option V Display VTOC information. Could you please let me know how to get this data using REXX.

Thanks,
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Mon Sep 13, 2010 4:31 pm
Reply with quote

Hi,

if you have FILEAID, you can use the following to capture the information you require

Code:
//FILEAID  EXEC PGM=FILEAID               
//SYSPRINT DD SYSOUT=*                   
//SYSLIST  DD SYSOUT=*                   
//SYSIN    DD *                           
$$DD01 VTOCDSN UNIT=3390,VOLSER=(XXX)   
/*                                       
where XXX is the prefix of volumes to be listed

Gerry
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Mon Sep 13, 2010 4:33 pm
Reply with quote

Thanks for the response,
but there's no FILEAID either on the LPAR.

Regards,
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Mon Sep 13, 2010 4:50 pm
Reply with quote

Hi,

using this with IEHLIST you can get the information you require at the bottom of the listing
Code:
  LISTVTOC VOL=SYSDA=XXXXXX,FORMAT   


Gerry
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Tue Sep 14, 2010 10:53 am
Reply with quote

Gerry,
Thanks it helped (:


Code:
VPSM               A = NUMBER OF TRKS IN ADDITION TO FULL CYLS IN THE EXTENT   
       TRK  FULL          TRK  FULL          TRK  FULL          TRK  FULL       
      ADDR  CYLS   A     ADDR  CYLS   A     ADDR  CYLS   A     ADDR  CYLS   A   
        166      0  6      175      0  2      208      0  2      355      0  5 
        885      0  7      913      5  2     1020      0  7     1620      6 12 
                              SYSTEMS SUPPORT UTILITIES---IEHLIST               
       2553      1 20     2593      3  2     2655      9  8     3717      5  6 
      12199    870 13    26100     60  9    45126    330  9                     
 THERE ARE  1359 EMPTY CYLINDERS PLUS   170  EMPTY TRACKS ON THIS VOLUME       
 THERE ARE    5214 BLANK DSCBS IN THE VTOC ON THIS VOLUME                       
 THERE ARE    286 UNALLOCATED VIRS IN  THE INDEX                               


870 was the largest extent

Thanks,
Back to top
View user's profile Send private message
Pete Wilson

Active Member


Joined: 31 Dec 2009
Posts: 580
Location: London

PostPosted: Tue Sep 14, 2010 7:31 pm
Reply with quote

ISMF option 2 DASDLIST, or 6 Storgrp then LISTVOL can also provide this, and both can also be run in a Naviquest batch job form as well.

Quickref S=volmask can as well
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Tue Sep 14, 2010 8:35 pm
Reply with quote

Hi Pete,
Thx for the Naviquest one.
I have done Quickref & ISMF on other LPARs but this one did not have QW & ISMF on'em.

Regards,
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Tue Sep 14, 2010 9:20 pm
Reply with quote

Hi,
I tried the below REXX for IEHLIST REXX,
Code:

/*REXX*/                                                                               
"ALLOC DD(SYSPRINT) NEW REU SPACE(1,1) CYLINDERS RELEASE"
"ALLOC DD(VOL1) VOLUME(ABCD) SHR"                 
"ALLOC DD(SYSIN) NEW REU"                               
QUEUE '  LISTVTOC VOL=SYSDA=ABCD,FORMAT'           
"EXECIO" QUEUED() "DISKW SYSIN (FINIS"                                       
ADDRESS LINK 'IEHLIST'                               
"EXECIO * DISKR SYSPRINT (STEM RESULT. FINIS"       
"FREE DD(SYSIN,VOL1,SYSPRINT)"                       
DO I = 1 TO RESULT.0                                 
  SAY 'RESULT ' RESULT.I                               
END                                                 
EXIT


But the REXX is failing with,

Code:
IKJ56701I MISSING DATA SET NAME+                 
IKJ56701I MISSING NAME OF DATA SET TO BE ALLOCATED
IKJ56247I FILE VOL1 NOT FREED, IS NOT ALLOCATED   

Please let me know how to correct the Alloc statement.

Thanks,
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Sep 14, 2010 9:28 pm
Reply with quote

Vasanthz,
have you run this rexx with trace?
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Tue Sep 14, 2010 10:30 pm
Reply with quote

Hi,
Below is the trace log,

Code:
      5 *-* "ALLOC DD(VOL1) VOLUME(ABCD) SHR"       
        >>>   "ALLOC DD(VOL1) VOLUME(ABCD) SHR"     
 IKJ56701I MISSING DATA SET NAME+                     
 IKJ56701I MISSING NAME OF DATA SET TO BE ALLOCATED   
        +++ RC(12) +++                               


Thanks,
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Tue Sep 14, 2010 10:48 pm
Reply with quote

The syntax diagram in section 1.7.4 of the TSO/E Command Reference manual indicates that the DSNAME parameter is not optional in the ALLOC command.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Tue Sep 14, 2010 10:57 pm
Reply with quote

Hi Robert,
The JCL statement was
Code:
//VOL1     DD VOL=SER=ABCD,DISP=SHR

So I thought I could code the Alloc statement that way.
What could be the alternative?
Thanks,
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Sep 14, 2010 11:04 pm
Reply with quote

'cuse my ignorance,
but I thought you did not need to do ALLOC in a REXX run in batch,
if the DDNAME - used on the EXCIO - was allocated by JES - by virtue of a DD Statement in the Step JCL
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Tue Sep 14, 2010 11:08 pm
Reply with quote

Vasanth, there are some differences between TSO ALLOC commands and JCL DD statements. You've just found one of them.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Tue Sep 14, 2010 11:08 pm
Reply with quote

Hi,
I am trying the foreground option in REXX with TSO EX ' '.
Batch job worked for IEHLIST, but interactive REXX was having the error.


Quote:
there are some differences between TSO ALLOC commands and JCL DD statements

icon_eek.gif icon_eek.gif NOoooo!!!!

Thanks,
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue Sep 14, 2010 11:11 pm
Reply with quote

excuuuuuuuuuuuse me for living.

i misinterpreted (actually, did not have a clue) what was going on.
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Wed Sep 15, 2010 1:53 am
Reply with quote

When you code JCL statement
Code:
//VOL1     DD VOL=SER=ABCD,DISP=SHR
you are also getting a DSNAME but it's a temporary, system generated name.
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Using Java/C/C++ to retrieve dataset ... Java & MQSeries 6
No new posts Volume chain using DFSORT DFSORT/ICETOOL 17
No new posts volume mass delete RMM JCL & VSAM 2
No new posts Define default volume for DSN storage... JCL & VSAM 8
No new posts Copy a PDS to a new PDS - why do I ne... TSO/ISPF 8
Search our Forums:

Back to Top