copia de indices alternos y path entre lpar

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

copia de indices alternos y path entre lpar

Mensaje por ajap »

Buenos dias amigos, gusto en saludarlos.
Puedo usar el ADRDSSU para copiar aix, path entre lpar ? en caso de no poder, de que forma lo haría ?

Gracias de antemano por la ayuda que puedan darme
NJB

Re: copia de indices alternos y path entre lpar

Mensaje por NJB »

Hola

Las lpar son particiones lógicas de la CPU y el addrssu copia datos entre discos.
No tiene nada que ver una cosa con otra, ahora bien si te referís a copiar datos de los discos usados por una lpar a los discos de otra lpar la respuesta es "depende".

El programa que copia datos de un disco a otro corre en una lpar, por lo tanto si los discos están visibles desde esa lpar la respuesta es Si.
Despues que los use otra lpar es otro tema.
Ahora bien, si los discos estan dedicadas a cada una de los lpar la respuesta es No

Hay muchas formas de pasar datos de los discos de una lpar a otra pero siempre necesitarás 2 programas, uno que lea en una y otro que escriba en la otra.

Un ejemplo con addrssu es con un disco de ventana (visible por ambos lpar) y tomas un dump de un lado y lo restoreas del otro lado.

Espero que te sea de ayuda.

Saludos
ajap

Re: copia de indices alternos y path entre lpar

Mensaje por ajap »

Hola Norberto, gracias por responder.

Estoy de acuerdo con lo que indicas pero a lo que me refiero yo es que si a través de ADRDSSU puedo copiar indices alternos y paths de archivos vsam entre lpars porque tengo entendido que no se puede hacer, que debo crearlos en la lpar de destino.Me gustaria saber por qué no se puede.

saludos
Vicente

Re: copia de indices alternos y path entre lpar

Mensaje por Vicente »

Hola ajap:
Un indice alternativo no es más que una tabla que relaciona una clave secundaria (un segmento del registro) con la clave principal del/os registro/s correspondiente/s en el cluster base.
Es por esto que cluster base (KSDS) ha de estar sincronizado con el indice alternativo (AIX) en el sentido de que a un conjunto de registros le corresponde otro de indices alternativos.
Por tanto si tenemos dos KSDS (uno en cada LPAR), no se debe copiar el AIX de uno y restaurarlo en el otro, si no se tiene la garantía de que los registros de un KSDS son identicos a los del otro. En caso contrario provocarías situaciones como la existencia de indices alternativos en el AIX sin su correspondiente registro en el KSDS y viceversa.
En conclusión, en cualquier caso es posible hacer las copias, pero nada aconsejable hacerlo por componentes separados y distanciadas en el tiempo. Copia siempre el KSDS y sus ficheros relacionados en la misma operación.
Ten en cuenta que en la copia, si es con ADRDSSU, necesitarás usar el parámetro SPHERE, y en el restore, probablemente el parámetro RECATALOG.

Nota:
En el post: "Tamaño Maximo de un registro (RECSIZE) VSAM" se habló del formato de un indice alternativo.

Un saludo
ajap

Re: copia de indices alternos y path entre lpar

Mensaje por ajap »

Hola Vicente, gracia spor responder.

Yo hice el dump con sphere pero cuando traté de hacer el restore me indicó:
DATA SETS IN SPHERE OF BASE CLUSTER VTARW.PLAST.EMV WITH NEWNAME VPARW.PLAST.EMV WERE DIRECTED TO MORE THAN ONE CATALOG y no copió, terminó con cc 08. será que me dio eso porque al restore no le coloqué el recatalog ?

saludos
Vicente

Re: copia de indices alternos y path entre lpar

Mensaje por Vicente »

Hola ajap:
Por el mensaje que dices que sale, estás cambiando el primer cualificador del nombre del fichero de VTARW a VPARW.
Esto puede influir en qué catálogo se catalogará el fichero renombrado, en función de los alias que existan en tu instalación.
Lo que debes tener en cuenta es que tanto cluster base, alias y path deben catalogarse todos en el mismo catálogo.
Si solo renombras el cluster base es posible que intente recatalogarlo en otro catálogo distinto al que acojerá al resto de componentes; esto no está permitido.

