como están de llenas las tapes

Manejo de almacenamiento tanto en discos como en medios magneticos, DFSMSxxx (todo lo relacionado con el SMS).
elpantanero
Colaborador
Colaborador
Mensajes: 77
Registrado: 25 Oct 2007, 06:31
País: España
Ciudad: Madrid
Ocupación: Técnico en Sistemas

como están de llenas las tapes

Mensajepor elpantanero » 09 Mar 2017, 13:34

Hola:
Alguien me puede indicar como sacar un informe de ocupación de cada cinta de si están o no llenas. estamos pensando en definir en el robot cintas mas "gordas" pero menos nº de volúmenes, para esto quiero saber la ocupación real de los ficheros en cinta, creo que el robot no deja libre el espacio definido ejemplo si definimos cada cartucho en el robot a 0.8 Gb y un fichero ocupa 4kb el robot NO ocupa el resto, simplemente pone una marca de fin de cinta ¿es cierto?
quisiera sacar algo del tipo VOLSER DSN KB
Gracias por adelantado
Un saludo
Javier Arias
El Pantanero (el mas viejo de los dinosaurios del pantano)

elpantanero
Colaborador
Colaborador
Mensajes: 77
Registrado: 25 Oct 2007, 06:31
País: España
Ciudad: Madrid
Ocupación: Técnico en Sistemas

Re: como están de llenas las tapes

Mensajepor elpantanero » 13 Mar 2017, 08:12

me contesto yo solo
esto de técnica de sistemas es muy fácil TODO está en los libros, lo difícil es encontrarlo.
mirar en SYS.SAMPLIB el miembro EDGJRPT que saca un montón de reports muy muy chulos, incluido esto que yo quiero
Un saludo
El Pantanero (el mas viejo de los dinosaurios del pantano)

n1978tali
Usuario
Usuario
Mensajes: 1
Registrado: 13 Jun 2017, 17:53
País: mexico
Ciudad: mexico
Ocupación: Administrador de storage

Re: como están de llenas las tapes

Mensajepor n1978tali » 13 Jun 2017, 18:23

Hola,
A mi me ha funcionado conocer el tamaño del dataset mas que el de las cintas.
Así se puede dimensionar el espacio en la nueva cinta, es decir, de que tamaño son convenientes definirlas.
Este es un reporte que utilizo, en el parametro XDDSSIZE, te indica el tamaño de la cinta:
//reporteJ JOB (ACCTNUM,EXP),'USERSAG',TIME=1440,NOTIFY=usuario,
// REGION=0M,CLASS=Z,MSGCLASS=L,MSGLEVEL=(1,1)
//PASODEL1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL DSN

