fix: prevening truncation of _debug in mp_abort.sas and more reliable way to fetch syswarningtext and syserrortext

chore: fixing example in header for mp_gsubfile()
2025-12-30 14:10:05 +00:00 · 2021-09-16 14:04:50 +01:00 · 2021-09-16 13:54:27 +01:00
3 changed files with 12 additions and 8 deletions
--- a/all.sas
+++ b/all.sas
@@ -1806,7 +1806,7 @@ Usage:
    /* send response in SASjs JSON format */
    data _null_;
      file _webout mod lrecl=32000 encoding='utf-8';
-      length msg $32767 debug $8;
+      length msg $32767 ;
      sasdatetime=datetime();
      msg=cats(symget('msg'),'\n\nLog Extract:\n',symget('logmsg'));
      /* escape the quotes */
@@ -1837,13 +1837,15 @@ Usage:
      _PROGRAM=quote(trim(resolve(symget('_PROGRAM'))));
      put ',"_PROGRAM" : ' _PROGRAM ;
      put ",""SYSCC"" : ""&syscc"" ";
-      put ",""SYSERRORTEXT"" : ""&syserrortext"" ";
+      syserrortext=quote(trim(symget('syserrortext')));
+      put ",""SYSERRORTEXT"" : " syserrortext;
      put ",""SYSHOSTNAME"" : ""&syshostname"" ";
      put ",""SYSJOBID"" : ""&sysjobid"" ";
      put ",""SYSSITE"" : ""&syssite"" ";
      sysvlong=quote(trim(symget('sysvlong')));
      put ',"SYSVLONG" : ' sysvlong;
-      put ",""SYSWARNINGTEXT"" : ""&syswarningtext"" ";
+      syswarningtext=quote(trim(symget('syswarningtext')));
+      put ",""SYSWARNINGTEXT"" : " syswarningtext;
      put ',"END_DTTM" : "' "%sysfunc(datetime(),datetime20.3)" '" ';
      put "}" @;
      if debug ge '"131"' then put '>>weboutEND<<';
@@ -5108,7 +5110,7 @@ create table &outds (rename=(
        file "&file";
        put "&str";
      run;
-      %mp_gsubfile(file=&file, pattern=str, replacement=rep)
+      %mp_gsubfile(file=&file, patternvar=str, replacevar=rep)
      data _null_;
        infile "&file";
        input;
--- a/base/mp_abort.sas
+++ b/base/mp_abort.sas
@@ -158,7 +158,7 @@
    /* send response in SASjs JSON format */
    data _null_;
      file _webout mod lrecl=32000 encoding='utf-8';
-      length msg $32767 debug $8;
+      length msg $32767 ;
      sasdatetime=datetime();
      msg=cats(symget('msg'),'\n\nLog Extract:\n',symget('logmsg'));
      /* escape the quotes */
@@ -189,13 +189,15 @@
      _PROGRAM=quote(trim(resolve(symget('_PROGRAM'))));
      put ',"_PROGRAM" : ' _PROGRAM ;
      put ",""SYSCC"" : ""&syscc"" ";
-      put ",""SYSERRORTEXT"" : ""&syserrortext"" ";
+      syserrortext=quote(trim(symget('syserrortext')));
+      put ",""SYSERRORTEXT"" : " syserrortext;
      put ",""SYSHOSTNAME"" : ""&syshostname"" ";
      put ",""SYSJOBID"" : ""&sysjobid"" ";
      put ",""SYSSITE"" : ""&syssite"" ";
      sysvlong=quote(trim(symget('sysvlong')));
      put ',"SYSVLONG" : ' sysvlong;
-      put ",""SYSWARNINGTEXT"" : ""&syswarningtext"" ";
+      syswarningtext=quote(trim(symget('syswarningtext')));
+      put ",""SYSWARNINGTEXT"" : " syswarningtext;
      put ',"END_DTTM" : "' "%sysfunc(datetime(),datetime20.3)" '" ';
      put "}" @;
      if debug ge '"131"' then put '>>weboutEND<<';
--- a/base/mp_gsubfile.sas
+++ b/base/mp_gsubfile.sas
@@ -15,7 +15,7 @@
        file "&file";
        put "&str";
      run;
-      %mp_gsubfile(file=&file, pattern=str, replacement=rep)
+      %mp_gsubfile(file=&file, patternvar=str, replacevar=rep)
      data _null_;
        infile "&file";
        input;
Author	SHA1	Message	Date
Allan Bowe	2e7fcbe5b8	fix: prevening truncation of _debug in mp_abort.sas and more reliable way to fetch syswarningtext and syserrortext	2021-09-16 14:04:50 +01:00
Allan Bowe	3e7b9f8c14	chore: fixing example in header for mp_gsubfile()	2021-09-16 13:54:27 +01:00