Ir al Portal Ir al Foro
 

Borrar fichero en tape con IDCAMS

Todo lo relacionado a discos, tapes, robots, etc.

Borrar fichero en tape con IDCAMS

Notapor J. Martín » 12 Jun 2012, 10:15

Buenos días, tengo una duda.....

Observación: en todo momento, me refiero a JCL.

Si utilizo un IDCAMS para hacer DELETE de un fichero que está en tape, ¿el fichero se descataloga y no se elimina del sistema?

En el caso que sea así, ¿cómo debería hacer el DELETE del fichero?

Gracias y un saludo.
J. Martín
 

Re: Borrar fichero en tape con IDCAMS

Notapor Vicente » 14 Jun 2012, 04:12

Hola Martín:
Obviamente, un fichero en cinta no es borrable si no se monta la cinta y se escribe en ella.
Si el fichero se encuentra catalogado en algún catálogo del zOS podrás eliminar esa entrada del catálogo
Con algúno de los dos siguientes métodos:
1) Desde ISPF con P.3.4 y teclear U (uncatalog) a la izquierda del fichero
2) Ejecutando el JCL:
//IDCDLNV1 JOB CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A
//* BORRA UN FICHERO NO VSAM
//PASO1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE (nombre.fichero) NONVSAM PURGE NOSCRATCH -
CAT(nombre.catalogo.donde.esta.la.entrada.a.borrar)
/*
El parámetro PURGE no son necesarios para ficheros en cinta
El parámetro CAT será necesario si no existe un ALIAS para el nombre del fichero, que apunte al catálogo.

A partir del borrado de la entrada del fichero en el catálogo, solo podrás acceder a él si conoces el VOLSER de la cinta y el lugar de orden en la misma.

Para volver a recrear un entrada en un catálogo de un fichero en cinta puedes utilizar el siguiente JCL como modelo:
//IDCDFNV2 JOB CLASS=R,MSGLEVEL=(1,1),MSGCLASS=A,NOTIFY=&SYSUID
//* DEFINE UNA ENTRADA EN EL CATALOGO PARA UN FICHERO EN CINTA
//PASO1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF NVSAM(NAME(nombre.fichero.en.cinta) -
DEVT( 3490 ) -
VOL(volsercinta) -
FSEQN( 1 ) ) -
CAT(nombre.del.catalogo)
/*

Saludos

Leamos un poco:
Manual: DFSMS Access Method Services for Catalogs (Capítulos 16 y 20)
Varios días probando, equivocandote y volviendo a probar
pueden evitarte quince minutos de lectura de un manual.
Avatar de Usuario
Vicente
Colaborador Senior
Colaborador Senior
 
Mensajes: 335
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: System Programmer

Re: Borrar fichero en tape con IDCAMS

Notapor kedijoke » 19 Jun 2012, 17:49

Exacto, con un IDCAMS y la sentencia DELETE se descataloga el archivo si figura en un cinta. Lo que te esta diciendo en el mensaje anterior esta bien, pero si te entendi bien, para borrar el archivo de la cinta, dependera de cual es el retention period, la aplicacion de tapes que vos tengas en el sistema, es decir, CA1, TLMS, RMM....
si tenes CA1, podes borrarlo con el siguiente JCL
//TMSGRW EXEC TMSUPDTE,PARM=''
//TMSRPT DD SYSOUT=*
//SYSIN DD *
VOL volume,NODSN
REP EXPDT=2007/318 ---> una fecha anterior a la de hoy puede figurar

Despues corre el HOUSKEEPING y al otro dia ya no existe mas el nombre y la cinta pasa a status scratch.
en TLMS, el JCL es
//TLMSINQR JOB
//TLMSINQR EXEC CATINQR
//CAIIPT DD *
UPV VOLUME,SCRATCH=YES,CDS=0004
//
en RMM el JCL es, (no estoy seguro...cualquier cosa decime)
//STEP1 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD *
RMM CHANGEVOLUME XXXXXX EXPDTE=YYYY/DDD----> fecha anterior a la de hoy

siempre esperas que pase el HOUSKEEPING y despues figura scratch.

Cualquier cosa postealo.
kedijoke
Usuario
Usuario
 
Mensajes: 22
Registrado: 14 Jun 2009, 20:22
País: Argentina
Ciudad: Buenos Aires
Ocupación: Administrador de storage

Re: Borrar fichero en tape con IDCAMS

Notapor Vicente » 20 Jun 2012, 04:14

Hola Kedijoke:
Los procedimientos que explicas no borran el fichero de la cinta.
Solo actualizan las bases de datos de los distintos software de control de uso de cintas.
El fichero permanecerá en la cinta mientras esta no sea reutilizada en escritura, siempre podremos montarla y leerla.
(Es imposible borrar un fichero de una cinta que esté guardada en un cajón).

No obstante, cuidado con tus procedimientos, si en la cinta hay más ficheros que el interesado, podrían perderse todos.

Saludos
Varios días probando, equivocandote y volviendo a probar
pueden evitarte quince minutos de lectura de un manual.
Avatar de Usuario
Vicente
Colaborador Senior
Colaborador Senior
 
Mensajes: 335
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: System Programmer


Volver a Storage

MKPortal ©2003-2008 mkportal.it