//*
//*********************************************************************
//** SKELETON MEMBER EDGSGDFS
//** TAILORED BY THE RMM REPORT GENERATOR FOR REPORT RMMDANA1
//*********************************************************************
//STEP01 EXEC PGM=EDGHSKP,PARM='RPTEXT,DATEFORM(E)'
//SYSPRINT DD SYSOUT=*
//MESSAGE DD DSN=DFRMM.**.MESSAGES,
// DISP=SHR
//XREPTEXT DD DSN=DFRMM.**.REPTEXT,
// DISP=SHR
//*
//*********************************************************************
//** UNLESS THIS SKELETON MEMBER IS ALREADY CUSTOMIZED, YOU WILL
//** GET THE DFSORT OUTPUT FILE AS DSN=NULLFILE.
//** YOU CAN SPECIFY THE OUTPUT FILE NAME AS SKELETON VARIABLE_3
//** ON THE REPORT GENERATION PANEL EDGPG022.
//*********************************************************************
//*********************************************************************
//** DATE CALCULATION STEP
//** COMPARE VALUES CONTAINING &TODAY ARE CALCULATED BASED ON RUN DATE
//*********************************************************************
//DATECONV EXEC PGM=IKJEFT01,PARM='%EDGRGDAT'
//SYSPROC DD DISP=SHR,DSN=SYS1.SEDGEXE1
//SYSTSPRT DD SYSOUT=*
//DATEFMT DD *
DATE PATTERN:DD/MM/YYYY
//INCLIN DD *
OPTION VLSHRT,VLSCMP,NOCHALT
INCLUDE COND=((5,1,CH,EQ,C'X'))
INREC FIELDS=(1,4,
9,6,
322,8,
809,44,
853,10,
1119,10,
1067,44,
1058,8,
1153,10,
919,4,
574,8,
1164,1,
1238,8,
1728,6,
1744,6,
1356,10,
405,40,
445,30)
SORT FIELDS=(5,6,CH,A,
11,8,CH,A,
19,44,CH,A,
63,10,CH,A,
73,10,CH,A,
83,44,CH,A,
127,8,CH,A,
135,10,ZD,A,
145,4,CH,A,
149,8,CH,A,
157,1,CH,A,
158,8,CH,A,
166,6,CH,A,
172,6,CH,A,
178,10,CH,A,
188,40,CH,A,
228,30,CH,A)
//INCLOUT DD DSN=&INCL,UNIT=SYSALLDA,SPACE=(TRK,(1,1)),DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=80)
//SYSTSIN DD DUMMY
//*********************************************************************
//**
//** following the new positions in record after inrec
//** (variable record length needs a rdw field in column 1 to 4)
//**
//*********************************************************************
//* XVVOLSER : orig pos: 5. pos after inrec: 5
//* XVSTATUS : orig pos: 318. pos after inrec: 11
//* XDDSNAME : orig pos: 805. pos after inrec: 19
//* XDCRDATE : orig pos: 849. pos after inrec: 63
//* XDRETDAT : orig pos: 1115. pos after inrec: 73
//* XDVRSNAM : orig pos: 1063. pos after inrec: 83
//* XDCRTJBN : orig pos: 1054. pos after inrec: 127
//* XDDSSIZE : orig pos: 1149. pos after inrec: 135
//* XDUNITAD : orig pos: 915. pos after inrec: 145
//* XVHLOC : orig pos: 570. pos after inrec: 149
//* XDCAT : orig pos: 1160. pos after inrec: 157
//* XDCPGM : orig pos: 1234. pos after inrec: 158
//* XVComp_Rat : orig pos: 1724. pos after inrec: 166
//* XDComp_Rat : orig pos: 1740. pos after inrec: 172
//* XDEXPDT : orig pos: 1352. pos after inrec: 178
//* XVACCINF : orig pos: 401. pos after inrec: 188
//* XVUSEFLD : orig pos: 441. pos after inrec: 228
//**
//WRITE1 EXEC PGM=SORT,REGION=0M
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DFRMM.**.REPTEXT,
// DISP=SHR
//SORTOUT DD DSN=DSN,
// DISP=(,CATLG,DELETE),
// UNIT=SYSALLDA,
// LIKE=DFRMM.*.REPTEXT
//** /* &INCL CONTAINS THE SORT */
//** /* INCLUDE STATEMENTS, MODIFIED */
//** /* IN STEP DATECONV */
//SYSIN DD DSN=&INCL,DISP=(OLD,PASS)
//NEWSYMB DD *
***********************************************************************
*
* following the DFSORT symbol definitions mapping the output file
*
***********************************************************************
VARFILE_RDW,1,4,BI
XVVOLSER,5,6,CH Volume serial number
XVSTATUS,11,8,CH Volume status
XDDSNAME,19,44,CH Data set name
XDCRDATE,63,10,CH Create date of data set record
XDRETDAT,73,10,CH Retention date
XDVRSNAM,83,44,CH Matching VRS name
XDCRTJBN,127,8,CH Creating job name
XDDSSIZE,135,10,ZD Approx. size of file Kbytes
XDUNITAD,145,4,CH Creating drive address
XVHLOC,149,8,CH home location name
XDCAT,157,1,CH CATALOGED Y/N/U
XDCPGM,158,8,CH Creating program name
XVComp_Rat,166,6,CH Compression ratio for the volume
XDComp_Rat,172,6,CH Compression ratio for the file
XDEXPDT,178,10,CH Data set expiration date
XVACCINF,188,40,CH Accounting information
XVUSEFLD,228,30,CH User description



Este reporte lo genere desde el panel de RMM, en el menu de reportes, ahi puedes indicarle los valores que tu necesites encontrar.

SAludos.


Volver a “Almacenamiento SMS RMM”