|
View previous topic :: View next topic
|
| Author |
Message |
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
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 |
|
 |
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
Thanks for the response,
but there's no FILEAID either on the LPAR.
Regards, |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
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 |
|
|
Pete Wilson
Active Member
Joined: 31 Dec 2009
Posts: 590
Location: London
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
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 |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
Vasanthz,
have you run this rexx with trace?
 |
|
| Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| 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 |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
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 |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
'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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| Vasanth, there are some differences between TSO ALLOC commands and JCL DD statements. You've just found one of them. |
|
| Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India
|
|
|
|
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 |
 NOoooo!!!!
Thanks, |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
excuuuuuuuuuuuse me for living.
i misinterpreted (actually, did not have a clue) what was going on. |
|
| Back to top |
|
|
Bill Dennis
Active Member
Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA
|
|
|
|
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 |
|
|
|
|
