SAS/ACCESS Interface To ADABAS: Reference

Access Descriptors

An ADABAS access descriptor can be based on an ADABAS file or on a NATURAL DDM.

Access Descriptors Based on ADABAS Files

This section shows an access descriptor definition that is based on an ADABAS file and the same access descriptor definition based on the CUSTOMER NATURAL DDM.

ADLIB.CUSTOMER Access Descriptor

The ADLIB.CUSTOMER access descriptor was created as follows:

proc access dbms=adabas;
   create adlib.customer.access;
   adbfile(number=15 password=cuspw   
           cipher=cuscc dbid=1);
   sysfile(number=15 password=cuspwsys  
           cipher=cusccsys dbid=1);
   secfile(number=16 password=cuspwsec  
           cipher=cusccsec dbid=1);
   assign=yes;
   rename cu = custnum
          ph = phone
          ad = street;
   format fo = date7.;
   informat fo = date7.;
   content fo = yymmdd6.;
   mvf br occurs = 4
run;

By specifying an ADABAS file number instead of a DDM, the definition bypasses NATURAL SECURITY. The following is an example of the same access descriptor written to use NATURAL SECURITY:

proc access dbms=adabas;
   create adlib.customer.access;
   nss(library=sasdemo user=demo password=demopw);
   adbfile(password=cuspw cipher=cusscc dbid=1);
   sysfile(number=15 password=cuspwsys  
           cipher=cusccsys dbid=1);
   secfile(number=16 password=cuspwsec  
           cipher=cusccsec dbid=1);
   ddm=customers;
   assign=yes;
   rename customer = custnum
          telephone = phone
          streetaddress = street;
   format firstorderdate = date7.;
   informat firstorderdate = date7.;
   content firstorderdate = yymmdd6.;
   mvf "BRANCH-OFFICE" occurs = 4
run;

Access Descriptors Based on the NATURAL DDMs

This section shows the access descriptors used in this book that are based on NATURAL DDMs. All of the view descriptors in this book were created from these access descriptors. The access descriptors are presented in alphabetical order.

MYLIB.CUSTS Access Descriptor

The MYLIB.CUSTS access descriptor was created as follows:

proc access dbms=adabas;
   create mylib.custs.access;
   nss(library=demo user=demo1 password=demo1);
   sysfile(number=15 dbid=1);
   secfile(number=16 dbid=1);
   ddm=customers;
   assign=yes;
   drop contact;
   rename customer = custnum 
          telephone = phone
          streetaddress = street;
   format firstorderdate = date7.;
   informat firstorderdate = date7.;
   content firstorderdate = yymmdd6.;
   mvf "BRANCH-OFFICE" occurs = 4;
run;

MYLIB.EMPLOYEE Access Descriptor

The MYLIB.EMPLOYEE access descriptor was created as follows:

proc access dbms=adabas;
   create mylib.employee.access;
   nss(library=demo user=demo1 password=demo1);
   sysfile(number=15 dbid=1);
   secfile(number=16 dbid=1);
   ddm=employee;
   assign=yes;
   format hiredate = date7.;
   informat hiredate = date7.;
   content hiredate = yymmdd6.;
   format birthdate = date7.;
   informat birthdate = date7.;
   content birthdate = yymmdd6.;
run;

MYLIB.INVOICE Access Descriptor

The MYLIB.INVOICE access descriptor was created as follows:

proc access dbms=adabas;
   create mylib.invoice.access;
   nss(library=demo user=demo1 password=demo1);
   sysfile(number=15 dbid=1);
   secfile(number=16 dbid=1);
   ddm=invoice;
   assign=yes;
   format billedon = date7.;
   informat billedon = date7.;
   content billedon = yymmdd6.;
   format paidon = date7.;
   informat paidon = date7.;
   content paidon = yymmdd6.;
run;

MYLIB.ORDER

The MYLIB.ORDER access descriptor was created as follows:

proc access dbms=adabas;
   create mylib.order.access;
   nss(library=demo user=demo1 password=demo1);
   sysfile(number=15 dbid=1);
   secfile(number=16 dbid=1);
   ddm=order;
   assign=yes;
   format dateordered = date7.;
   informat dateordered = date7.;
   content dateordered = yymmdd6.;
   format shipped = date7.;
   informat shipped = date7.;
   content shipped = yymmdd6.;
run;

Chapter Contents
Previous
Next
Top of Page