diff --git a/all.sas b/all.sas index ddab51b..72af851 100644 --- 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<<'; diff --git a/base/mp_abort.sas b/base/mp_abort.sas index 55ae2ca..1869b19 100644 --- 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<<';