Si renombras los tres componentes a un mismo primer cualificador, se te catalogarán en el mismo catálogo.
Pero cuidado con esto, pues en la definición del PATH están los nombres antiguos, por lo que tendrás problemas para utilizarlo.

Si decidieras no cambiar los nombres y utilizar el parámetro RECATALOG del restore, tendrás que asegurarte de que los mecanismos de búsqueda del sistema, los encuentra.

Un saludo.

Leamos un poco:
MVS System Messages, Vol 1 (ABA-AOM) donde explica el mensaje ADR764E
ajap

Re: copia de indices alternos y path entre lpar

Mensaje por ajap »

Hola Vicente, gracia spor tu guía e información.

la razón de cambiarle el nombre al cluster base es porque en la lpar de desarrollo tiene nomenclatura VTARW y en la lpar de calidad debe estar como VPARW. Por eso es que al hacer el restore en la lpar de calidad yo renombro al cluster base como VPARW.
Vicente escribió:Si solo renombras el cluster base es posible que intente recatalogarlo en otro catálogo distinto al que acojerá al resto de componentes; esto no está permitido.
Cómo puedo renombrar los aix y path si al restaurar con sphere solo indicas el nombre del cluster base y no los aix y paths asociados o los que me interesaría restaurar a calidad?
Por lo que he leido al realizar el dump con sphere se respaldan todos los aix y path asociados al cluster base y al hacer restore, se bajan todos igualmente. Si haces dump con sphere, el restore tiene que ser igual, con sphere, no hay manera de individualizar el restore. pero supongo igualmente que si al hacer restore le cambio el nombre al cluster base, todos sus asociados también cambian de nombre.

saludos
Vicente

Re: copia de indices alternos y path entre lpar

Mensaje por Vicente »

Hola ajap:
Suponiendo que en el proceso de copia, solo se copiaron los ficheros que se desean restaurar, las siguientes sentencias de ADRDSSU te resuelven el problema:

REST IDD(COPIA) - ddname describiendo el fichero creado por el DUMP
ODD(DISCO) - ddname describiendo el disco de salida del restore
DS(INCLUDE(**)) -
RENAMEU(VPARW) - para que cambien de nombre todos los elementos copiados
SPHERE - para que incluya el PATH en el restore
RECAT(CATALOG.CALIDAD) para catalogar en el catalogo de calidad

La respuesta a tu pregunta de como renombrar los aix y path está en el parámetro RENAMEUnconditional,
que renombra todo lo que restaura, cambiando el primer cualificador a VPARW, por lo que no hay que poner sentencias RENAME por cada elemento a restaurar.
Importante Recatalogar en el nuevo catálogo de calidad, porque supongo que se llamará de manera distinta y tendrá un alias con el nombre VPARW.

Si en tu copia hubiese más ficheros que los que quieres restaurar, tendrías que cambiar el parámetro INCLUDE, para seleccionar lo que quieres restaurar.

No es cierto que no se puedan restaurar elementos sueltos de un DUMP hecho con SPHERE.
Basta con no codificar SPHERE en el restore y seleccionar con INCLUDE los ficheros que quieres restaurar.
No poner SPHERE y codificar INCLUDE(**) hace que se restaure todo como elementos sueltos y no incluirá el PATH.

Saludos

Leamos un poco:
Manual: DFSMSdss Storage Administration
capítulo: 17
mandato: RESTORE
ajap

Re: copia de indices alternos y path entre lpar

Mensaje por ajap »

Buenos días Vicente, disculpa que no haya respondido antes pero me reincorporo al trabajo e igualmente al caso.

intenté lo siguiente:
RESTORE DATASET -
(INCLUDE( -
VTARW.PLAST.EMV.CEDULA.AIX, -
VTARW.PLAST.EMV-
)) -
INDDNAME(DASDIN) -
OUTDDNAME(DASDOUT1) -
RENAMEU( -
(VTARW.PLAST.EMV,-
VPARW.PLAST.EMV),-
(VTARW.PLAST.EMV.CEDULA.AIX,-
VPARW.PLAST.EMV.CEDULA.AIX))-
SHR WAIT(0,0) -
SPHERE -
RECATALOG(*);

