diff --git a/NAMESPACE b/NAMESPACE
index 1df477a..a0c839b 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -4,6 +4,7 @@ export(r_to_sas)
 export(sas_connect)
 export(sas_disconnect)
 export(sas_download)
+export(sas_get_session)
 export(sas_list)
 export(sas_read_csv)
 export(sas_remove)
diff --git a/R/session.R b/R/session.R
new file mode 100644
index 0000000..f24590c
--- /dev/null
+++ b/R/session.R
@@ -0,0 +1,11 @@
+#' Get current SAS session
+#' 
+#' Gets current SAS session so that you can use functions not yet implemented.
+#' Can also be useful for testing.
+#' 
+#' @return Current SAS session.
+#' 
+#' @export
+sas_get_session <- function() {
+  .pkgenv$session
+}
\ No newline at end of file
diff --git a/man/sas_get_session.Rd b/man/sas_get_session.Rd
new file mode 100644
index 0000000..4724d66
--- /dev/null
+++ b/man/sas_get_session.Rd
@@ -0,0 +1,15 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/session.R
+\name{sas_get_session}
+\alias{sas_get_session}
+\title{Get current SAS session}
+\usage{
+sas_get_session()
+}
+\value{
+Current SAS session.
+}
+\description{
+Gets current SAS session so that you can use functions not yet implemented.
+Can also be useful for testing.
+}