/* Richard A. DeVenezia
 * SUGI 29 - "Greetings from the Edge"
 * www.devenezia.com/papers
 */

options ps=10000 nocenter;

*proc javainfo;
*run;

/* NOTE:
 * The jars or directories containing the java classes
 * org.postgresql.Driver and DataStepJdbcWrapper
 * _must_ be listed in the environment variable
 * CLASSPATH _prior_ to the SAS session being started.
 */

%include "sas/gateway-macros.sas";

%let pgsql_jdbc_driver = org.postgresql.Driver;
%let pgsql_db_url = jdbc:postgresql://www.devenezia.com:5434/sesug03demo;
%let pgsql_username = sesug03demo ;
%let pgsql_password = D3m0oeoe;

%let mysql_jdbc_driver = com.mysql.jdbc.Driver;
%let mysql_db_url = jdbc:mysql://localhost:3306/ticketing;
%let mysql_username = ticketing_app ;
%let mysql_password = foll03ws;

%let test = %sysget(database);

%let jdbc_driver = &&&test._jdbc_driver;
%let db_url      = &&&test._db_url;
%let username    = &&&test._username;
%let password    = &&&test._password;


%let cHandle =;
%let sHandle =;


options mprint;

%getConnectionHandle (
  driver = &jdbc_driver
, url = &db_url
, user = &username
, pass = &password
, cHandle_mv = cHandle
);

%put cHandle = &cHandle ;

%jdbcPushData (cHandle=&cHandle, data=sashelp.zipcode, obs=20, out=zipcodes);
%jdbcPullData (cHandle=&cHandle, query=SELECT * FROM ZIPCODES, out=WORK.ZIPCODES);

options nocenter;

ods listing;
proc print data=zipcodes;
proc compare base=sashelp.zipcode(obs=20) compare=work.zipcodes;
run;

%closeConnection ( cHandle = &cHandle );