View Descriptors for the CA-Datacom/DB Tables

proc access dbms=Datacom ad=mylib.employee;
   create vlib.allemp.view;
   select all; 
   list view; 
run;

proc access dbms=Datacom ad=mylib.orders;
   create vlib.allordr.view;
   select all;
   list view;
run;

proc access dbms=Datacom ad=mylib.orders; 
   create vlib.cusordr.view;
   select stocknum shipto;
   list view;
run;

proc access dbms=Datacom ad=mylib.custs;
   create vlib.cusphon.view;
   select customer telephone name;
   list view;
run;

proc access dbms=Datacom ad=mylib.custs; 
   create vlib.custadd.view; 
   select state zipcode country name city;
   list view;
run;

proc access dbms=Datacom ad=mylib.employee;
   create vlib.dcmemps.view;
   select empid birthdate lastname firstname middlename;
   list view;
run;

proc access dbms=Datacom ad=mylib.employee;
   create vlib.empinfo.view;
   select empid dept lastname;
   list view;
run;

proc access dbms=Datacom ad=mylib.employee;
   create vlib.emps.view;
   select empid jobcode birthdate lastname;
   subset where jobcode = 602;
   subset sort lastname;
   list view;
run;

proc access dbms=Datacom ad=mylib.invoice;
   create vlib.forinv.view;
   select all;
   subset where country != 'USA';
   list view;
run;

proc access dbms=Datacom ad=mylib.invoice;
   create vlib.inv.view;
   select invoicenum amtbilled country billedby paidon;
   subset sort billedby;
   list view; 
run;

proc access dbms=Datacom ad=mylib.custs;
   create vlib.usacust.view;
   select customer state zipcode name firstorderdate;
   list view; 
   extend view; 
   subset where customer eq 1#; 
   subset sort firstorderdate; 
   list view; 
   list all;
run;

proc access dbms=Datacom ad=mylib.invoice;
   create vlib.usainv.view;
   select all;
   subset where country = 'USA';
   list view;
run;

proc access dbms=Datacom ad=mylib.orders;
   create vlib.usaordr.view;
   select ordernum stocknum length fabriccharges shipto;
   subset sort shipto;
   subset where shipto = 1#;
   list view;
run;