Adabas - Target initialization error: ID table full

Esta mensagem ocorre quando o endereçamento do SVC dos bancos ADABAS atingi o seu limite - passando este limite ocorre este erro:

STC09563  S AAFAI220                                                          
STC04046  $HASP100 AAFAI220 ON STCINRDR                                        
STC04046  IEF695I START AAFAI220 WITH JOBNAME AAFAI220 IS ASSIGNED TO USER ADAB
STC04046  $HASP373 AAFAI220 STARTED                                            
STC04046  IEF403I AAFAI220 - STARTED - TIME=15.00.41                          
STC04046  IEC984I AAFAI220,201D,ADAT02,ADABAS.DB220.ASSO1 NOT EXCLUDED BUT HAD
STC04046  IEC984I AAFAI220,103D,ADAT03,ADABAS.DB220.ASSO1 NOT EXCLUDED BUT HAD
STC04046  IEC984I AAFAI220,201D,ADAT02,ADABAS.DB220.DATA1 NOT EXCLUDED BUT HAD
STC04046  IEC984I AAFAI220,103D,ADAT03,ADABAS.DB220.DATA1 NOT EXCLUDED BUT HAD
STC04046  +ADAM98 00220 Target initialization error: ID table full            
STC04046  IEF450I AAFAI220 AAFAI220 - ABEND=S000 U0020 REASON=00000000        
STC04046          TIME=15.00.45                                                
STC04046  IEF404I AAFAI220 - ENDED - TIME=15.00.45                            
STC04046  $HASP395 AAFAI220 ENDED

Solução

Para resolver este problema tem que alterar na biblioteca CPAC.PARMLIB(IEFSSN00 - na parte abaixo que tem que ser alterado o NRIDTES=XX para outro valor. Ou seja, o problema não está nos arquivos ASSO1/DATA1 que aparecem nas mensagens IEC984I. O Adabas chegou a iniciar o processo de inicialização, mas não conseguiu registrar o DBID 220 porque a ID Table está cheia. Para ser aceito este novo valor tem que ser dado IPL no mainframe.

MEMBER=IEFSSN00 000022 REC SAVE:21.05.2009 10:49 BY   USERID AA01055  R=00000001
DSN=CPAC.PARMLIB                                        VOL=Z18CAT UNIT=1532    
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
SUBSYS SUBNAME(SMS) /* DEFINE SMS SUBSYSTEM */                                  
  INITRTN(IGDSSIIN)                                                             
  INITPARM('ID=00,PROMPT=DISPLAY')                                              
SUBSYS SUBNAME(JES2) /* JES2 AS PRIMARY SUBSYSTEM */                            
  PRIMARY(YES) START(YES)                                                       
SUBSYS SUBNAME(IRLM)                                                            
SUBSYS SUBNAME(JRLM)                                                            
SUBSYS SUBNAME(FFST)                                                            
SUBSYS SUBNAME(LOGR) /* DEFINE SYSTEM LOGGER */                                 
  INITRTN(IXGSSINT)                                                             
SUBSYS SUBNAME(TNF)                                                             
SUBSYS SUBNAME(VMCF)                                                            
SUBSYS SUBNAME(RACF) INITRTN(IRRSSI00) INITPARM('%,X')                          
/*                                                      */                      
SUBSYS SUBNAME(JESA)                 /* JES SECUNDARIO  */                      
SUBSYS SUBNAME(COMP)                 /* PARA O COMPLETE */                      
/*  
SUBSYS SUBNAME(ADAB) INITRTN(ADASIR)                                            
 INITPARM('NRIDTES=30,SVCNR=249,SVCTAB=N')

Para 50

MEMBER=IEFSSN00 000022 REC SAVE:21.05.2009 10:49 BY   USERID DBAP055  R=00000001
DSN=CPAC.PARMLIB                                        VOL=Z18CAT UNIT=1532    
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
SUBSYS SUBNAME(SMS) /* DEFINE SMS SUBSYSTEM */                                  
  INITRTN(IGDSSIIN)                                                             
  INITPARM('ID=00,PROMPT=DISPLAY')                                              
SUBSYS SUBNAME(JES2) /* JES2 AS PRIMARY SUBSYSTEM */                            
  PRIMARY(YES) START(YES)                                                       
SUBSYS SUBNAME(IRLM)                                                            
SUBSYS SUBNAME(JRLM)                                                            
SUBSYS SUBNAME(FFST)                                                            
SUBSYS SUBNAME(LOGR) /* DEFINE SYSTEM LOGGER */                                 
  INITRTN(IXGSSINT)                                                             
SUBSYS SUBNAME(TNF)                                                             
SUBSYS SUBNAME(VMCF)                                                            
SUBSYS SUBNAME(RACF) INITRTN(IRRSSI00) INITPARM('%,X')                          
/*                                                      */                      
SUBSYS SUBNAME(JESA)                 /* JES SECUNDARIO  */                      
SUBSYS SUBNAME(COMP)                 /* PARA O COMPLETE */                      
/*  
SUBSYS SUBNAME(ADAB) INITRTN(ADASIR)                                            
 INITPARM('NRIDTES=50,SVCNR=249,SVCTAB=N')

Importante

Alterando-se o valor do parm NRIDTES através do membro IEFSSN00, será necessário efetuar IPL. Você também pode executar um ADASIP passando o parâmetro com o valor desejado, mas certifique-se de que não exista nenhum banco ativo utilizando esta SVC. Ok?

Categories: Adabas