diff --git a/all.sas b/all.sas index f391764..71b0196 100644 --- a/all.sas +++ b/all.sas @@ -325,7 +325,7 @@ options noquotelenmax; %let dsid=%sysfunc(open(&libds,is)); %if &dsid=0 %then %do; - %put WARNING: unable to open &libds in mf_existvarlist (&dsid); + %put %str(WARN)ING: unable to open &libds in mf_existvarlist (&dsid); %end; %if %sysfunc(attrn(&dsid,NVARS))=0 %then %do; @@ -377,7 +377,7 @@ options noquotelenmax; %local dsid rc; %let dsid=%sysfunc(open(&libds,is)); %if &dsid = 0 %then %do; - %put WARNING: Cannot open %trim(&libds), system message below; + %put %str(WARN)ING: Cannot open %trim(&libds), system message below; %put %sysfunc(sysmsg()); -1 %end; @@ -1602,7 +1602,7 @@ Usage: %local count_base count_extr i i2 extr_word base_word match outvar; %if %length(&str1)=0 or %length(&str2)=0 %then %do; - %put WARNING: empty string provided!; + %put %str(WARN)ING: empty string provided!; %put base string (str1)= &str1; %put compare string (str2) = &str2; %return; @@ -2783,7 +2783,7 @@ run; %local i setds nvars; %if not %sysfunc(exist(&base_ds)) %then %do; - %put WARNING: &base_ds does not exist; + %put %str(WARN)ING: &base_ds does not exist; %return; %end; @@ -2801,7 +2801,7 @@ select count(*) into: nvars from dictionary.columns where libname="%scan(%upcase(&base_ds),1)" and memname="%scan(%upcase(&base_ds),2)"; %if &nvars=0 %then %do; - %put WARNING: Dataset &base_ds has no variables! It will not be converted.; + %put %str(WARN)ING: Dataset &base_ds has no variables, will not be converted.; %return; %end; @@ -3012,7 +3012,7 @@ quit; )/*/STORE SOURCE*/; %if not %sysfunc(exist(&ds)) %then %do; - %put WARNING: &ds does not exist; + %put %str(WARN)ING: &ds does not exist; %return; %end; @@ -6256,7 +6256,7 @@ run; %end; %if &syscc ge 4 %then %do; - %put WARNING: SYSCC=&syscc, exiting &sysmacroname; + %put %str(WARN)ING: SYSCC=&syscc, exiting &sysmacroname; %return; %end; @@ -6615,7 +6615,7 @@ run; run; %if %length(&open_passthrough)>0 %then %do; - %put WARNING: Passthrough option for postgres not yet supported; + %put %str(WARN)ING: Passthrough option for postgres not yet supported; %return; %end; %else %do; @@ -6738,8 +6738,8 @@ run; %return; %end; %else %do; - %put WARNING: Engine &engine is currently unsupported; - %put WARNING- Please contact your support team.; + %put %str(WARN)ING: Engine &engine is currently unsupported; + %put %str(WARN)ING- Please contact your support team.; %return; %end; @@ -7431,7 +7431,7 @@ data _null_; putlog (_all_)(=); run; %if &checktype = SASLibrary %then %do; - %put WARNING: Library (&liburi) already exists with libname (&libname) ; + %put %str(WARN)ING: Library (&liburi) already exists with libname (&libname); %return; %end; @@ -7446,7 +7446,7 @@ data _null_; putlog (_all_)(=); run; %if &checktype = SASLibrary %then %do; - %put WARNING: Library (&liburi) already exists with libref (&libref) ; + %put %str(WARN)ING: Library (&liburi) already exists with libref (&libref) ; %return; %end; @@ -7466,7 +7466,7 @@ data _null_; call symputx('treeuri',uri,'l'); run; %if &foldertype ne Tree %then %do; - %put WARNING: Tree &tree does not exist!; + %put %str(WARN)ING: Tree &tree does not exist!; %return; %end; @@ -7574,7 +7574,7 @@ filename &frefout temp; * check SAS version */ %if %sysevalf(&sysver lt 9.3) %then %do; - %put WARNING: Version 9.3 or later required; + %put %str(WARN)ING: Version 9.3 or later required; %return; %end; @@ -7782,7 +7782,7 @@ data _null_; call symputx('treeuri',uri,'l'); run; %if &foldertype ne Tree %then %do; - %put WARNING: Tree &tree does not exist!; + %put %str(WARN)ING: Tree &tree does not exist!; %return; %end; @@ -7797,7 +7797,7 @@ data _null_; call symputx('stpuri',uri,'l'); run; %if &cmtype = ClassifierMap %then %do; - %put WARNING: Stored Process &stpname already exists in &tree!; + %put %str(WARN)ING: Stored Process &stpname already exists in &tree!; %return; %end; @@ -7805,14 +7805,14 @@ run; * Check that the physical file exists */ %if %sysfunc(fileexist(&directory/&filename)) ne 1 %then %do; - %put WARNING: FILE *&directory/&filename* NOT FOUND!; + %put %str(WARN)ING: FILE *&directory/&filename* NOT FOUND!; %return; %end; %if &stptype=1 %then %do; /* type 1 STP - where code is stored on filesystem */ %if %sysevalf(&sysver lt 9.2) %then %do; - %put WARNING: Version 9.2 or later required; + %put %str(WARN)ING: Version 9.2 or later required; %return; %end; @@ -7826,7 +7826,7 @@ run; %if &checkdirtype ne Directory %then %do; %mm_getdirectories(path=&directory,outds=&outds ,mDebug=&mDebug) %if %mf_nobs(&outds)=0 or %sysfunc(exist(&outds))=0 %then %do; - %put WARNING: The directory object does not exist for &directory; + %put %str(WARN)ING: The directory object does not exist for &directory; %return; %end; %end; @@ -7844,12 +7844,12 @@ run; length id $20 type $256; __rc=metadata_resolve("&treeuri",type,id); if type ne 'Tree' then do; - putlog "WARNING: Invalid tree URI: &treeuri"; + putlog "%str(WARN)ING: Invalid tree URI: &treeuri"; stopme=1; end; __rc=metadata_resolve(directoryuri,type,id); if type ne 'Directory' then do; - putlog 'WARNING: Invalid directory URI: ' directoryuri; + putlog "%str(WARN)ING: Invalid directory URI: " directoryuri; stopme=1; end; @@ -7858,7 +7858,7 @@ run; if type ne 'LogicalServer' then do; __rc=metadata_getnobj("omsobj:LogicalServer?@Name='&server'",1,serveruri); if serveruri='' then do; - putlog "WARNING: Invalid server: &server"; + putlog "%str(WARN)ING: Invalid server: &server"; stopme=1; end; end; @@ -7881,7 +7881,7 @@ run; rc6 = METADATA_SETATTR(prompturi, 'GroupInfo',groupinfo); if sum(of rc1-rc6) ne 0 then do; - putlog 'WARNING: Issue creating prompt.'; + putlog "%str(WARN)ING: Issue creating prompt."; if prompturi ne . then do; putlog ' Removing orphan: ' prompturi; rc = METADATA_DELOBJ(prompturi); @@ -7896,7 +7896,7 @@ run; rc9=METADATA_SETATTR(fileuri, 'IsARelativeName','1'); rc10=METADATA_SETASSN(fileuri, 'Directories','MODIFY',directoryuri); if sum(of rc7-rc10) ne 0 then do; - putlog 'WARNING: Issue creating file.'; + putlog "%str(WARN)ING: Issue creating file."; if fileuri ne . then do; putlog ' Removing orphans:' prompturi fileuri; rc = METADATA_DELOBJ(prompturi); @@ -7915,7 +7915,7 @@ run; !!""; rc14= METADATA_SETATTR(texturi, 'StoredText',storedtext); if sum(of rc11-rc14) ne 0 then do; - putlog 'WARNING: Issue creating TextStore.'; + putlog "%str(WARN)ING: Issue creating TextStore."; if texturi ne . then do; putlog ' Removing orphans: ' prompturi fileuri texturi; rc = METADATA_DELOBJ(prompturi); @@ -7963,7 +7963,7 @@ run; %else %if &stptype=2 %then %do; /* type 2 stp - code is stored in metadata */ %if %sysevalf(&sysver lt 9.3) %then %do; - %put WARNING: SAS version 9.3 or later required to create type2 STPs; + %put %str(WARN)ING: SAS version 9.3 or later required to create type2 STPs; %return; %end; /* check we have the correct ServerContext */ @@ -7975,7 +7975,7 @@ run; call symputx('serveruri',serveruri); run; %if &serveruri=NOTFOUND %then %do; - %put WARNING: ServerContext *&server* not found!; + %put %str(WARN)ING: ServerContext *&server* not found!; %return; %end; @@ -8046,7 +8046,7 @@ run; %end; %else %do; - %put WARNING: STPTYPE=*&stptype* not recognised!; + %put %str(WARN)ING: STPTYPE=*&stptype* not recognised!; %end; %mend;/** @@ -8493,7 +8493,7 @@ data _null_; call symputx('stpuri',uri,'l'); run; %if &type ne Document %then %do; - %put WARNING: No Document found at ⌖ + %put %str(WARN)ING: No Document found at ⌖ %return; %end; @@ -9107,7 +9107,7 @@ data _null_; when (' ') rec='0D'x; when ('$' ) rec='$' ; when (' ') rec='09'x; - otherwise putlog "WARNING: missing value for " entity=; + otherwise putlog "%str(WARN)ING: missing value for " entity=; end; rc =fput(fileid, substr(rec,1,1)); rc =fwrite(fileid); @@ -10907,7 +10907,7 @@ run; when (' ') rec='0D'x; when ('$' ) rec='$' ; when (' ') rec='09'x; - otherwise putlog "WARNING: missing value for " entity=; + otherwise putlog "%str(WARN)ING: missing value for " entity=; end; rc =fput(fileid, substr(rec,1,1)); rc =fwrite(fileid); @@ -11306,7 +11306,7 @@ data _null_; run; %if &appuri=stopifempty %then %do; - %put WARNING: &app.(Application) not found!; + %put %str(WARN)ING: &app.(Application) not found!; %return; %end; @@ -11427,12 +11427,12 @@ data _null_; run; %if &tsuri=stopifempty %then %do; - %put WARNING: &path/&name.(Document) not found!; + %put %str(WARN)ING: &path/&name.(Document) not found!; %return; %end; %if %length(&text)<2 %then %do; - %put WARNING: No text supplied!!; + %put %str(WARN)ING: No text supplied!!; %return; %end; @@ -11518,7 +11518,7 @@ data _null_; call symputx('stpuri',uri,'l'); run; %if &cmtype ne ClassifierMap %then %do; - %put WARNING: No Stored Process found at ⌖ + %put %str(WARN)ING: No Stored Process found at ⌖ %return; %end; @@ -11619,12 +11619,12 @@ data _null_; run; %if &tsuri=stopifempty %then %do; - %put WARNING: &stp.(StoredProcess) not found!; + %put %str(WARN)ING: &stp.(StoredProcess) not found!; %return; %end; %if %length(&stpcode)<2 %then %do; - %put WARNING: No SAS code supplied!!; + %put %str(WARN)ING: No SAS code supplied!!; %return; %end; diff --git a/base/mf_existvarlist.sas b/base/mf_existvarlist.sas index 721aadd..03e6aa3 100755 --- a/base/mf_existvarlist.sas +++ b/base/mf_existvarlist.sas @@ -29,7 +29,7 @@ %let dsid=%sysfunc(open(&libds,is)); %if &dsid=0 %then %do; - %put WARNING: unable to open &libds in mf_existvarlist (&dsid); + %put %str(WARN)ING: unable to open &libds in mf_existvarlist (&dsid); %end; %if %sysfunc(attrn(&dsid,NVARS))=0 %then %do; diff --git a/base/mf_getattrc.sas b/base/mf_getattrc.sas index 99eb78e..25a201d 100644 --- a/base/mf_getattrc.sas +++ b/base/mf_getattrc.sas @@ -23,7 +23,7 @@ %local dsid rc; %let dsid=%sysfunc(open(&libds,is)); %if &dsid = 0 %then %do; - %put WARNING: Cannot open %trim(&libds), system message below; + %put %str(WARN)ING: Cannot open %trim(&libds), system message below; %put %sysfunc(sysmsg()); -1 %end; diff --git a/base/mf_wordsinstr1butnotstr2.sas b/base/mf_wordsinstr1butnotstr2.sas index f2966f4..ec35930 100755 --- a/base/mf_wordsinstr1butnotstr2.sas +++ b/base/mf_wordsinstr1butnotstr2.sas @@ -30,7 +30,7 @@ %local count_base count_extr i i2 extr_word base_word match outvar; %if %length(&str1)=0 or %length(&str2)=0 %then %do; - %put WARNING: empty string provided!; + %put %str(WARN)ING: empty string provided!; %put base string (str1)= &str1; %put compare string (str2) = &str2; %return; diff --git a/base/mp_ds2cards.sas b/base/mp_ds2cards.sas index ac553ef..dd95b6d 100644 --- a/base/mp_ds2cards.sas +++ b/base/mp_ds2cards.sas @@ -43,7 +43,7 @@ %local i setds nvars; %if not %sysfunc(exist(&base_ds)) %then %do; - %put WARNING: &base_ds does not exist; + %put %str(WARN)ING: &base_ds does not exist; %return; %end; @@ -61,7 +61,7 @@ select count(*) into: nvars from dictionary.columns where libname="%scan(%upcase(&base_ds),1)" and memname="%scan(%upcase(&base_ds),2)"; %if &nvars=0 %then %do; - %put WARNING: Dataset &base_ds has no variables! It will not be converted.; + %put %str(WARN)ING: Dataset &base_ds has no variables, will not be converted.; %return; %end; diff --git a/base/mp_ds2csv.sas b/base/mp_ds2csv.sas index 30c95bb..8392a66 100644 --- a/base/mp_ds2csv.sas +++ b/base/mp_ds2csv.sas @@ -19,7 +19,7 @@ )/*/STORE SOURCE*/; %if not %sysfunc(exist(&ds)) %then %do; - %put WARNING: &ds does not exist; + %put %str(WARN)ING: &ds does not exist; %return; %end; diff --git a/meta/mm_adduser2group.sas b/meta/mm_adduser2group.sas index de18a23..7f40237 100644 --- a/meta/mm_adduser2group.sas +++ b/meta/mm_adduser2group.sas @@ -70,7 +70,7 @@ run; %end; %if &syscc ge 4 %then %do; - %put WARNING: SYSCC=&syscc, exiting &sysmacroname; + %put %str(WARN)ING: SYSCC=&syscc, exiting &sysmacroname; %return; %end; diff --git a/meta/mm_assigndirectlib.sas b/meta/mm_assigndirectlib.sas index 0f40f10..cb43576 100755 --- a/meta/mm_assigndirectlib.sas +++ b/meta/mm_assigndirectlib.sas @@ -332,7 +332,7 @@ run; run; %if %length(&open_passthrough)>0 %then %do; - %put WARNING: Passthrough option for postgres not yet supported; + %put %str(WARN)ING: Passthrough option for postgres not yet supported; %return; %end; %else %do; @@ -455,8 +455,8 @@ run; %return; %end; %else %do; - %put WARNING: Engine &engine is currently unsupported; - %put WARNING- Please contact your support team.; + %put %str(WARN)ING: Engine &engine is currently unsupported; + %put %str(WARN)ING- Please contact your support team.; %return; %end; diff --git a/meta/mm_createlibrary.sas b/meta/mm_createlibrary.sas index 8de4c0a..8bdd233 100644 --- a/meta/mm_createlibrary.sas +++ b/meta/mm_createlibrary.sas @@ -88,7 +88,7 @@ data _null_; putlog (_all_)(=); run; %if &checktype = SASLibrary %then %do; - %put WARNING: Library (&liburi) already exists with libname (&libname) ; + %put %str(WARN)ING: Library (&liburi) already exists with libname (&libname); %return; %end; @@ -103,7 +103,7 @@ data _null_; putlog (_all_)(=); run; %if &checktype = SASLibrary %then %do; - %put WARNING: Library (&liburi) already exists with libref (&libref) ; + %put %str(WARN)ING: Library (&liburi) already exists with libref (&libref) ; %return; %end; @@ -123,7 +123,7 @@ data _null_; call symputx('treeuri',uri,'l'); run; %if &foldertype ne Tree %then %do; - %put WARNING: Tree &tree does not exist!; + %put %str(WARN)ING: Tree &tree does not exist!; %return; %end; @@ -231,7 +231,7 @@ filename &frefout temp; * check SAS version */ %if %sysevalf(&sysver lt 9.3) %then %do; - %put WARNING: Version 9.3 or later required; + %put %str(WARN)ING: Version 9.3 or later required; %return; %end; diff --git a/meta/mm_createstp.sas b/meta/mm_createstp.sas index 53134b7..88c2f72 100755 --- a/meta/mm_createstp.sas +++ b/meta/mm_createstp.sas @@ -118,7 +118,7 @@ data _null_; call symputx('treeuri',uri,'l'); run; %if &foldertype ne Tree %then %do; - %put WARNING: Tree &tree does not exist!; + %put %str(WARN)ING: Tree &tree does not exist!; %return; %end; @@ -133,7 +133,7 @@ data _null_; call symputx('stpuri',uri,'l'); run; %if &cmtype = ClassifierMap %then %do; - %put WARNING: Stored Process &stpname already exists in &tree!; + %put %str(WARN)ING: Stored Process &stpname already exists in &tree!; %return; %end; @@ -141,14 +141,14 @@ run; * Check that the physical file exists */ %if %sysfunc(fileexist(&directory/&filename)) ne 1 %then %do; - %put WARNING: FILE *&directory/&filename* NOT FOUND!; + %put %str(WARN)ING: FILE *&directory/&filename* NOT FOUND!; %return; %end; %if &stptype=1 %then %do; /* type 1 STP - where code is stored on filesystem */ %if %sysevalf(&sysver lt 9.2) %then %do; - %put WARNING: Version 9.2 or later required; + %put %str(WARN)ING: Version 9.2 or later required; %return; %end; @@ -162,7 +162,7 @@ run; %if &checkdirtype ne Directory %then %do; %mm_getdirectories(path=&directory,outds=&outds ,mDebug=&mDebug) %if %mf_nobs(&outds)=0 or %sysfunc(exist(&outds))=0 %then %do; - %put WARNING: The directory object does not exist for &directory; + %put %str(WARN)ING: The directory object does not exist for &directory; %return; %end; %end; @@ -180,12 +180,12 @@ run; length id $20 type $256; __rc=metadata_resolve("&treeuri",type,id); if type ne 'Tree' then do; - putlog "WARNING: Invalid tree URI: &treeuri"; + putlog "%str(WARN)ING: Invalid tree URI: &treeuri"; stopme=1; end; __rc=metadata_resolve(directoryuri,type,id); if type ne 'Directory' then do; - putlog 'WARNING: Invalid directory URI: ' directoryuri; + putlog "%str(WARN)ING: Invalid directory URI: " directoryuri; stopme=1; end; @@ -194,7 +194,7 @@ run; if type ne 'LogicalServer' then do; __rc=metadata_getnobj("omsobj:LogicalServer?@Name='&server'",1,serveruri); if serveruri='' then do; - putlog "WARNING: Invalid server: &server"; + putlog "%str(WARN)ING: Invalid server: &server"; stopme=1; end; end; @@ -217,7 +217,7 @@ run; rc6 = METADATA_SETATTR(prompturi, 'GroupInfo',groupinfo); if sum(of rc1-rc6) ne 0 then do; - putlog 'WARNING: Issue creating prompt.'; + putlog "%str(WARN)ING: Issue creating prompt."; if prompturi ne . then do; putlog ' Removing orphan: ' prompturi; rc = METADATA_DELOBJ(prompturi); @@ -232,7 +232,7 @@ run; rc9=METADATA_SETATTR(fileuri, 'IsARelativeName','1'); rc10=METADATA_SETASSN(fileuri, 'Directories','MODIFY',directoryuri); if sum(of rc7-rc10) ne 0 then do; - putlog 'WARNING: Issue creating file.'; + putlog "%str(WARN)ING: Issue creating file."; if fileuri ne . then do; putlog ' Removing orphans:' prompturi fileuri; rc = METADATA_DELOBJ(prompturi); @@ -251,7 +251,7 @@ run; !!""; rc14= METADATA_SETATTR(texturi, 'StoredText',storedtext); if sum(of rc11-rc14) ne 0 then do; - putlog 'WARNING: Issue creating TextStore.'; + putlog "%str(WARN)ING: Issue creating TextStore."; if texturi ne . then do; putlog ' Removing orphans: ' prompturi fileuri texturi; rc = METADATA_DELOBJ(prompturi); @@ -299,7 +299,7 @@ run; %else %if &stptype=2 %then %do; /* type 2 stp - code is stored in metadata */ %if %sysevalf(&sysver lt 9.3) %then %do; - %put WARNING: SAS version 9.3 or later required to create type2 STPs; + %put %str(WARN)ING: SAS version 9.3 or later required to create type2 STPs; %return; %end; /* check we have the correct ServerContext */ @@ -311,7 +311,7 @@ run; call symputx('serveruri',serveruri); run; %if &serveruri=NOTFOUND %then %do; - %put WARNING: ServerContext *&server* not found!; + %put %str(WARN)ING: ServerContext *&server* not found!; %return; %end; @@ -382,7 +382,7 @@ run; %end; %else %do; - %put WARNING: STPTYPE=*&stptype* not recognised!; + %put %str(WARN)ING: STPTYPE=*&stptype* not recognised!; %end; %mend; \ No newline at end of file diff --git a/meta/mm_deletedocument.sas b/meta/mm_deletedocument.sas index 0abafae..a4bedab 100644 --- a/meta/mm_deletedocument.sas +++ b/meta/mm_deletedocument.sas @@ -32,7 +32,7 @@ data _null_; call symputx('stpuri',uri,'l'); run; %if &type ne Document %then %do; - %put WARNING: No Document found at ⌖ + %put %str(WARN)ING: No Document found at ⌖ %return; %end; diff --git a/meta/mm_getdocument.sas b/meta/mm_getdocument.sas index dc734da..4155672 100644 --- a/meta/mm_getdocument.sas +++ b/meta/mm_getdocument.sas @@ -125,7 +125,7 @@ data _null_; when (' ') rec='0D'x; when ('$' ) rec='$' ; when (' ') rec='09'x; - otherwise putlog "WARNING: missing value for " entity=; + otherwise putlog "%str(WARN)ING: missing value for " entity=; end; rc =fput(fileid, substr(rec,1,1)); rc =fwrite(fileid); diff --git a/meta/mm_getwebappsrvprops.sas b/meta/mm_getwebappsrvprops.sas index 57c1f22..7bdf001 100644 --- a/meta/mm_getwebappsrvprops.sas +++ b/meta/mm_getwebappsrvprops.sas @@ -99,7 +99,7 @@ run; when (' ') rec='0D'x; when ('$' ) rec='$' ; when (' ') rec='09'x; - otherwise putlog "WARNING: missing value for " entity=; + otherwise putlog "%str(WARN)ING: missing value for " entity=; end; rc =fput(fileid, substr(rec,1,1)); rc =fwrite(fileid); diff --git a/meta/mm_updateappextension.sas b/meta/mm_updateappextension.sas index 090bda3..710b7c6 100644 --- a/meta/mm_updateappextension.sas +++ b/meta/mm_updateappextension.sas @@ -70,7 +70,7 @@ data _null_; run; %if &appuri=stopifempty %then %do; - %put WARNING: &app.(Application) not found!; + %put %str(WARN)ING: &app.(Application) not found!; %return; %end; diff --git a/meta/mm_updatedocument.sas b/meta/mm_updatedocument.sas index da397a7..c376acb 100644 --- a/meta/mm_updatedocument.sas +++ b/meta/mm_updatedocument.sas @@ -58,12 +58,12 @@ data _null_; run; %if &tsuri=stopifempty %then %do; - %put WARNING: &path/&name.(Document) not found!; + %put %str(WARN)ING: &path/&name.(Document) not found!; %return; %end; %if %length(&text)<2 %then %do; - %put WARNING: No text supplied!!; + %put %str(WARN)ING: No text supplied!!; %return; %end; diff --git a/meta/mm_updatestpservertype.sas b/meta/mm_updatestpservertype.sas index 387d42f..9a2712f 100644 --- a/meta/mm_updatestpservertype.sas +++ b/meta/mm_updatestpservertype.sas @@ -34,7 +34,7 @@ data _null_; call symputx('stpuri',uri,'l'); run; %if &cmtype ne ClassifierMap %then %do; - %put WARNING: No Stored Process found at ⌖ + %put %str(WARN)ING: No Stored Process found at ⌖ %return; %end; diff --git a/meta/mm_updatestpsourcecode.sas b/meta/mm_updatestpsourcecode.sas index 4323575..bb8ffc9 100644 --- a/meta/mm_updatestpsourcecode.sas +++ b/meta/mm_updatestpsourcecode.sas @@ -68,12 +68,12 @@ data _null_; run; %if &tsuri=stopifempty %then %do; - %put WARNING: &stp.(StoredProcess) not found!; + %put %str(WARN)ING: &stp.(StoredProcess) not found!; %return; %end; %if %length(&stpcode)<2 %then %do; - %put WARNING: No SAS code supplied!!; + %put %str(WARN)ING: No SAS code supplied!!; %return; %end;