Se você atua na administração ou no desenvolvimento em ambientes mainframe com Adabas, sabe que a eficiência do banco de dados depende diretamente do bom uso do espaço físico em disco. Conforme as aplicações realizam atualizações, inserções massivas e exclusões diárias, a estrutura interna das tabelas passa a sofrer com um fenômeno inevitável: a fragmentação. Para manter o desempenho das consultas em alto nível e otimizar o uso da ASSO e da DATA, o procedimento de reorganização é uma das rotinas de manutenção mais cruciais no ciclo de vida do ambiente. Hoje os espaços não utilizados estão bem fragmentado.
Backup e Reorganização - Esse é o JCL
Tirar o banco do ar - Importante - Depois job submetido
Banco Online
Reorganizado o banco
Leia Mais
13:19:59 ***** A D A B A S BASIC SERVICES ***** 2026-08-14
DBID 230 - Display Unused Storage - PDRU012
I Device I Total Number of I Extent in Blk. I
I Type I Blocks / Cyls. I from - until I
------I--------I------------------------- I----------------------------I
DATA I 8391 I 780 10 I 1008562 - 1009341 I
I 8391 I 70 0 I 1033052 - 1033121 I
I 8391 I 1 0 I 1100108 - 1100108 I
I 8391 I 120 1 I 1107062 - 1107181 I
I 8391 I 193 2 I 1112313 - 1112505 I
I 8391 I 11508869 153451 I 1119927 - 12628795 I
------I--------I------------------------- I----------------------------I
ASSO I 8391 I 19 0 I 457493 - 457511 I
I 8391 I 23 0 I 476280 - 476302 I
I 8391 I 4 0 I 476325 - 476328 I
I 8391 I 12 0 I 476341 - 476352 I
I 8391 I 330 1 I 538034 - 538363 I
I 8391 I 8 0 I 539027 - 539034 I
ASSO I 8391 I 12406943 68927 I 553046 - 12959988 I
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
Backup e Reorganização - Esse é o JCL
//AAFAREDB JOB (AABS,OSB),DBA,CLASS=S,MSGCLASS=A TYPRUN=HOLD //*UQ ALLOW //* -------------------------------------------------------- //* BACKUP OFFLINE DO BANCO 220 //* -------------------------------------------------------- //SAVE EXEC AAFAU230,TIME=1440 //DDSAVE1 DD DSN=CSA.C.SAVE.DB230.OFFLINE, // DISP=(NEW,CATLG),UNIT=CVRT,LABEL=(,SL) //* -------------------------------------------------------- //DDCARD DD * ADARUN PROG=ADASAV,DBID=230,MODE=SINGLE,PLOGRQ=NO //DDKARTE DD * ADASAV SAVE //* --------------------------------------------------------- //* REORGANIZA O DATA E O ASSO DO BANCO //* --------------------------------------------------------- //REORDB EXEC AAFAU230,TIME=1440 //DDFILEA DD DSN=ADABAS.C.REORDB.DB230, // DISP=(NEW,KEEP),UNIT=CVRT,LABEL=(1,SL) //* --------------------------------------------------------- //DDCARD DD * ADARUN PROG=ADAORD,MODE=SINGLE,DBID=230,PLOGRQ=NO ADARUN LP=10000,LWKP2=1200 //DDKARTE DD * ADAORD REORDB /*
Tirar o banco do ar - Importante - Depois job submetido
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
07.50.34 JOB00421 ---- SATURDAY, 15 AUG 2026 ----
07.50.34 JOB00421 ICH70001I DBAP055 LAST ACCESS AT 07:14:50 ON SATURDAY, AUGUST 15, 2026
07.50.34 JOB00421 $HASP373 AAFAREDB STARTED - INIT K - CLASS S - SYS CPAC
07.50.34 JOB00421 IEF403I AAFAREDB - STARTED - TIME=07.50.34
07.50.34 JOB00421 *IEF233A M 0892,PRIVAT,SL,AAFAREDB,AAFAUTID, 513
513 ADABAS.C.SAVE.DB230.A2026227
07.50.37 JOB00421 IEC705I TAPE ON 0892,VC0373,SL,COMP,AAFAREDB,AAFAUTID.SAVE,ADABAS.C.SAVE.DB230.A2026227,MEDIA4
07.50.37 JOB00421 ADAU14 00230 ADASAV-Run with save tape 639
07.52.38 JOB00421 IEC205I DDSAVE1,AAFAREDB,AAFAUTID,FILESEQ=1, COMPLETE VOLUME LIST, 574
574 DSN=ADABAS.C.SAVE.DB230.A2026227,VOLS=VC0373,TOTALBLOCKS=35035
07.52.38 JOB00421 IEF234E K 0892,VC0373,PVT,AAFAREDB,AAFAUTID
07.52.38 JOB00421 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
07.52.38 JOB00421 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
07.52.38 JOB00421 -SAVE AAFAUTID 00 54152 85820 .50 .07 2.0 3913K SYSTEM 0 0 0 0
07.52.38 JOB00421 *IEF233A M 089E,PRIVAT,SL,AAFAREDB,AAFAUTID, 579
579 ADABAS.C.REORDB.DB230.A2026227
07.52.39 JOB00421 ADAN02 00230 Nucleus run without protection log
07.52.39 JOB00421 ADAL01 00230 2026-08-15 07:52:38 CLOG not active
07.52.39 JOB00421 ADAN03 00230 ADABAS coming up
07.52.40 JOB00421 ADAN01 00230 A D A B A S V7.4.4 is active
07.52.40 JOB00421 ADAN01 00230 MODE = SINGLE
07.52.40 JOB00421 ADAN01 00230 Running without recovery log
07.52.44 JOB00421 $HASP375 AAFAREDB ESTIMATED LINES EXCEEDED
07.52.49 JOB00421 IEC705I TAPE ON 089E,VC0580,SL,COMP,AAFAREDB,AAFAUTID.REORDB,ADABAS.C.REORDB.DB230.A2026227,MEDIA4
07.59.23 JOB00421 IEC205I DDFILEA,AAFAREDB,AAFAUTID,FILESEQ=1, COMPLETE VOLUME LIST, 918
918 DSN=ADABAS.C.REORDB.DB230.A2026227,VOLS=VC0580,TOTALBLOCKS=36218
07.59.23 JOB00421 ADAU40 00230 Point of No Return reached
07.59.23 JOB00421 ADAU41 00230 ADAORD invoked from job AAFAREDB
08.08.12 JOB00421 $HASP375 AAFAREDB ESTIMATE EXCEEDED BY 6,000 LINES
08.16.26 JOB00421 $HASP375 AAFAREDB ESTIMATE EXCEEDED BY 12,000 LINES
08.16.35 JOB00421 IEF234E K 089E,VC0580,PVT,AAFAREDB,AAFAUTID
08.16.35 JOB00421 -REORDB AAFAUTID 00 1718K 449K 7.75 .51 23.9 71417K SYSTEM 0 0 0 0
08.16.35 JOB00421 IEF404I AAFAREDB - ENDED - TIME=08.16.35
08.16.35 JOB00421 -AAFAREDB ENDED. NAME-DBAP055 TOTAL TCB CPU TIME= 8.25 TOTAL ELAPSED TIME= 26.0
08.16.35 JOB00421 $HASP395 AAFAREDB ENDED
0------ JES2 JOB STATISTICS ------
- 15 AUG 2026 JOB EXECUTION DATE
- 27 CARDS READ
- 26,134 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 1,072 SYSOUT SPOOL KBYTES
- 26.01 MINUTES EXECUTION TIME
UQS0009 - END OF DATA SET.
Banco Online
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 08.17.32 STC00572 ---- SATURDAY, 15 AUG 2026 ---- 08.17.32 STC00572 IEF695I START AAFAI230 WITH JOBNAME AAFAI230 IS ASSIGNED TO USER ADABASD , GROUP STCGRP 08.17.32 STC00572 $HASP373 AAFAI230 STARTED 08.17.32 STC00572 IEF403I AAFAI230 - STARTED - TIME=08.17.32 08.17.34 STC00572 +ADAN02 00230 Nucleus run without protection log 08.17.34 STC00572 +ADAL04 00230 2026-08-15 08:17:32 W A R N I N G 08.17.34 STC00572 + Now it is too late to copy DDCLOGR2 08.17.34 STC00572 +ADAL02 00230 2026-08-15 08:17:32 CLOGR2 is active 08.17.34 STC00572 +ADAN03 00230 ADABAS coming up 08.17.34 STC00572 +ADAN19 00230 Buffer flush is a s y n c h r o n o u s 08.17.34 STC00572 +ADAN01 00230 A D A B A S V7.4.4 is active 08.17.34 STC00572 +ADAN01 00230 MODE = MULTI 08.17.34 STC00572 +ADAN01 00230 Running without recovery log 08.19.28 STC00572 +TRIMX4 00230 TRIMV832 STARTUP IN PROGRESS FIX D 08.19.28 STC00572 +TRIMX4 00230 TRIMV832 ADABAS LBP - ABOVE THE 16 MEG LINE 08.19.28 STC00572 +TRIMX4 00230 TRIMV832 TRIM IS ACTIVE UQS0009 - END OF DATA SET.
Reorganizado o banco
08:25:48 ***** A D A B A S BASIC SERVICES ***** 2026-08-15
DBID 230 - Display Unused Storage - PDRU012
I Device I Total Number of I Extent in Blk. I
I Type I Blocks / Cyls. I from - until I
------I--------I------------------------- I----------------------------I
DATA I 8391 I 11509942 153465 I 1118854 - 12628795 I
------I--------I------------------------- I----------------------------I
ASSO I 8391 I 12407339 68929 I 552650 - 12959988 I
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
