Reorganizar o banco de dados Adabas

Com o tempo o banco de dados Adabas fica com pequenos espaços não utilizados para juntar estes pequenos espaços não utilizados em um grande espaço a reorganização do banco é recomendada, o utilitário ADAORD REORDB faz esta organização.

1 - Vamos fazer um backup do banco de dados qualquer coisa restauramos este backup.

MEMBER=A$ADASAV 000014 REC SAVE:18.12.2010 06:21 BY USERID AA01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFSNATB JOB (AAFP,DIBD),DBA,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* -----------------------------------------------------
//* BACKUP DO BANCO DE DADOS OFFLINE
//* -----------------------------------------------------
//SAVE EXEC AAFAU040,TIME=1440
//DDSAVE1 DD DSN=ADABAS.C.SAVE.DB040.ANT.REORDB,
// DISP=(NEW,KEEP),UNIT=TP35,LABEL=(1,SL)
//* -----------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADASAV,DBID=040,MODE=SINGLE,PLOGRQ=NO
//DDKARTE DD *
ADASAV SAVE
/*

2 - Agora vamos rodar o job que vai reorganizar o banco de dados;

MEMBER=REORD040 000014 REC SAVE:14.07.2010 07:40 BY USERID AA00124 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAREDB JOB (AABS,OSB),MERCURY,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//* ---------------------------------------------------------
//* REORGANIZA O DATA E O ASSO DO BANCO
//* ---------------------------------------------------------
//REORDB EXEC AAFAU040,TIME=1440
//DDFILEA DD DSN=ADABAS.C.REORDB.DB040,
// DISP=(NEW,KEEP),UNIT=TP35,LABEL=(1,SL)
//* ---------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADAORD,MODE=SINGLE,DBID=040,PLOGRQ=NO
ADARUN LP=10000,LWKP2=1200
//DDKARTE DD *
ADAORD REORDB
/*

Categories: Adabas