Obtener el espacio ocupado por datasets

Todo lo relacionado con JCL, manejo de jobs, etc.
Responder
Nicolas Florio

Obtener el espacio ocupado por datasets

Mensaje por Nicolas Florio » 31 May 2007, 10:32

Buenas, necesitaria obtener el espacio que ocupan unos ciertos datasets. La unica forma que encontre de obtenerlo es usando el comando DCOLLECT del IDCAMS. A alguien se le ocurre otra manera de hacer esto??

Saludos!

Luis Miguel Martinez Ch.

Re: Obtener el espacio ocupado por datasets

Mensaje por Luis Miguel Martinez Ch. » 31 May 2007, 13:03

1.- Imprime el reporte desde ISMF ( Lo puedes hacer por disco o por nombre de dataset). Seleccionar campos y sortearlos, etc

2.- Listcat con el parametro SPACE

3.- En la opcion 3.4 de ISPF (DSLIST panel) puedes seleccioar los datasets y la opcion 2 (SPACE). Ya que tienes la lista puedes agregar otros datasets con el comandop APPEND y mandar imprimir la lista.

legacy

Saber espacio ocupado dataset

Mensaje por legacy » 31 May 2007, 13:11

No sé si he entendido bien la pregunta. Estoy entendiendo que quieres saber cúal es el espacio alocado de unos datasets?

Si es así, ISPF te da el espacio alocado de los ficheros.Opción 3.4 y PFKey 11.

----------------------------------------------------------------------------------

Código: Seleccionar todo

DSLIST - Data Sets Matching DINO                                  Row 22 of 49
Command ===>                                                  Scroll ===> PAGE
                                                                              
Command - Enter "/" to select action                  Tracks %Used XT  Device 
------------------------------------------------------------------------------
         DINO.SMF.DATA.G0051V00                          750   89   1  3390   
         DINO.SMF.DATA.G0052V00                         1350   99   5  3390   
         DINO.SMF.DATA.G0053V00                          750   89   1  3390   
         DINO.SMF.DATA.G0054V00                         1350   99   5  3390   
         DINO.SMF.DATA.G0055V00                          750   20   1  3390   
         DINO.SMF.DATA.G0056V00                         1500   90   6  3390   
         DINO.SMF.DATA.G0057V00                          750   90   1  3390   
         DINO.SMF.DATA.G0058V00                         1500   90   6  3390

Nicolas Florio

Mensaje por Nicolas Florio » 31 May 2007, 16:59

OK, me sirvio la opcion 3.4 del ISPF, por que me genera la lista de datasets y con eso despues la formateo y obtengo el espacio.

Luciano de la Rosa A.

Usa el NaviQuest

Mensaje por Luciano de la Rosa A. » 01 Jun 2007, 21:47

OK, me sirvio la opcion 3.4 del ISPF, por que me genera la lista de datasets y con eso despues la formateo y obtengo el espacio.
Después de haber obtenido el archivo de salida del DCOLLECT de IDCAMS, puedes utilizar el NaviQuiest en batch.

El NaviQuest lo que hace, es tomar como archivo de entrada la salida del DCOLLECT, y su salida es un archivo de texto con el reporte que quieras. Es muy flexible y puedes reportar las siguientes cosas (todo viene en el manual):

Código: Seleccionar todo

ALLOCSP | ALLOCSPC  -   ALLOCATED SPACE (KB)                
BACKUP | LASTBKUP   -   DATA SET'S LAST BACKUP DATE         
BLKUNUSED           -   BLOCKS UNUSED                       
CHANGE |CHGIND      -   CHANGE INDICATOR FOR DATA SET       
CREATE | CREATEDT   -   DATA SET CREATION DATE              
DATACLAS | DC       -   DATACLAS OF DATA SET                
DSNAME | DSN        -   DATASETNAME                         
DSNLENGTH           -   LIMIT DATASET NAME TO THIS NUMBER   
                    -   OF CHARACTERS                       
