O procedimento de REORDB no Adabas reorganiza os dados armazenados no banco da dados para que os dados dos files sejam mais contíguos. A reorganização ajuda a aumentar a velocidade de acesso e recuperação de dados. Quando se reorganiza os dados dos files para ficarem mais contíguos, você pode aumentar o desempenho do banco Adabas.
Neste estudo de caso vou reoganizar um banco - não tem muito espaço para ser reorganizado mais é um bom estudo de caso;
Estava assim antes da reorganização;
16:12:59 ***** A D A B A S BASIC SERVICES ***** 2015-09-04
DBID 220 - 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 41 0 I 279770 - 279810 I
I 8391 I 82690 1102 I 443506 - 526195 I
------I--------I------------------------- I----------------------------I
ASSO I 8391 I 276455 1535 I 263534 - 539988 I 16:34:19 ***** A D A B A S BASIC SERVICES ***** 2015-09-04
DBID 220 - 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 82704 1102 I 443492 - 526195 I
------I--------I------------------------- I----------------------------I
ASSO I 8391 I 276455 1535 I 263534 - 539988 I1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O
0
16.14.27 JOB02238 ---- FRIDAY, 04 SEP 2015 ----
16.14.27 JOB02238 TSS7000I ADABAS Last-Used 04 Sep 15 15:50 System=CPAC Facil
16.14.27 JOB02238 TSS7001I Count=55224 Mode=Fail Locktime=None Name=CLAUDEMAR
16.14.27 JOB02238 $HASP373 AAFPSAVE STARTED - INIT K - CLASS S - SYS CPAC
16.14.27 JOB02238 IEF403I AAFPSAVE - STARTED - TIME=16.14.27
16.14.27 JOB02238 *IEF233A M 0891,PRIVAT,SL,AAFPSAVE,AAFAU220,ADABAS.C.SAVE.DB2
16.14.27 JOB02238 *CTS001 IEF233A M 0891,PRIVAT,SL,AAFPSAVE,AAFAU220,ADABAS.C.
16.14.30 JOB02238 IEC705I TAPE ON 0891,VC1096,SL,COMP,AAFPSAVE,AAFAU220.SAVE,A
16.14.30 JOB02238 ADAU14 00220 ADASAV-Run with save tape 5
16.15.58 JOB02238 IEC205I DDSAVE1,AAFPSAVE,AAFAU220,FILESEQ=1, COMPLETE VOLUME
104 DSN=ADABAS.C.SAVE.DB220,VOLS=VC1096,TOTALBLOCKS=14238
16.15.59 JOB02238 IEF234E K 0891,VC1096,PVT,AAFPSAVE,AAFAU220
16.15.59 JOB02238 CTS014 IEF234E K 0891,VC1096,PVT,AAFPSAVE,AAFAU220
16.15.59 JOB02238 - --TIMINGS (MI
16.15.59 JOB02238 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK
16.15.59 JOB02238 -SAVE AAFAU220 00 25238 39192 .22 .03 1.5
16.15.59 JOB02238 IEF404I AAFPSAVE - ENDED - TIME=16.15.59
16.15.59 JOB02238 -AAFPSAVE ENDED. NAME-DBA TOTAL TCB CPU TI
16.15.59 JOB02238 $HASP395 AAFPSAVE ENDED
--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=AAFPSAVE,02238 DS=1 SI=SM LR=1 LL=80 PP=0 DC= RL=999999
AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000 04.09.2015, 16:22:47MEMBER=REORD220 000014 REC SAVE:04.09.2015 16:23 BY USERID ADABAS R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAREDB JOB (AABS,OSB),CLAU,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//* -----------------------------------------------------
//* REORGANIZA O DATA E O ASSO DO BANCO
//* -----------------------------------------------------
//REORDB EXEC AAFAU220,TIME=1440
//DDFILEA DD DSN=ADABAS.C.REORDB.DB220,
// DISP=(NEW,KEEP),UNIT=CVRT,LABEL=(1,SL)
//* -----------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADAORD,MODE=SINGLE,DBID=220,PLOGRQ=NO
ADARUN LP=10000,LWKP2=3000
//DDKARTE DD *
ADAORD REORDB
/*1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O
0
16.19.09 JOB02251 ---- FRIDAY, 04 SEP 2015 ----
16.19.09 JOB02251 TSS7000I ADABAS Last-Used 04 Sep 15 16:14 System=CPAC Facil
16.19.09 JOB02251 TSS7001I Count=55225 Mode=Fail Locktime=None Name=CLAUDEMAR
16.19.09 JOB02251 $HASP373 AAFAREDB STARTED - INIT K - CLASS S - SYS CPAC
16.19.09 JOB02251 IEF403I AAFAREDB - STARTED - TIME=16.19.09
16.19.09 JOB02251 *IEF233A M 089F,PRIVAT,SL,AAFAREDB,AAFAU220,ADABAS.C.REORDB.D
16.19.09 JOB02251 *CTS001 IEF233A M 089F,PRIVAT,SL,AAFAREDB,AAFAU220,ADABAS.C.
16.19.10 JOB02251 ADAN02 00220 Nucleus run without protection log
16.19.10 JOB02251 ADAL01 00220 2015-09-04 16:19:09 CLOG not active
16.19.10 JOB02251 ADAN03 00220 ADABAS coming up
16.19.10 JOB02251 ADAN01 00220 A D A B A S V7.4.4 is active
16.19.10 JOB02251 ADAN01 00220 MODE = SINGLE
16.19.10 JOB02251 ADAN01 00220 Running without recovery log
16.19.19 JOB02251 IEC705I TAPE ON 089F,VC1110,SL,COMP,AAFAREDB,AAFAU220.ORD,AD
16.24.14 JOB02251 IEC205I DDFILEA,AAFAREDB,AAFAU220,FILESEQ=1, COMPLETE VOLUME
601 DSN=ADABAS.C.REORDB.DB220,VOLS=VC1110,TOTALBLOCKS=14911
16.24.14 JOB02251 ADAU40 00220 Point of No Return reached
16.24.14 JOB02251 ADAU40 00220 Point of No Return reached
16.24.14 JOB02251 ADAU41 00220 ADAORD invoked from job AAFAREDB
16.32.27 JOB02251 $HASP375 AAFAREDB ESTIMATED LINES EXCEEDED
16.32.58 JOB02251 IEF234E K 089F,VC1110,PVT,AAFAREDB,AAFAU220
16.32.58 JOB02251 CTS014 IEF234E K 089F,VC1110,PVT,AAFAREDB,AAFAU220
16.32.58 JOB02251 - --TIMINGS (MI
16.32.58 JOB02251 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK
16.32.58 JOB02251 -ORD AAFAU220 00 626K 169K 2.95 .21 13.8
16.32.58 JOB02251 IEF404I AAFAREDB - ENDED - TIME=16.32.58
16.32.58 JOB02251 -AAFAREDB ENDED. NAME-HIDEO TOTAL TCB CPU TI
16.32.58 JOB02251 $HASP395 AAFAREDB ENDED
0------ JES2 JOB STATISTICS ------
- 04 SEP 2015 JOB EXECUTION DATE
- 16 CARDS READ
- 15,534 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 662 SYSOUT SPOOL KBYTES
- 13.81 MINUTES EXECUTION TIME
UQS0009 - END OF DATA SET.
1 //AAFAREDB JOB (AABS,OSB),CLAUD,CLASS=S,MSGCLASS=A, YPRUN=HOLD
// USER=ADABAS,PASSWORD=
--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=AAFAREDB,02251 DS=1 SI=SM LR=19 LL=80 PP=0 DC=
RL=999999 AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000
0 comentários:
Enviar um comentário