diff --git a/all.sas b/all.sas index 6ad5bd1..e2532e6 100644 --- a/all.sas +++ b/all.sas @@ -11943,7 +11943,7 @@ data _null_; run; /* END */ -*%put &sysmacroname took %sysevalf(%sysfunc(datetime())-&dttm) seconds to run; +/* %put &sysmacroname took %sysevalf(%sysfunc(datetime())-&dttm) secs to run; */ %mend mp_replace; /** @@ -24098,12 +24098,14 @@ run; msg=Cannot enter mfv_existfolder.sas with syscc=&syscc ) - %local fref rc; + %local fref rc var; %let fref=%mf_getuniquefileref(); %if %sysfunc(filename(fref,,filesrvc,folderPath="&path"))=0 %then %do; 1 + %let var=_FILESRVC_&fref._URI; %let rc=%sysfunc(filename(fref)); + %symdel &var; %end; %else %do; 0 @@ -24461,6 +24463,11 @@ run; ,mac=MV_CREATEFILE ,msg=%str(File &path/&name already exists and force=&force) ) +%mp_abort( + iftrue=(&syscc ne 0), + mac=MV_CREATEFILE182 + msg=syscc=&syscc after mfv_getpathuri +) %if %mf_isblank(&fileuri)=0 and &force=YES %then %do; proc http method="DELETE" url="&base_uri&fileuri" &oauth_bearer; @@ -24530,8 +24537,8 @@ data &outds; end; run; -%put &sysmacroname: &name created at %mfv_getpathuri(&path/&name);%put; -%put &base_uri/SASJobExecution?_file=&path/&name;%put; +%put &sysmacroname: %trim(&base_uri)%mfv_getpathuri(&path/&name); +%put /SASJobExecution?_file=&path/&name;%put; %if &mdebug=0 %then %do; /* clear refs */ @@ -24664,7 +24671,7 @@ options noquotelenmax; %if &SYS_PROCHTTP_STATUS_CODE=401 %then %do; /* relates to: https://github.com/sasjs/core/issues/400 */ %put 401 thrown in &sysmacroname; - %put sleeping: %sysfunc(sleep(10,1)) - will try once more; + %put sleeping: %sysfunc(sleep(12,1)) secs - will try again; proc http method='GET' out=&fname1 &oauth_bearer url="&base_uri/folders/folders/@item?path=&newpath"; %if &grant_type=authorization_code %then %do; @@ -24728,7 +24735,7 @@ options noquotelenmax; 'Content-Type'='application/vnd.sas.content.folder+json' 'Accept'='application/vnd.sas.content.folder+json'; run; - %if &SYS_PROCHTTP_STATUS_CODE ne 200 %then %do; + %if &SYS_PROCHTTP_STATUS_CODE ne 201 %then %do; %put &=SYS_PROCHTTP_STATUS_CODE &=SYS_PROCHTTP_STATUS_PHRASE; %end; %mp_abort(iftrue=(&SYS_PROCHTTP_STATUS_CODE ne 201) diff --git a/base/mp_replace.sas b/base/mp_replace.sas index fcacbae..b5c8036 100644 --- a/base/mp_replace.sas +++ b/base/mp_replace.sas @@ -148,6 +148,6 @@ data _null_; run; /* END */ -*%put &sysmacroname took %sysevalf(%sysfunc(datetime())-&dttm) seconds to run; +/* %put &sysmacroname took %sysevalf(%sysfunc(datetime())-&dttm) secs to run; */ %mend mp_replace; diff --git a/viya/mfv_existfolder.sas b/viya/mfv_existfolder.sas index d92884b..11e2942 100644 --- a/viya/mfv_existfolder.sas +++ b/viya/mfv_existfolder.sas @@ -33,12 +33,14 @@ msg=Cannot enter mfv_existfolder.sas with syscc=&syscc ) - %local fref rc; + %local fref rc var; %let fref=%mf_getuniquefileref(); %if %sysfunc(filename(fref,,filesrvc,folderPath="&path"))=0 %then %do; 1 + %let var=_FILESRVC_&fref._URI; %let rc=%sysfunc(filename(fref)); + %symdel &var; %end; %else %do; 0 diff --git a/viya/mv_createfile.sas b/viya/mv_createfile.sas index b7ff7c7..1c00e28 100644 --- a/viya/mv_createfile.sas +++ b/viya/mv_createfile.sas @@ -177,6 +177,11 @@ run; ,mac=MV_CREATEFILE ,msg=%str(File &path/&name already exists and force=&force) ) +%mp_abort( + iftrue=(&syscc ne 0), + mac=MV_CREATEFILE182 + msg=syscc=&syscc after mfv_getpathuri +) %if %mf_isblank(&fileuri)=0 and &force=YES %then %do; proc http method="DELETE" url="&base_uri&fileuri" &oauth_bearer; @@ -246,8 +251,8 @@ data &outds; end; run; -%put &sysmacroname: &name created at %mfv_getpathuri(&path/&name);%put; -%put &base_uri/SASJobExecution?_file=&path/&name;%put; +%put &sysmacroname: %trim(&base_uri)%mfv_getpathuri(&path/&name); +%put /SASJobExecution?_file=&path/&name;%put; %if &mdebug=0 %then %do; /* clear refs */ diff --git a/viya/mv_createfolder.sas b/viya/mv_createfolder.sas index 90820fd..0937e95 100644 --- a/viya/mv_createfolder.sas +++ b/viya/mv_createfolder.sas @@ -117,7 +117,7 @@ options noquotelenmax; %if &SYS_PROCHTTP_STATUS_CODE=401 %then %do; /* relates to: https://github.com/sasjs/core/issues/400 */ %put 401 thrown in &sysmacroname; - %put sleeping: %sysfunc(sleep(10,1)) - will try once more; + %put sleeping: %sysfunc(sleep(12,1)) secs - will try again; proc http method='GET' out=&fname1 &oauth_bearer url="&base_uri/folders/folders/@item?path=&newpath"; %if &grant_type=authorization_code %then %do; @@ -181,7 +181,7 @@ options noquotelenmax; 'Content-Type'='application/vnd.sas.content.folder+json' 'Accept'='application/vnd.sas.content.folder+json'; run; - %if &SYS_PROCHTTP_STATUS_CODE ne 200 %then %do; + %if &SYS_PROCHTTP_STATUS_CODE ne 201 %then %do; %put &=SYS_PROCHTTP_STATUS_CODE &=SYS_PROCHTTP_STATUS_PHRASE; %end; %mp_abort(iftrue=(&SYS_PROCHTTP_STATUS_CODE ne 201)