To test new ADABAS SVC versions you can define, for example, three different SVCs. In this example, I am using SVC 255 for the new ADABAS version 8.1.1. ADASIR is also renamed in ADASIC, the same as the ADABAS subsystem ADAC.

Define ADABAS subsystem in SYS1.PARMLIB.SYSP(IEFSSN00)

(snip)
SUBSYS SUBNAME(ADAB)                /* DEFINE ADABAS SUBSYSTEM       */
  INITRTN(ADASIR)                   /*                               */
  INITPARM('NRIDTES=30,SVCNR=254,SVCTAB=N')  /* ADABAS 7.4.2         */
SUBSYS SUBNAME(ADAC)                /* DEFINE ADABAS SUBSYSTEM       */
  INITRTN(ADASIC)                   /*                               */
  INITPARM('NRIDTES=30,SVCNR=255,SVCTAB=N')  /* ADABAS 8.1.1         */
SUBSYS SUBNAME(ADAD)                /* DEFINE ADABAS SUBSYSTEM       */
  INITRTN(ADASID)                   /*                               */
  INITPARM('NRIDTES=30,SVCNR=249,SVCTAB=N')  /* ADABAS 6.2.2         */
(snip)

Link new SVC 255 in SYS1.LPALIB.ADA(IGC0025E)

//LNKSVCP  EXEC PGM=IEWL,PARM='XREF,LIST,NCAL,LET,MAP,RENT,REFR,REUS' 
//*                                                                   
//*   LINK ADASVC FOR PERMANENTLY USE (DURING IPL)                    
//*   INTO THE SYS1.LPALIB                                            
//*                                                                   
//SYSPRINT  DD   SYSOUT=*                                             
//SYSLMOD   DD   DISP=SHR,DSN=SYS1.LPALIB                             
//ADALIB    DD   DISP=SHR,DSN=SYS3.ADABAS.INST.LOADLIB     APF LOAD LIB   
//SYSUT1    DD   UNIT=SYSDA,SPACE=(CYL,(2,2))                         
//SYSLIN    DD   *                                                    
 MODE AMODE(31),RMODE(24)    <--- AMODE 31                            
 CHANGE ADASVC(IGC0025E)     <--- 25E IS THE SVC-NUMBER, E IS THE     
 INCLUDE ADALIB(ADASVC)           CORRESPONDING CHAR TO THE LAST DIGIT
 NAME IGC0025E(R)                 OF THE SVC NUMBER (255), A=1, B=2.. E=5             
/*    

Link ADASIR and rename it to ADASIC 

//LNKSIR   EXEC PGM=IEWL,PARM='XREF,LIST,NCAL,LET,MAP'             
//*                                                                
//*   LINK ADASIR INTO THE SYS1.LINKLIB.ADA as ADASIC (SVC 255)    
//*                                                                
//SYSPRINT  DD   SYSOUT=*                                          
//SYSLMOD   DD   DISP=SHR,DSN=SYS1.LINKLIB.ADA                     
//ADALIB    DD   DISP=SHR,DSN=SYS3.ADABAS.INST.LOADLIB    APF LOAD LIB
//SYSUT1    DD   UNIT=SYSDA,SPACE=(CYL,(2,2))                      
//SYSLIN    DD   *                                                 
 INCLUDE ADALIB(ADASIR)                                            
 SETCODE AC(1)                                                     
 NAME ADASIC(R)

Go back to ADABAS version 8.1.1 experiences

Top Page

Back to ADABAS Tips, Tricks, Techniques -- Overview