proc access dbms=oracle;
/* create access descriptor */
create adlib.employ.access;
database='qa:[dubois]textile';
table=employees;
assign=no;
list all;
/* create view descriptor */
create vlib.emp1204.view;
select empid lastname hiredate salary dept
gender birthdate;
format empid 6.
salary dollar12.2
jobcode 5.
hiredate datetime9.
birthdate datetime9.;
subset where jobcode=1204;
run;