nota: el VTARW.PLAST.EMV es el cluster base
VTARW.PLAST.EMV.CEDULA.AIX es uno de los indices que quiero pasar a calidad con su path
y esto es lo que obtengo:
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE '
ADR109I (R/I)-RI01 (01), 2012.229 08:03:19 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED.
ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK
ADR006I (001)-STEND(01), 2012.229 08:03:19 EXECUTION BEGINS
ADR780I (001)-TDDS (01), THE INPUT DUMP DATA SET BEING PROCESSED IS IN LOGICAL
1 RELEASE 3 MODIFICATION LEVEL 0
ADR730W (001)-FDSRL(01), CLUSTER VTARW.PLAST.EMV IS OPEN
ADR764E (001)-FDSRL(01), DATA SETS IN SPHERE OF BASE CLUSTER VTARW.PLAST.EMV WiTH NEWNAME VPARW.PLAST.EMV WERE DIRECTED TO MORE THAN ONE CATALOG.
ADR415W (001)-TDLOG(01), NO DATA SETS WERE COPIED, DUMPED, OR RESTORED FROM ANY VOLUME
ADR040I (001)-TDLOG(01), PROCESSING BYPASSED DUE TO NORUN OPTION
ADR006I (001)-STEND(02), 2012.229 08:05:00 EXECUTION ENDS
ADR013I (001)-CLTSK(01), 2012.229 08:05:00 TASK COMPLETED WITH RETURN CODE 0008
ADR012I (SCH)-DSSU (01), 2012.229 08:05:00 DFSMSDSS PROCESSING COMPLETE. HIGHEST RETURN CODE IS 0008 FROM:TASK 001

