Access Descriptors for ADABAS

Access Descriptors Based on ADABAS Files

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

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;