Version 8.1.4

Enabling Universal Encoding Support (UES) for Your Adabas Nucleus

Prior to Adabas Version 7, Entire Net-Work converted all data for mainframe Adabas when necessary from ASCII to EBCDIC. Starting with Version 7, Adabas is delivered with its own data conversion capability called universal encoding support (UES). Entire Net-Work detects when it is connected to a target database that converts data and passes the data through to Adabas without converting it.

Universal encoding support must be activated in:

Note:
The use of UES-enabled link routines and a UES-enabled nucleus is transparent to applications, including applications that do not require universal encoding translation support. Therefore, it is not necessary to disable UES if it is already enabled.

This document covers the following topics:


Installing UES Support for the Adabas Nucleus

The following LIBR sublibraries are distributed with ADABAS for UES support:

SAGLIB.ADAvrsCS

SAGLIB.APS272nn
SAGLIB.APS272

Start of instruction setTo install these libraries:

  1. Create a z/VSE sublibrary for the code pages.

    * $$ JOB JNM=CRUESL,CLASS=0,DISP=D,LDEST=(,xxxxxx)
    * $$ LST CLASS=A,DISP=D
    // JOB LIBRDEF
    // ASSGN SYS005,DISK,VOL=vvvvvv,SHR
    // DLBL DDECSOJ,'SAG.ADABAS.LIB',2099/365,SD
    // EXTENT SYS005,vvvvvv,1,0,ssss,tttt
    // EXEC LIBR
    DEFINE L=DDECSOJ R=Y
    /*
    /&
    * $$ EOJ
  2. 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=APS272nn R=Y 
    DEFINE L=APS272      R=Y
    /*
    /&
    * $$ EOJ 
    
  3. Restore the UES code pages sublibrary to this file. Refer to the Report of Tape Creation 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
  4. Restore the APS sublibraries. Refer to the Report of Tape Creation 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.APS272nn:ADALIB.APS272nn -
              TAPE=SYS006 -
              LIST=YES -
              REPLACE=YES
               /*
              // MTC REW,SYS006
              // ASSGN SYS006,UA
              /&
              * $$ EOJ 
    
  5. Repeat the previous step for SAGLIB.APS272.

  6. Modify the Adabas startup JCL, adding the UES environment section after the ADARUN parameters:

    ADARUN .....
    ADARUN ....
    /*
    ENVIRONMENT_VARIABLES=/DDECSOJ/ADAvrs/ENVVARS.P
    /*
    /&
    * $$ EOJ

    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.APS272nn is referenced before SAGLIB.APS272):

    // 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.APS272nn,APSLIB.APS272)
    // LIBDEF OBJ,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs... X
    SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs, X
    DDECSOJ.APS272nn,DDECSOJ.APS272)
    // LIBDEF SOURCE,SEARCH=(SAGLIB.USRLIB,SAGLIB.ADAvrs,... X
    SAGLIB.AOSvrs,SAGLIB.ADEvrs,SAGLIB.ACFvrs, X
    APSLIB.APS272nn,APSLIB.APS272)
    // LIBDEF PHASE,CATALOG=SAGLIB.USRLIB
  7. 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
  8. 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
    
  9. Start the database.

    You should see the following message:

    ENTIRE CONVERSION SERVICES INITIALIZED

Top of page