Imagina o serviço que vai dar para você ter que migrar os discos onde estão formatados os bancos Adabas de um mainframe (velho) para outro (novo), primeiro foi acionado o suporte do Adabas e o mesmo disse que não existe um utilitário Adabas que faça isso, a solução foi criar no novo mainframe os bancos Adabas, fazer os backups no antigo (adasav) e restaurar no novo (demorou um pouco até finalizar isso tudo) - depois de vários anos tivemos que migrar de novo só que agora seria o storage (hardware de discos - DASD) só que nesta migração um colega descobriu o JCL que dá para copiar todo o conteúdo de um disco para outro.
ADRDSSU - COPYVOLID
O seguinte código JCL permite que você execute uma cópia física do volume completo usando o utilitário ADRDSSU;
Explicação JCL:
ALLDATA (*) indica que todo o espaço alocado em dataset sequenciais ou particionados, e em dataset com uma organização de conjunto de dados nula, deve ser copiado.
COPYVOLID permite que o (volume serial number) número de série do volume de origem (volser1) seja copiado para o volume de destino (OUTVOL1). O resultado é que ambos os volumes terão o mesmo número de série. (IMPORTENTE)
ALLEXCP copia dataset mesmo se eles estiverem vazios.
CANCELERROR termina a operação de cópia se ocorrer um erro de leitura permanente.
ADMINISTRATOR permite que você atue como um administrador de armazenamento autorizado DFSMSdss para o comando COPY. Este é um parâmetro opcional.
PURGE especifica que os dataset não expirados, que residem no volume de destino, podem ser sobrepostos para uma operação de cópia completa. Se você não especificar PURGE e os dataset não expirados existem no volume de destino, a operação de cópia falhará. Este é um parâmetro opcional.
Comando na Console
O disco (DASD) antigo deve esta offline, vamos colocar o novo endereço online.
Display pra ver o status;
Resultado do jcl ADRDSSU
Depois de online os novos discos colocou os bancos no ar e os mesmo subiu ok
ADRDSSU - COPYVOLID
O seguinte código JCL permite que você execute uma cópia física do volume completo usando o utilitário ADRDSSU;
MEMBER=COPYDISC 000017 REC SAVE:24.02.2012 14:55 BY USERID DBA00169 R=00000001
DSN=CLA.SUPORTE.JCLB VOL=PRL304 UNIT=1527
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//COPYDISC JOB (AAF,SUP),'DBA05',CLASS=S,MSGCLASS=A
//* ----------------------------------------------------------
//* ESTE JOB FAZ COPIA DE CONTEUDO E VOLSER PARA OUTRO DISCO (COPYVOLID)
//* O ADRDSSU VAI FAZER A COPIA DO DISCO S18CAT PARA O DISCO
//* S18CAZ. DEPOIS VOCE COLOCA OFFLINE (O ANTIGO) ONLINE (O ATUAL)
//* ----------------------------------------------------------
//*UQ ALLOW
//STEP1 EXEC PGM=ADRDSSU,REGION=0M
//DD1 DD UNIT=3390,VOL=SER=S18CAT,DISP=SHR
//DD2 DD UNIT=3390,VOL=SER=S18CAZ,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY -
INDDNAME(DD1) -
OUTDDNAME(DD2) -
COPYVOLID
/*Explicação JCL:
ALLDATA (*) indica que todo o espaço alocado em dataset sequenciais ou particionados, e em dataset com uma organização de conjunto de dados nula, deve ser copiado.
COPYVOLID permite que o (volume serial number) número de série do volume de origem (volser1) seja copiado para o volume de destino (OUTVOL1). O resultado é que ambos os volumes terão o mesmo número de série. (IMPORTENTE)
ALLEXCP copia dataset mesmo se eles estiverem vazios.
CANCELERROR termina a operação de cópia se ocorrer um erro de leitura permanente.
ADMINISTRATOR permite que você atue como um administrador de armazenamento autorizado DFSMSdss para o comando COPY. Este é um parâmetro opcional.
PURGE especifica que os dataset não expirados, que residem no volume de destino, podem ser sobrepostos para uma operação de cópia completa. Se você não especificar PURGE e os dataset não expirados existem no volume de destino, a operação de cópia falhará. Este é um parâmetro opcional.
Comando na Console
O disco (DASD) antigo deve esta offline, vamos colocar o novo endereço online.
0290 V 4580-459D,ONLINE
0290 D U,,,4580,00030,L=Z VARY RANGE DISPLAY
0090 IEE457I 14.35.44 UNIT STATUS 459
0090 UNIT TYPE STATUS VOLSER VOLSTATE
0090 4580 3390 O CDP051 PRIV/RSDNT
0090 4581 3390 O CDP052 PRIV/RSDNT
0090 4582 3390 O CDP053 PRIV/RSDNT
0090 4583 3390 O CDP054 PRIV/RSDNT
0090 4584 3390 O CDP055 PRIV/RSDNT
0090 4585 3390 O CDP056 PRIV/RSDNT
0090 4586 3390 O CDP057 PRIV/RSDNT
0090 4587 3390 O CDP058 PRIV/RSDNT
0090 4588 3390 O CDP059 PRIV/RSDNT
0090 4589 3390 O CDP060 PRIV/RSDNT
0090 458A 3390 O CDP061 PRIV/RSDNT
0090 458B 3390 O CDP062 PRIV/RSDNT
0090 458C 3390 O CDP063 PRIV/RSDNT
0090 458D 3390 O CDP064 PRIV/RSDNT
0090 458E 3390 O CDP065 PRIV/RSDNT
0090 458F 3390 O CDP066 PRIV/RSDNT
0090 4590 3390 O CDP067 PRIV/RSDNTDisplay pra ver o status;
0290 D U,,,4580,40
0090 IEE457I 14.44.09 UNIT STATUS 598
0090 UNIT TYPE STATUS VOLSER VOLSTATE
0090 4580 3390 O CDP051 PRIV/RSDNT
0090 4581 3390 O CDP052 PRIV/RSDNT
0090 4582 3390 O CDP053 PRIV/RSDNT
0090 4583 3390 O CDP054 PRIV/RSDNT
0090 4584 3390 O CDP055 PRIV/RSDNT
0090 4585 3390 O CDP056 PRIV/RSDNT
0090 4586 3390 O CDP057 PRIV/RSDNT
0090 4587 3390 O CDP058 PRIV/RSDNT
0090 4588 3390 O CDP059 PRIV/RSDNT
0090 4589 3390 O CDP060 PRIV/RSDNT
0090 458A 3390 O CDP061 PRIV/RSDNT
0090 458B 3390 O CDP062 PRIV/RSDNT
0090 458C 3390 O CDP063 PRIV/RSDNT
0090 458D 3390 O CDP064 PRIV/RSDNT
0090 458E 3390 O CDP065 PRIV/RSDNT
0090 458F 3390 O CDP066 PRIV/RSDNT
0090 4590 3390 O CDP067 PRIV/RSDNT
0090 4591 3390 O CDP068 PRIV/RSDNTResultado do jcl ADRDSSU
1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O D E J E S 2
0
15.39.10 JOB00110 ---- FRIDAY, 19 APR 2019 ----
15.39.10 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 15:38 System=CPAC Facility=BATCH
15.39.10 JOB00110 TSS7001I Count=26281 Mode=Fail Locktime=None Name=DBA MASTER 05
15.39.10 JOB00110 $HASP373 COPYDISC STARTED - INIT K - CLASS S - SYS CPAC
15.39.10 JOB00110 IEF403I COPYDISC - STARTED - TIME=15.39.10
15.39.10 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 15:38 System=CPAC Facility=BATCH
15.39.10 JOB00110 TSS7001I Count=26282 Mode=Fail Locktime=None Name=DBA MASTER 05
15.45.13 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP051 ON UNIT 4580 IS CHANGED 658
658 TO ADP051
15.45.13 JOB00110 VARY 4580,OFFLINE DFSMSDSS INTERNAL VARY
15.45.13 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4580 IS A DUPLICATE. VOLUME MADE 661
661 UNAVAILABLE.
15.45.13 JOB00110 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
15.45.13 JOB00110 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
15.45.13 JOB00110 -STEP1 00 300K 158K .28 .10 6.0 3330K BATCH 0 0 0 0
15.45.14 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 15:44 System=CPAC Facility=COMPLETE
15.45.14 JOB00110 TSS7001I Count=26284 Mode=Fail Locktime=None Name=DBA MASTER 05
15.51.10 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP052 ON UNIT 4581 IS CHANGED 811
811 TO ADP052
15.51.10 JOB00110 VARY 4581,OFFLINE DFSMSDSS INTERNAL VARY
15.51.10 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4581 IS A DUPLICATE. VOLUME MADE 814
814 UNAVAILABLE.
15.51.10 JOB00110 -STEP2 00 300K 156K .27 .10 5.9 3283K BATCH 0 0 0 0
15.51.10 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 15:48 System=CPAC Facility=BATCH
15.51.10 JOB00110 TSS7001I Count=26286 Mode=Fail Locktime=None Name=DBA MASTER 05
15.57.08 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP053 ON UNIT 4582 IS CHANGED 934
934 TO ADP053
15.57.08 JOB00110 VARY 4582,OFFLINE DFSMSDSS INTERNAL VARY
15.57.08 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4582 IS A DUPLICATE. VOLUME MADE 937
937 UNAVAILABLE.
15.57.08 JOB00110 -STEP3 00 300K 157K .28 .10 5.9 3323K BATCH 0 0 0 0
15.57.08 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 15:50 System=CPAC Facility=BATCH
15.57.08 JOB00110 TSS7001I Count=26287 Mode=Fail Locktime=None Name=DBA MASTER 05
16.03.13 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP054 ON UNIT 4583 IS CHANGED 058
058 TO ADP054
16.03.13 JOB00110 VARY 4583,OFFLINE DFSMSDSS INTERNAL VARY
16.03.13 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4583 IS A DUPLICATE. VOLUME MADE 061
061 UNAVAILABLE.
16.03.14 JOB00110 -STEP4 00 300K 161K .28 .10 6.0 3338K BATCH 0 0 0 0
16.03.14 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:02 System=CPAC Facility=BATCH
16.03.14 JOB00110 TSS7001I Count=26290 Mode=Fail Locktime=None Name=DBA MASTER 05
16.09.06 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP055 ON UNIT 4584 IS CHANGED 179
179 TO ADP055
16.09.06 JOB00110 VARY 4584,OFFLINE DFSMSDSS INTERNAL VARY
16.09.06 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4584 IS A DUPLICATE. VOLUME MADE 182
182 UNAVAILABLE.
16.09.07 JOB00110 -STEP5 00 300K 156K .27 .10 5.8 3322K BATCH 0 0 0 0
16.09.07 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:04 System=CPAC Facility=TSO
16.09.07 JOB00110 TSS7001I Count=26292 Mode=Fail Locktime=None Name=DBA MASTER 05
16.15.05 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP056 ON UNIT 4585 IS CHANGED 306
306 TO ADP056
16.15.05 JOB00110 VARY 4585,OFFLINE DFSMSDSS INTERNAL VARY
16.15.05 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4585 IS A DUPLICATE. VOLUME MADE 309
309 UNAVAILABLE.
16.15.05 JOB00110 -STEP6 00 300K 158K .27 .10 5.9 3322K BATCH 0 0 0 0
16.15.05 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:08 System=CPAC Facility=BATCH
16.15.05 JOB00110 TSS7001I Count=26293 Mode=Fail Locktime=None Name=DBA MASTER 05
16.21.00 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP057 ON UNIT 4586 IS CHANGED 404
404 TO ADP057
16.21.00 JOB00110 VARY 4586,OFFLINE DFSMSDSS INTERNAL VARY
16.21.00 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4586 IS A DUPLICATE. VOLUME MADE 407
407 UNAVAILABLE.
16.21.00 JOB00110 -STEP7 00 300K 156K .28 .10 5.9 3323K BATCH 0 0 0 0
16.21.01 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:14 System=CPAC Facility=BATCH
16.21.01 JOB00110 TSS7001I Count=26294 Mode=Fail Locktime=None Name=DBA MASTER 05
16.27.03 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP058 ON UNIT 4587 IS CHANGED 500
500 TO ADP058
16.27.03 JOB00110 VARY 4587,OFFLINE DFSMSDSS INTERNAL VARY
16.27.03 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4587 IS A DUPLICATE. VOLUME MADE 503
503 UNAVAILABLE.
16.27.03 JOB00110 -STEP8 00 300K 159K .27 .10 6.0 3322K BATCH 0 0 0 0
16.27.04 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:20 System=CPAC Facility=BATCH
16.27.04 JOB00110 TSS7001I Count=26295 Mode=Fail Locktime=None Name=DBA MASTER 05
16.33.02 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP059 ON UNIT 4588 IS CHANGED 595
595 TO ADP059
16.33.02 JOB00110 VARY 4588,OFFLINE DFSMSDSS INTERNAL VARY
16.33.02 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4588 IS A DUPLICATE. VOLUME MADE 598
598 UNAVAILABLE.
16.33.02 JOB00110 -STEP9 00 300K 158K .27 .10 5.9 3311K BATCH 0 0 0 0
16.33.02 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:26 System=CPAC Facility=BATCH
16.33.02 JOB00110 TSS7001I Count=26296 Mode=Fail Locktime=None Name=DBA MASTER 05
16.39.01 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP060 ON UNIT 4589 IS CHANGED 700
700 TO ADP060
16.39.01 JOB00110 VARY 4589,OFFLINE DFSMSDSS INTERNAL VARY
16.39.01 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 4589 IS A DUPLICATE. VOLUME MADE 703
703 UNAVAILABLE.
16.39.01 JOB00110 -STE10 00 300K 157K .27 .10 5.9 3298K BATCH 0 0 0 0
16.39.01 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:32 System=CPAC Facility=BATCH
16.39.01 JOB00110 TSS7001I Count=26297 Mode=Fail Locktime=None Name=DBA MASTER 05
16.45.02 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP061 ON UNIT 458A IS CHANGED 804
804 TO ADP061
16.45.02 JOB00110 VARY 458A,OFFLINE DFSMSDSS INTERNAL VARY
16.45.02 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 458A IS A DUPLICATE. VOLUME MADE 807
807 UNAVAILABLE.
16.45.02 JOB00110 -STE11 00 300K 159K .27 .10 6.0 3317K BATCH 0 0 0 0
16.45.03 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:44 System=CPAC Facility=COMPLETE
16.45.03 JOB00110 TSS7001I Count=26299 Mode=Fail Locktime=None Name=DBA MASTER 05
16.51.00 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP062 ON UNIT 458B IS CHANGED 906
906 TO ADP062
16.51.00 JOB00110 VARY 458B,OFFLINE DFSMSDSS INTERNAL VARY
16.51.00 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 458B IS A DUPLICATE. VOLUME MADE 909
909 UNAVAILABLE.
16.51.01 JOB00110 -STE12 00 300K 157K .27 .10 5.9 3307K BATCH 0 0 0 0
16.51.01 JOB00110 TSS7000I DBA0169 Last-Used 19 Apr 19 16:44 System=CPAC Facility=BATCH
16.51.01 JOB00110 TSS7001I Count=26300 Mode=Fail Locktime=None Name=DBA MASTER 05
16.57.00 JOB00110 ADR320I (001)-SBRTN(01), VOLUME SERIAL CDP063 ON UNIT 458C IS CHANGED 004
004 TO ADP063
16.57.00 JOB00110 VARY 458C,OFFLINE DFSMSDSS INTERNAL VARY
16.57.00 JOB00110 ADR344I (001)-SBRTN(01), VOLSER ON UCB 458C IS A DUPLICATE. VOLUME MADE 007
007 UNAVAILABLE.
16.57.00 JOB00110 -STE13 00 300K 158K .27 .10 5.9 3311K BATCH 0 0 0 0Depois de online os novos discos colocou os bancos no ar e os mesmo subiu ok
1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O D E J E S 2
0
18.11.54 STC05039 ---- FRIDAY, 19 APR 2019 ----
18.11.54 STC05039 IEF695I START AAFAI030 WITH JOBNAME AAFAI030 IS ASSIGNED TO USER ADACLP
18.11.54 STC05039 $HASP373 AAFAI030 STARTED
18.11.54 STC05039 IEF403I AAFAI030 - STARTED - TIME=18.11.54
18.11.55 STC05039 +ADAN02 00030 Nucleus run without protection log
18.11.55 STC05039 +ADAL02 00030 2021-04-03 18:11:54 CLOGR1 is active
18.11.55 STC05039 +ADAN03 00030 ADABAS coming up
18.11.55 STC05039 +ADAN19 00030 Buffer flush is a s y n c h r o n o u s
18.11.55 STC05039 +ADAN01 00030 A D A B A S V7.4.4 is active
18.11.55 STC05039 +ADAN01 00030 MODE = MULTI
18.11.55 STC05039 +ADAN01 00030 Running without recovery log
18.13.14 STC05039 +TRIMX4 00030 TRIMV832 STARTUP IN PROGRESS FIX D
18.13.14 STC05039 +TRIMX4 00030 TRIMV832 ADABAS LBP - ABOVE THE 16 MEG LINE
18.13.14 STC05039 +TRIMX4 00030 TRIMV832 TRIM IS ACTIVE 
0 comentários:
Enviar um comentário