Aumentando o limite de MAXFILES

O banco foi definido com o limite máximo de 255 arquivos carregados, para aumentar este parâmetro tem que submeter um job de reorganização (DATA, ASSO ou REORDB) colocando a nova quantidade maxima de files no valor MAXFILES=xxxx.

Podemos ver qual é a quantidade de MAXFILES do banco Adabas pelo SYSAOS;

Opção R - Database report (enter)
Opção G - General database layout (enter)

Observe o - Maximum Number of Files - esta definido para 255

17:06:08          ***** A D A B A S  BASIC  SERVICES *****       2014-08-27
  DBID 177                 - Display General DB-Layout -              PDRG002


   Database Name ............ DB.S177.SINTEGRA
   Database Number .......... 177
   Database Version ......... 7.4
   Database Load Date ....... 2012-11-29 11:28:05

   System Files ............. 19 , 0 , 0 , 0 , 0 , 0 , 0 , 0
   Maximum Number of Files .. 255
   Number of Files Loaded ... 140
   Highest File Loaded ...... 255

   Size of RABN ............. 3 Bytes
   Current Log Tape Number .. 643
   Delta Save Facility ...... Inactive
   Recovery Aid Facility .... Inactive
   Universal Encoding Sup. .. Inactive


  PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
  Help               Exit                                           Menu

Parâmetro ADADEF MAXFILES

Uma breve explicação sobre o parâmetro ADADEF MAXFILES que foi usada para criar o banco - este parâmetro do banco especifica o número máximo de arquivos que podem ser carregadas no banco de dados. Se este parâmetro for omitido, um valor de 255 é atribuído. Uma vez que o banco de dados foi definido (com o utilitário ADADEF), o valor para MAXFILES só pode ser alterado, executando as funções REORASSO ou REORDB do utilitário ADAORD.

Aumentando o Valor MAXFILES

Tirando o banco do ar;

K F AAFAI177,ADAEND
JOB     NUMBER     Q J O SYST  DEST     PRI  ST      LINES  FORM  FCB  FLASH  
AAFAI177 S.05425   *X   - CPAC            15              0                    
... 56 PERCENT SPOOL UTILIZATION.

Backup Offline

Por precaução vamos rodar um backup qualquer coisa temos ele para restaurar

MEMBER=ADASA030 000014 REC SAVE:11.02.2011 16:07 BY   USERID AA99001  R=00000001
DSN=AAB.DIBD.JCLS                                LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8​
//AAFAS030 JOB (AAFP,DIBD),CSA,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* -----------------------------------------------------
//*             BACKUP OFF-LINE BANCO DE DADOS
//* -----------------------------------------------------
//SAVE     EXEC AAFAU177,TIME=1440
//DDSAVE1   DD DSN=ADABAS.C.SAVE.DB177.FECHA2,
//          DISP=(NEW,KEEP),UNIT=TP35,LABEL=(1,SL)
//* -----------------------------------------------------
//DDCARD    DD *
ADARUN PROG=ADASAV,DBID=177,MODE=SINGLE,PLOGRQ=NO
//DDKARTE   DD *
ADASAV   SAVE
/*

REORDB

Agora vamos rodar o REORDB para aumentar o tamanho do MAXFILES

MEMBER=REORDB177 000014 REC SAVE:11.02.2011 16:07 BY   USERID AA99001  R=00000001
DSN=AAB.DIBD.JCLS                                LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8​
//AAFAASSO  JOB (AABS,OSB),CSA,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//* -----------------------------------------------------------
//*    REORGANIZA O ASSO DO BANCO 177 - AUMENTANDO O MAXFILES  
//* -----------------------------------------------------------
//ORD      EXEC AAFAUTIT,TIME=1440                            
//DDFILEA  DD  DSN=ADABAS.C.REORASSO.DB177,                    
//             UNIT=TP35,DISP=(NEW,KEEP),LABEL=(2,SL),        
//             VOL=SER=TP0539                                  
//* -----------------------------------------------------------
//DDCARD    DD *                                              
ADARUN PROG=ADAORD,MODE=SINGLE,DBID=177,PLOGRQ=NO              
ADARUN LP=10000,LWKP2=3000                                    
//DDKARTE   DD *                                              
ADAORD    REORASSO                                            
ADAORD    DBINDEXCOMPRESSION=YES                              
ADAORD    MAXFILES=2048                                        
/*

Terminando o REORDB vamos colocando o Banco Online

K S AAFAI177
JOB     NUMBER     Q J O SYST  DEST     PRI  ST      LINES  FORM  FCB  FLASH
AAFAI177 S.05425    O C A                  9  H         338  STD

Banco Online

JOB     NUMBER     Q J O SYST  DEST     PRI  ST      LINES  FORM  FCB  FLASH  
AAFAI177 S.01771   *X   - CPAC            15              0                    
... 56 PERCENT SPOOL UTILIZATION.

Sem mensagem de erro, processo ok

1                       J E S 2  J O B  L O G  --  S Y S T E M  C P A C  --  N O
0
00.13.02 STC07120 ---- WEDNESDAY, 27 AUG 2014 ----
00.13.02 STC07120  IEF695I START AAFAI177 WITH JOBNAME AAFAI177 IS ASSIGNED TO
00.13.02 STC07120  $HASP373 AAFAI177 STARTED
00.13.02 STC07120  IEF403I AAFAI177 - STARTED - TIME=00.13.02
00.13.02 STC07120  +ADAN02 00177 Nucleus run without protection log
00.13.02 STC07120  +ADAL01 00177 2014-08-27 00:13:01 CLOG not active
00.13.02 STC07120  +ADAN03 00177 ADABAS coming up
00.13.02 STC07120  +ADAN19 00177 Buffer flush is  a s y n c h r o n o u s
00.13.02 STC07120  +ADAN01 00177 A D A B A S  V7.4.4  is active
00.13.02 STC07120  +ADAN01 00177 MODE = MULTI
00.13.02 STC07120  +ADAN01 00177 Running without recovery log

UQS0009 - END OF DATA SET.
        1 //AAFAI177 JOB MSGLEVEL=1
        2 //STARTING EXEC AAFAI177
        3 XXAAFAI177 PROC ADA='N'
          XX* UQ ALLOW
--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=AAFAI177,07120 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   27.08.2014, 17:00:13

Alterado o valor do - Maximum Number of Files - para 2048

17:30:23          ***** A D A B A S  BASIC  SERVICES *****       2014-08-27
  DBID 177                 - Display General DB-Layout -              PDRG002


   Database Name ............ DB.S177.SINTEGRA
   Database Number .......... 177
   Database Version ......... 7.4
   Database Load Date ....... 2012-11-29 11:28:05

   System Files ............. 19 , 0 , 0 , 0 , 0 , 0 , 0 , 0
   Maximum Number of Files .. 2048
   Number of Files Loaded ... 140
   Highest File Loaded ...... 255

   Size of RABN ............. 3 Bytes
   Current Log Tape Number .. 645
   Delta Save Facility ...... Inactive
   Recovery Aid Facility .... Inactive
   Universal Encoding Sup. .. Inactive


  PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
  Help               Exit                                           Menu

Categories: Adabas