libname dbdeux odbc /*指定一个以odbc版本的逻辑库*/ user=cestmoi using=sesame db=receipts connection=globalread dbindex=yes dbconinit='exec update_proc'; proc print data=dbdeux.sales; run; data work.highsale; set dbdeux.sales; if totalsales>500000 then sales="High"; else if totalsales>300000 then sales="Moderate"; else sales="Low"; run; proc print data=work.highsale; run; libname oraclib oracle user=cestmoi password=sesame path=oracpath; preserve_col_names=yes; proc sql dquote=ansi; create table oraclib.gtforty as /*和sql合用*/ select lname as LastName, fname as FirstName, salary as Salary format=dollar10.2 from oraclib.staff a, oraclib.payroll b where (a.idnum eq b.idnum) and (salary gt 40000); quit; proc sql; connect to oracle as dblink (user=cestmoi pw=trustme path=orapath connection=global); select * from connection to dblink (select id, lastname, firstname, hiredate, salary from employees where hiredate>='31-DEC-99'); execute (grant update, insert on orders to cestmoi) by dblink; disconnect from dblink; quit;