NAT3077 Asso/Data Extent required, but no more extents possible

Um arquivo no Adabas é criado com tamanho definidos de DS (Data Storage), UI (upper index), NI (normal index), AC (address Converter) quando este espaço definido enche o Adabas dá mais espaço para este file, este espaço adicional chamamos de extent, no Adabas versão 7.4.4 a quantidade de extent é limitada (em 5), na versão 8 do Adabas cheguei a ler que este limite aumentou em muito mais ainda é limitado tem um limite, quando o file chega neste limite de extents o usuário tenta adicionar mais um registro no file recebe a mensagem quase igual a esta:

1Logon accepted to library FUSION.                                         
1NEXT ABZPW900                                                             
1CLAUXX900 1780 NAT3075 No more ASSO/DATA extents available. DB/FNR 013/501.
1NEXT FIN                                                                  
1NAT9978 Error occurred during execution/compilation.

Esta mensagem indica que o arquivo vai ter que ser reorganizar as extensões do Associator ou do Data deste file;

O file do analista estava assim as alocações;

  14:44:40          ***** A D A B A S  BASIC  SERVICES *****       2008-09-22   
  DBID 013                   - Display File Layout -                  PDRF022   
  File 501                                                                      
                                                                                
      IDeviceIListI Space allocated  I      From         To    I Unused         
      I Type ITypeI Blocks   / Cyls. I      RABN         RABN  I Blocks / Cyls. 
------I------I----I------------------I ------------------------I--------------- 
      I      I    I                  I                         I                
 ASSO I 8391 I AC I      109       0 I    6273419 -    6273527 I        0     0
      I 8391 I AC I       28       0 I    7068499 -    7068526 I        0     0
      I 8391 I AC I       35       0 I    7066469 -    7066503 I        0     0 
      I 8391 I AC I       43       0 I    8711052 -    8711094 I        0     0 
      I 8391 I UI I       39       0 I    9348839 -    9348877 I       27     0 
      I 8391 I NI I      492       2 I    2775924 -    2776415 I        0     0 
      I 8391 I NI I      120       0 I    3205611 -    3205730 I        0     0 
      I 8391 I NI I       96       0 I    7066373 -    7066468 I        0     0 
      I 8391 I NI I      110       0 I    8710942 -    8711051 I        0     0 
      I 8391 I NI I      160       0 I    8711095 -    8711254 I       41     0 
      I      I    I                  I                         I                
-DATA I 8391 I DS I     3323      44 I     700096 -     703418 I     2032    27 
                                                                                
  PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----   
  Help               Exit      Refresh                              Menu

Antes de qualquer procedimento no file temos que fazer um backup, qualquer coisa voltamos como estava.

MEMBER=SAVEFILE 000021 REC SAVE:22.09.2008 14:56 BY   USERID ADABAS  R=00000001
DSN=DB.ADABAS.JCC                                LIB=Y3 VOL=DB0100 UNIT=1024    
....+....1....+....2....+....3....+....4....+....5....+....6
//AAFPSAVE JOB (AAFP,DIBD),CLAUDIO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ------------------------------------------------------------
//*                   SALVAR FILE EM CARTUCHO
//* ------------------------------------------------------------
//SAVE     EXEC AAFAU013,TIME=1440
//DDSAVE1   DD DSN=ADABAS.C.SAVE.DB013.F501,
//          DISP=(NEW,KEEP),UNIT=CVRT,LABEL=(1,SL)
//* -------------------------------------------------------------
//DDCARD    DD *
ADARUN PROG=ADASAV,DBID=013
//DDKARTE   DD *
ADASAV SAVE FILE=501,UTYPE=EXU
/*

Depois de rodar o backup do file vamos reorganizar o file, como este file é pequeno vamos salvar na area temporaria;

MEMBER=REORFILE 000021 REC SAVE:22.09.2008 14:56 BY   USERID ADABAS  R=00000001
DSN=DB.ADABAS.JCC                                LIB=Y3 VOL=DB0100 UNIT=1024    
....+....1....+....2....+....3....+....4....+....5....+....6
//AAFPREOR JOB (AAFP,OSB),CLAU,CLASS=W,MSGCLASS=A TYPRUN=HOLD                
//*UQ ALLOW                                                                     
//* ---------------------------------------------------------------             
//*                   REORGANIZA O FILE DE UM BANCO                             
//* ---------------------------------------------------------------             
//ORDFILE  EXEC  AAFAU013,TIME=1440                                             
//DDFILEA   DD   DSN=&&DDFILEA,DISP=(,PASS),                                    
//          UNIT=SYSDA,VOL=SER=WRK22A,SPACE=(CYL,(1000,2))                      
//* ---------------------------------------------------------------             
//DDCARD    DD *                                                                
ADARUN PROG=ADAORD,DBID=013                                                
//DDKARTE   DD *                                                                
ADAORD    REORFILE                                                              
ADAORD    FILE=501                                                              
ADAORD    ISNSIZE=3                                                             
** ADAORD    INDEXCOMPRESSION=YES                                               
ADAORD    NISIZE=2853B                                                          
ADAORD    UISIZE=141B                                                           
** ADAORD    DSSIZE=13000B                                                      
ADAORD    MAXISN=1000000

Depois que foi reorganizado ficou assim as alocações;

14:57:35          ***** A D A B A S  BASIC  SERVICES *****       2008-09-22   
  DBID 013                   - Display File Layout -                  PDRF022   
  File 501                                                                      
                                                                                
      IDeviceIListI Space allocated  I      From         To    I Unused         
      I Type ITypeI Blocks   / Cyls. I      RABN         RABN  I Blocks / Cyls. 
------I------I----I------------------I ------------------------I--------------- 
      I      I    I                  I                         I                
-ASSO I 8391 I AC I      726       4 I    7007532 -    7008257 I        0     0 
      I 8391 I UI I      141       0 I    7066373 -    7066513 I      134     0 
      I 8391 I NI I     2853      15 I    6071708 -    6074560 I     2199    12 
      I      I    I                  I                         I                
-DATA I 8391 I DS I     3323      44 I     700088 -     703410 I     2036    27 
                                                                                
                                                                                
  PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----   
  Help               Exit      Refresh                              Menu

Depois de reorganizado os usuários vão conseguir inserir registros neste file;

Categories: Adabas, Adabas 7.4.4