DSORG               -   DATA SET ORGANIZATION               
ENTRYTYPE           -   ENTRY TYPE OF DATA SET              
EXPIRE | EXPIREDT   -   DATA SET EXPIRATION DATE            
LASTREF | LASTREFDT -   DATA SET LAST REFERENCE DATE        
LRECL               -   RECORD LENGTH                       
MGMTCLAS | MC       -   MANAGEMENT CLASS FOR DATA SET       
MULTVOL             -   IS THE DATA SET MULI-VOLUME?        
NUMEXT | EXTNUM     -   NUMBER OF EXTENTS                   
PAGELENGTH          -   NUMBER OF LINES PER PAGE (DEF IS 60)
PDSE                -   IS THE DATA SET A PDSE?             
REBLOCK | REBLK     -   IS THE DATA SET REBLOCKABLE?        
RECFM | RECFMT      -   RECORD FORMAT                       
SMS | MANAGED       -   IS THE DATA SET MANAGED?            
STORCLAS | SC       -   STORAGE CLASS FOR DATA SET          
STORGRP | SG        -   STORAGE GROUP FOR DATA SET          
TITLE=XXXXX         -   TITLE FOR REPORT                    
TOTALS              -   PRINT DSN SPACE TOTALS              
USED%               -   USED SPACE %                        
VOLSEQ              -   VOLUME SEQUENCE NUMBER              
VOLSER              -   VOLUME SERIAL                       
VVRCHK | VVR        -   IF SMS, IS THERE A VVR OR NVR?    

A cotinuación transcribo un JCL el que se obtiene un reporte de NaviQuest a partir de la salida de un DCOLLECT:

Código: Seleccionar todo

//GENREP  EXEC ACBJBAOB,TABL2='USERID.ISPTABL'                     
//DCOLIN  DD   DISP=SHR,DSN=SOPT08.BORRAR.DCOLLECT.OUTPUT          
//ISPFILE DD   DISP=(NEW,CATLG),UNIT=3390,                         
//         BLKSIZE=133,SPACE=(CYL,(10,5),RLSE),RECFM=FBA,LRECL=133,
//           DSN=[b]SALIDA.DEL.DCOLLECT[/b]                   
//SYSTSIN  DD *                                                    
PROFILE PREFIX(SOPT08)                                             
ISPSTART CMD(ACBQBAR7)  +                                          
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)            
/*                                                                 
//SYSIN DD  *                                                      
DSN                                                                
VOLSER                                                             
LASTREF                                                            
/*                                                  
(Para esto, tienes que tener adecuado el procedimiento ACBJBAOB en tu PROCLIB). Los reportes del NaviQuest me han sido muy útiles cuando tienes que sacar un reporte de un número muy grande de datasets o de muchos discos. De hecho, yo que yo hago, es sacar un DCOLLECT para obtener un reporte de todos los discos en línea en un sistema (VOLUMES(*)), y después saco el reporte del NaviQuest.

El archivo USERID.ISPTABL puede estar vacío y ser de un tamaño mínimo, pero debe tener la siguiente DCB:
Data Set Name . . . : USERID.ISPTABL

General Data Current Allocation
Volume serial . . . : VOLSER Allocated blocks . : 2
Device type . . . . : 3390 Allocated extents . : 1
Organization . . . : PO Maximum dir. blocks : 10
Record format . . . : FB
Record length . . . : 80
Block size . . . . : 23440 Current Utilization
1st extent blocks . : 2 Used blocks . . . . : 1
Secondary blocks . : 5 Used extents . . . : 1
Used dir. blocks . : 1
Creation date . . . : 2003/08/22 Number of members . : 0
Referenced date . . : 2007/04/21
Expiration date . . : ***None***


Espero que el NaviQuest (uteliría incluída sin costo adicional) te sea de tanta ayuda como lo ha sido para mí.

También recuerda que si quieres sacar un reporte "corto", puedes usar la opción P.3.4 (DSLIST) y en la línea de comandos dar el comando SAVE NOMBRE. Así el listado te lo grabará en un archivo con el formato userid.nombre.DATASETS. !Pruébalo!

lvismy
Usuario
Usuario
Mensajes: 1
Registrado: 11 Sep 2017, 18:28
País: México
Ciudad: Ciudad de México
Ocupación: Administrador de storage

Re: Obtener el espacio ocupado por datasets

Mensaje por lvismy » 19 Ene 2018, 22:00

Hola a todos!

Deseo obtener un reporte a partir de una lista obtenida vía Batch del ISMF. El reporte ya lo obtuve, pero necesito agregar el estatus del disco para cada una de las LPARs en las que se encuentra(ENABLE,DISNEW,DISALL,etc). Estuve revisando el manual buscando el parámetro a utilizar para obtener dicha información pero no existe, al parecer.

¿Conocen algún método para obtener este dato? Lo requiero para validar cuáles discos de un SG se encuentran "no utilizados" y proceder a sacarlos de línea o reutilizarlos para otro SG.

Gracias por su ayuda.

Responder