El dump finalizó con RC 04 pero me dice que respaldo todo:
TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'DUMP '
2012.207 11:53:45 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED.
RACF LOGGING OPTION IN EFFECT FOR THIS TASK
2012.207 11:53:45 EXECUTION BEGINS
CLUSTER VTARW.PLAST.EMV IS OPEN
PROCESSING COMPLETED FOR CLUSTER VTARW.PLAST.EMV, 333451 RECORD(S) PROCESSED, REASON 0
CLUSTER VTARW.PLAST.EMV.FECVEN.AIX IS OPEN
PROCESSING COMPLETED FOR CLUSTER VTARW.PLAST.EMV.FECVEN.AIX, 307493 RECORD(S) PROCESSED, REASON 0
CLUSTER VTARW.PLAST.EMV.CODCORP.AIX IS OPEN
PROCESSING COMPLETED FOR CLUSTER VTARW.PLAST.EMV.CODCORP.AIX, 307452 RECORD(S) PROCESSED, REASON 0
CLUSTER VTARW.PLAST.EMV.ZONPOS.AIX IS OPEN
PROCESSING COMPLETED FOR CLUSTER VTARW.PLAST.EMV.ZONPOS.AIX, 320181 RECORD(S) PROCESSED, REASON 0
CLUSTER VTARW.PLAST.EMV.A2 IS OPEN
PROCESSING COMPLETED FOR CLUSTER VTARW.PLAST.EMV.A2, 333430 RECORD(S) PROCESSED, REASON 0
CLUSTER VTARW.PLAST.EMV.CEDULA.AIX IS OPEN
PROCESSING COMPLETED FOR CLUSTER VTARW.PLAST.EMV.CEDULA.AIX, 321926 RECORD(S) PROCESSED, REASON 0
CLUSTER VTARW.PLAST.EMV.CTAPLT IS OPEN
PROCESSING COMPLETED FOR CLUSTER VTARW.PLAST.EMV.CTAPLT, 333451 RECORD(S) PROCESSED, REASON 0
DATA SET FILTERING IS COMPLETE. 7 OF 7 DATA SETS WERE SELECTED: 0 FAILED SERIALIZATION AND 0 FAILED FOR OTHER REASONS.
THE FOLLOWING DATA SETS WERE SUCCESSFULLY PROCESSED
CLUSTER NAME VTARW.PLAST.EMV
AIX: VTARW.PLAST.EMV.FECVEN.AIX
PATH: VTARW.PLAST.EMV.FECVEN.PATH
AIX: VTARW.PLAST.EMV.CODCORP.AIX
PATH: VTARW.PLAST.EMV.CODCORP.PATH
AIX: VTARW.PLAST.EMV.ZONPOS.AIX
PATH: VTARW.PLAST.EMV.ZONPOS.PATH
AIX: VTARW.PLAST.EMV.A2
PATH: VTARW.PLAST.EMV.P2
AIX: VTARW.PLAST.EMV.CEDULA.AIX
PATH: VTARW.PLAST.EMV.CEDULA.PATH
AIX: VTARW.PLAST.EMV.CTAPLT
PATH: VTARW.PLAST.EMV.CTAPLT.PATH
CATALOG NAME CATALOG.VVAM900.USER
COMPONENT NAME VTARW.PLAST.EMV.DATA
COMPONENT NAME VTARW.PLAST.EMV.INDEX
CLUSTER NAME VTARW.PLAST.EMV.FECVEN.AIX
CATALOG NAME CATALOG.VVAM900.USER
COMPONENT NAME VTARW.PLAST.EMV.FECVEN.AIX.DATA
COMPONENT NAME VTARW.PLAST.EMV.FECVEN.AIX.INDEX
CLUSTER NAME VTARW.PLAST.EMV.CODCORP.AIX
CATALOG NAME CATALOG.VVAM900.USER
COMPONENT NAME VTARW.PLAST.EMV.CODCORP.AIX.DATA
COMPONENT NAME VTARW.PLAST.EMV.CODCORP.AIX.INDEX
CLUSTER NAME VTARW.PLAST.EMV.ZONPOS.AIX
CATALOG NAME CATALOG.VVAM900.USER
COMPONENT NAME VTARW.PLAST.EMV.ZONPOS.AIX.DATA
COMPONENT NAME VTARW.PLAST.EMV.ZONPOS.AIX.INDEX
CLUSTER NAME VTARW.PLAST.EMV.A2
CATALOG NAME CATALOG.VVAM900.USER
COMPONENT NAME VTARW.PLAST.EMV.A2.DATA
COMPONENT NAME VTARW.PLAST.EMV.A2.INDEX
CLUSTER NAME VTARW.PLAST.EMV.CEDULA.AIX
CATALOG NAME CATALOG.VVAM900.USER
COMPONENT NAME VTARW.PLAST.EMV.CEDULA.AIX.DATA
COMPONENT NAME VTARW.PLAST.EMV.CEDULA.AIX.INDEX
CLUSTER NAME VTARW.PLAST.EMV.CTAPLT
CATALOG NAME CATALOG.VVAM900.USER
COMPONENT NAME VTARW.PLAST.EMV.CTAPLT.DATA
COMPONENT NAME VTARW.PLAST.EMV.CTAPLT.INDEX
ADR006I (001)-STEND(02), 2012.207 11:55:44 EXECUTION ENDS
ADR013I (001)-CLTSK(01), 2012.207 11:55:44 TASK COMPLETED WITH RETURN CODE 0004
ADR012I (SCH)-DSSU (01), 2012.207 11:55:44 DFSMSDSS PROCESSING COMPLETE. HIGHEST RETURN CODE IS 0004 FROM:TASK 001

Gracias por tus comentarios y la ayuda que me puedas dar al respecto.
Vicente

Re: copia de indices alternos y path entre lpar

Mensaje por Vicente »

Hola ajap:
Veo que sigues con el mismo problema que el 30 de julio, a saber:
ADR764E (001)-FDSRL(01), DATA SETS IN SPHERE OF BASE CLUSTER VTARW.PLAST.EMV WiTH NEWNAME VPARW.PLAST.EMV WERE DIRECTED TO MORE THAN ONE CATALOG.

