TCP/IP access to the database is performed using Entire Net-Work components. The Entire Net-Work sublibraries must be made accessible in the LIBDEF PHASE,SEARCH declaration.
The following Entire Net-Work LIBR sublibraries are distributed to provide TCP/IP support:
SAGLIB.WCPvrs SAGLIB.WTCvrs
To install these libraries:
Create a z/VSE sublibrary for the Entire Net-Work components.
* $$ JOB JNM=CRUWCP,CLASS=0,DISP=D,LDEST=(,xxxxxx) * $$ LST CLASS=A,DISP=D // JOB LIBRDEF // ASSGN SYS005,DISK,VOL=vvvvvv,SHR // DLBL SAGLIB,'SAG.ADABAS.LIB',2099/365,SD // EXTENT SYS005,vvvvvv,1,0,ssss,tttt // EXEC LIBR DEFINE L=WCPvrs R=Y DEFINE L=WTCvrs R=Y /* /& * $$ EOJ
Check that the SVC used by ADALNK in this example is correct. It can be set up by modifying the LNKGBLS source. After this, it may be necessary to modify the translation tables. For more information, read LNKUES for Data Conversion. These can be assembled and linked using the LNKLNK8 sample job.
Create a z/VSE sublibrary for APS.
* $$ JOB JNM=CRUAPS,CLASS=0,DISP=D,LDEST=(,xxxxxx) * $$ LST CLASS=A,DISP=D // JOB LIBRDEF // ASSGN SYS005,DISK,VOL=vvvvvv,SHR // DLBL DDECSOJ,'SAG.APS.LIB',2099/365,SD // EXTENT SYS005,vvvvvv,1,0,ssss,tttt // EXEC LIBR DEFINE L=APSvrsnn R=Y DEFINE L=APSvrs R=Y /* /& * $$ EOJ
Restore the UES code pages sublibrary to this file. Refer to the Software AG Product Delivery Report for the file positions on the distribution tape.
* $$ JOB JNM=RESTECS,DISP=D,CLASS=0,LDEST=(,xxxxxx) * $$ LST DISP=D,CLASS=A // JOB RESTECS // ASSGN SYS005,DISK,VOL=vvvvvv,SHR // DLBL ADALIB,'SAG.ADABAS.LIB',2099/365,SD // EXTENT SYS005,vvvvvv,1,0,ssss,tttt // ASSGN SYS006,cuu // MTC REW,SYS006 // EXEC LIBR,PARM='MSHP' RESTORE SUBLIB=SAGLIB.ADAvrsCS:ADALIB.DDECSOJ - TAPE=SYS006 - LIST=YES - REPLACE=YES /* // MTC REW,SYS006 // ASSGN SYS006,UA /& * $$ EOJ
Restore the APS sublibraries. Refer to the Software AG Product Delivery Report for the file positions on the distribution tape.
* $$ JOB JNM=RESTAPS,DISP=D,CLASS=0,LDEST=(,xxxxxx)
* $$ LST DISP=D,CLASS=A
// JOB RESTAPS
// ASSGN SYS005,DISK,VOL=vvvvvv,SHR
// DLBL APSLIB,'SAG.APS.LIB',2099/365,SD
// EXTENT SYS005,vvvvvv,1,0,ssss,tttt
// ASSGN SYS006,cuu
// MTC REW,SYS006
// EXEC LIBR,PARM='MSHP'
RESTORE SUBLIB=SAGLIB.APSvrsnn:ADALIB.APSvrsnn -
TAPE=SYS006 -
LIST=YES -
REPLACE=YES
/*
// MTC REW,SYS006
// ASSGN SYS006,UA
/&
* $$ EOJ
Repeat the previous step for SAGLIB.APSvrs, SAGLIB.WCPvrs and SAGLIB.WTCvrs.
Modify the Adabas startup JCL, adding the APS environment parameter list for UES after the ADARUN parameters:
ADARUN ..... ADARUN .... /* TCPIP=NO ENVIRONMENT_VARIABLES=/DDECSOJ/ADAvrs/ENVVARS.P /* /& * $$ EOJ
Note:
TCPIP=NO must always be specified in the APS parameter
list, regardless of the ADARUN TCPIP parameter setting.
Reference the library where the libraries were restored in your Adabas startup procedure:
// ASSGN SYS005,DISK,VOL=vvvvvv,SHR // DLBL DDECSOJ,SAG.ADABAS.LIB,2099/365,SD // EXTENT SYS005,vvvvvv,1,0,ssss,tttt
And add the libraries to the LIBDEF chain:(be sure SAGLIB.APSvrsnn is referenced before SAGLIB.APSvrs):
// DLBL APSLIB,SAG.APS.LIB,2099/365,SD // EXTENT SYS006,vvvvvv,1,0,ssss,tttt // LIBDEF PHASE,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs... X SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs,...X DDECSOJ.DDECSOJ, X APSLIB.APSvrsnn,APSLIB.APSvrs) // LIBDEF OBJ,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs... X SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs, X DDECSOJ.APSvrsnn,DDECSOJ.APSvrs) // LIBDEF SOURCE,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs,... X SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs, X APSLIB.APSvrsnn,APSLIB.APSvrs) // LIBDEF PHASE,CATALOG=SAGLIB.USRLIB// LIBDEF PHASE,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs... X SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs,...X SAGLIB.WCPvrs,SAGLIB.WTCvrs,... X DDECSOJ.DDECSOJ,... X APSLIB.APSvrsnn,APSLIB.APSvrs)
If you are running UES with TCP/IP support, set up the LIBDEF chain as follows (setup of the WCPvrs and WTCvrs libraries referenced in this chain is described in your Entire Net-Work documentation):
// DLBL APSLIB,SAG.APS.LIB,2099/365,SD // EXTENT SYS006,vvvvvv,1,0,ssss,tttt // LIBDEF PHASE,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs... X SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs,...X SAGLIB.WCPvrs,SAGLIB.WTCvrs,... X DDECSOJ.DDECSOJ, X APSLIB.APSvrsnn,APSLIB.APSvrs) // LIBDEF OBJ,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs... X SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs, X SAGLIB.WCPvrs,SAGLIB.WTCvrs,... X DDECSOJ.APSvrsnn,DDECSOJ.APSvrs) // LIBDEF SOURCE,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs,... X SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs, X APSLIB.APSvrsnn,APSLIB.APSvrs)
Modify the ENVVARS.P file, adding the following line in the APSvrs library:
* This member contains Environment Variables used by APS and * APS-based applications. * ECSOBJDIR=FILE://DDECSOJ/DDECSOJ
Run the ADADEF utility setting UES=YES:
* $$ JOB JNM=ADADEF,CLASS=0,DISP=D,LDEST=(,xxxxxx) * $$ LST CLASS=A,DISP=D // JOB ADADEF EXECUTE THE ADABAS VERSION 7 UTILITY ***DEF*** // OPTION LOG,PARTDUMP * // EXEC PROC=ADALIB * // EXEC PROC=ADAFIL * // EXEC ADARUN,SIZE=ADARUN * ADARUN PROG=ADADEF,MODE=SINGLE,SVC=svc,DEVICE=dddd,DBID=nnnn /* ADADEF MODIFY UES=YES /* /& * $$ EOJ
Activate UES support in the Adabas nucleus. This is accomplished by ensuring that the following parameters have been set:
The ADARUN TCPIP parameter has been set to "YES".
The ADARUN TCPURL parameter specifies an appropriate URL for the appropriate TCP/IP application programming interface (API).
Additional information is provided in Installing UES Support for the Adabas Nucleus.
An example job for the nucleus can be found in the supplied library element ADANUCT(X).
Start the database.
You should see the following message:
ENTIRE CONVERSION SERVICES INITIALIZED