diff --git a/all.sas b/all.sas
index 9f17e8d..b748394 100644
--- a/all.sas
+++ b/all.sas
@@ -3841,6 +3841,7 @@ Usage:
SAS Macros
@li mf_getplatform.sas
@li mm_createwebservice.sas
+ @li ms_createwebservice.sas
@li mv_createwebservice.sas
@param [in,out] path= The full folder path where the service will be created
@@ -3852,7 +3853,7 @@ Usage:
be added
@param [in] replace= (YES) Select YES to replace any existing service in that
location
-
+ @param [in] mDebug= (0) set to 1 to show debug messages in the log
@version 9.2
@author Allan Bowe
@@ -3865,6 +3866,7 @@ Usage:
,code=ft15f001
,desc=This service was created by the mp_createwebservice macro
,replace=YES
+ ,mdebug=0
)/*/STORE SOURCE*/;
%if &syscc ge 4 %then %do;
@@ -3885,9 +3887,11 @@ Usage:
%end;
%else %if &platform=SASJS %then %do;
%if "&path"="HOME" %then %let path=/Users/&_sasjs_username/My Folder;
- %ms_createfile(&path/&name..sas
- ,inref=&code
- ,prerefs=&precode
+ %ms_createwebservice(path=&path
+ ,name=&name
+ ,code=&code
+ ,precode=&precode
+ ,mdebug=&mdebug
)
%end;
%else %do;
@@ -19221,6 +19225,9 @@ options &optval;
@li mf_getuser.sas
@li mf_getuniquename.sas
+ Related Files
+ @li ms_createwebservice.test.sas
+
@version 9.2
@author Allan Bowe
diff --git a/base/mp_createwebservice.sas b/base/mp_createwebservice.sas
index 4959d0d..80b4459 100644
--- a/base/mp_createwebservice.sas
+++ b/base/mp_createwebservice.sas
@@ -29,6 +29,7 @@ Usage:
SAS Macros
@li mf_getplatform.sas
@li mm_createwebservice.sas
+ @li ms_createwebservice.sas
@li mv_createwebservice.sas
@param [in,out] path= The full folder path where the service will be created
@@ -40,7 +41,7 @@ Usage:
be added
@param [in] replace= (YES) Select YES to replace any existing service in that
location
-
+ @param [in] mDebug= (0) set to 1 to show debug messages in the log
@version 9.2
@author Allan Bowe
@@ -53,6 +54,7 @@ Usage:
,code=ft15f001
,desc=This service was created by the mp_createwebservice macro
,replace=YES
+ ,mdebug=0
)/*/STORE SOURCE*/;
%if &syscc ge 4 %then %do;
@@ -73,9 +75,11 @@ Usage:
%end;
%else %if &platform=SASJS %then %do;
%if "&path"="HOME" %then %let path=/Users/&_sasjs_username/My Folder;
- %ms_createfile(&path/&name..sas
- ,inref=&code
- ,prerefs=&precode
+ %ms_createwebservice(path=&path
+ ,name=&name
+ ,code=&code
+ ,precode=&precode
+ ,mdebug=&mdebug
)
%end;
%else %do;
diff --git a/server/ms_createwebservice.sas b/server/ms_createwebservice.sas
index ead0f42..e1394d4 100644
--- a/server/ms_createwebservice.sas
+++ b/server/ms_createwebservice.sas
@@ -45,6 +45,9 @@
@li mf_getuser.sas
@li mf_getuniquename.sas
+ Related Files
+ @li ms_createwebservice.test.sas
+
@version 9.2
@author Allan Bowe
diff --git a/tests/crossplatform/mp_createwebservice.test.sas b/tests/crossplatform/mp_createwebservice.test.sas
new file mode 100644
index 0000000..396d474
--- /dev/null
+++ b/tests/crossplatform/mp_createwebservice.test.sas
@@ -0,0 +1,28 @@
+/**
+ @file
+ @brief Testing ms_createwebservice.sas macro
+
+ SAS Macros
+ @li mf_getuniquefileref.sas
+ @li mp_assertscope.sas
+ @li mp_createwebservice.sas
+
+**/
+
+%let path=&mcTestAppLoc/mp_createwebservice;
+%let name=myservice;
+%let fref=%mf_getuniquefileref();
+
+data _null_;
+ file &fref lrecl=3000;
+ put '%put hello world;';
+run;
+
+%mp_assertscope(SNAPSHOT)
+%mp_createwebservice(path=&path,name=&name,code=&fref,mdebug=&sasjs_mdebug)
+%mp_assertscope(COMPARE)
+
+
+
+
+
diff --git a/tests/serveronly/ms_createwebservice.test.sas b/tests/serveronly/ms_createwebservice.test.sas
new file mode 100644
index 0000000..fc73251
--- /dev/null
+++ b/tests/serveronly/ms_createwebservice.test.sas
@@ -0,0 +1,28 @@
+/**
+ @file
+ @brief Testing ms_createwebservice.sas macro
+
+ SAS Macros
+ @li mf_getuniquefileref.sas
+ @li mp_assertscope.sas
+ @li ms_createwebservice.sas
+
+**/
+
+%let path=&mcTestAppLoc/ms_createwebservice;
+%let name=myservice;
+%let fref=%mf_getuniquefileref();
+
+data _null_;
+ file &fref lrecl=3000;
+ put '%put hello world;';
+run;
+
+%mp_assertscope(SNAPSHOT)
+%ms_createwebservice(path=&path,name=&name,code=&fref,mdebug=&sasjs_mdebug)
+%mp_assertscope(COMPARE)
+
+
+
+
+
diff --git a/tests/testinit.sas b/tests/testinit.sas
index c72ba4a..16009c5 100644
--- a/tests/testinit.sas
+++ b/tests/testinit.sas
@@ -3,13 +3,13 @@
@brief init file for tests
SAS Macros
+ @li mf_uid.sas
@li mp_init.sas
- @li mv_webout.sas
**/
/* location in metadata or SAS Drive for temporary files */
-%let mcTestAppLoc=/Public/temp/macrocore;
+%let mcTestAppLoc=/tmp/tests/sasjs/core/%mf_uid();
/* set defaults */
%mp_init()