SVC Installation

Para testar novas versões de ADABAS você tem que definir um novo SVC, por exemplo, três SVCs diferente. Neste exemplo, estou usando SVC 255 para a nova versão 8.1.1 ADABAS. ADASIR também é renomeado em ADASIC, o mesmo que o ADAC subsistema ADABAS. Define ADABAS subsystem in SYS1.PARMLIB.SYSP(IEFSSN00)

(corte)
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 */
(corte)

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)

Retirado - Clique Aqui

Categories: Adabas