Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Largest Extent on a volume.

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

Global Moderator


Joined: 28 Aug 2007
Posts: 1445
Location: Azeroth

PostPosted: Mon Sep 13, 2010 3:31 pm    Post subject: Largest Extent on a volume.
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: 1703
Location: Australia

PostPosted: Mon Sep 13, 2010 4:31 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Mon Sep 13, 2010 4:33 pm    Post subject:
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: 1703
Location: Australia

PostPosted: Mon Sep 13, 2010 4:50 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Tue Sep 14, 2010 10:53 am    Post subject:
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 User


Joined: 31 Dec 2009
Posts: 437
Location: London

PostPosted: Tue Sep 14, 2010 7:31 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Tue Sep 14, 2010 8:35 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Tue Sep 14, 2010 9:20 pm    Post subject:
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    Post subject:
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: 1445
Location: Azeroth

PostPosted: Tue Sep 14, 2010 10:30 pm    Post subject:
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: 7905
Location: Bellevue, IA

PostPosted: Tue Sep 14, 2010 10:48 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Tue Sep 14, 2010 10:57 pm    Post subject:
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    Post subject:
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: 7905
Location: Bellevue, IA

PostPosted: Tue Sep 14, 2010 11:08 pm    Post subject:
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: 1445
Location: Azeroth

PostPosted: Tue Sep 14, 2010 11:08 pm    Post subject:
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    Post subject:
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    Post subject:
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    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 Reading selected volumes of a multi-v... RickBig JCL & VSAM 6 Wed Jul 13, 2016 7:26 pm
No new posts DFSMSdss full volume backups JCL when... Alan Playford IBM Tools 3 Thu Feb 05, 2015 4:50 pm
No new posts How to find the volume serial number ... sreekantham JCL & VSAM 7 Wed Jan 28, 2015 2:53 pm
No new posts Need a JCL to change the volume back ... Manikandesvaran D JCL & VSAM 10 Tue Oct 14, 2014 9:06 pm
No new posts mismatch between dfsrmm volume and SM... meykh2014 JCL & VSAM 3 Sat Oct 04, 2014 12:06 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us