Por favor vuelve a leer detenidamente mis comentarios de los días 30 y 31.

Y ahora, una vez que los has releido, trataré de ser algo más explicito:
1) En tu INCLUDE solicitas restaurar Cluster Base y AIX
2) En tu RENAMEU solicitas los cambios de nombre de Cluster Base y AIX
3) Pero .... se te ha olvidado el PATH
4) con SPHERE solicitas el restore de todos los componentes, con lo cual también se restaurará el PATH
5) Pero .... el PATH no lo renombras
6) Con RECATALOG(*) solicitas que se recataloguen en el mismo catálogo donde estaban los originales que se copiaron
7) Pero ... esto aunque es posible que en los dos sistemas se llamen igual los catálogos, me resulta extraño.
Puedes utilizar RECATALOG(nombre.de.nuevo.catalogo)
8) Si tienes Alias de los catálogos con los nombres de los primeros cualificadores que utilizas o si las rutinas de SMS están catalogando en función de estos nombres, es posible que RECATALOG no de el resultado esperado, o que el sistema no encuentre los ficheros.

Una explicación al mensaje ADR764E es que Cluster Base y AIX se estén catalogando en un catálogo, y PATH, al no cambiarlo de nombre se esté catalogando en otro. Esto no está permitido

Por otra parte, también muy importante es los siguiente:
El día 31 escribí:
Vicente escribió:Si renombras los tres componentes a un mismo primer cualificador, se te catalogarán en el mismo catálogo.
Pero cuidado con esto, pues en la definición del PATH están los nombres antiguos, por lo que tendrás problemas para utilizarlo.
En este caso tendrás que borrar y definir de nuevo el PATH.

Todo esto, como ejercicio, está muy bien; aunque sospecho que muchos técnicos, por evitarse problemas, restauran el cluster base y después definen los componentes y construyen el indice alternativo (BUILDINDEX).

Un saludo

Leamos un poco:
Manual: DFSMSdss Storage Administration
capítulo: 17
mandato: RESTORE
Manual: MVS System Messages, Vol 1 (ABA-AOM)
donde explica el mensaje ADR764E
aquintu

Re: copia de indices alternos y path entre lpar

Mensaje por aquintu »

Hola.

Si a alguien le sirve . . .

Al intentar copiar un Cluster Base y sus ASSOCIATIONS utilizando el comando RENAMEUNCONDITIONAL
obtenemos un lindo ADR764 cuando el primer calificador de Origen es diferente al primer calificador de Destino.

He aquí un ejemplo que funciona.

//COPIA EXEC PGM=ADRDSSU,REGION=8M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY DATASET( -
INCL( -
CALIORIG.NOM.CLUSTER.BASE -
) -
) -
RENAMEUNCONDITIONAL -
( -
( CALIORIG.** , CALIDEST.** ) -
) -
REPLACEUNCONDITIONAL -
SPHERE -
TOL(ENQF)
/*


Nota: La clave está en NO USAR los nombres completos en el RENAMEU, usar solo
los calificadores de origen y de destino.

En el SYSPRINT debería aparecer algo como lo siguiente:

ADR454I (001)-DDDS (01), THE FOLLOWING DATA SETS WERE SUCCESSFULLY PROCESSED
CALIORIG.NOM.CLUSTER.BASE
AIX: CALIORIG.NOM.CLUSTER.BASE.AIX1
PATH: CALIORIG.NOM.CLUSTER.BASE.PATH1
AIX: CALIORIG.NOM.CLUSTER.BASE.AIX2
PATH: CALIORIG.NOM.CLUSTER.BASE.PATH2


Ojala que esto pueda servir a algún esforzado DINO

Saludos.
Alvaro.
qwe2

Re: copia de indices alternos y path entre lpar

Mensaje por qwe2 »

Pregunta de paracaidista, quiere decir que tu ejemplo copia de un VSAM a otro ya creado o lo crea desde cero y copia el contenido del VSAM origen?

Gracias por el ejemplo :arriba:
Responder