Chapter Contents |
Previous |
Next |
SAS/ACCESS Interface to ADABAS Software |
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.
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.
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;
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;
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;
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 |
Copyright 1999 by SAS Institute Inc., Cary, NC, USA. All rights reserved.