From 011672b1ed40b6764c58a65e62186b0552e0a103 Mon Sep 17 00:00:00 2001 From: Allan Bowe Date: Mon, 4 Jul 2022 12:24:53 +0000 Subject: [PATCH 1/2] fix: setting length of label property in mp_jsonout --- all.sas | 4 ++++ base/mp_jsonout.sas | 1 + meta/mm_createwebservice.sas | 1 + server/ms_createwebservice.sas | 1 + viya/mv_createwebservice.sas | 1 + 5 files changed, 8 insertions(+) diff --git a/all.sas b/all.sas index 9f11c82..a5b067d 100644 --- a/all.sas +++ b/all.sas @@ -8873,6 +8873,7 @@ options filename _sjs4 temp lrecl=131068 encoding='utf-8'; data _null_; file _sjs4; + length label $258; put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; do i=1 to &numcols; name=quote(trim(symget(cats('name',i)))); @@ -15289,6 +15290,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; + put ' length label $258; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; @@ -20090,6 +20092,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; + put ' length label $258; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; @@ -22470,6 +22473,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; + put ' length label $258; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; diff --git a/base/mp_jsonout.sas b/base/mp_jsonout.sas index 1ef3b2f..c7732b4 100644 --- a/base/mp_jsonout.sas +++ b/base/mp_jsonout.sas @@ -296,6 +296,7 @@ filename _sjs4 temp lrecl=131068 encoding='utf-8'; data _null_; file _sjs4; + length label $258; put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; do i=1 to &numcols; name=quote(trim(symget(cats('name',i)))); diff --git a/meta/mm_createwebservice.sas b/meta/mm_createwebservice.sas index f02cddc..339d7eb 100644 --- a/meta/mm_createwebservice.sas +++ b/meta/mm_createwebservice.sas @@ -319,6 +319,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; + put ' length label $258; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; diff --git a/server/ms_createwebservice.sas b/server/ms_createwebservice.sas index 70d584d..8501021 100644 --- a/server/ms_createwebservice.sas +++ b/server/ms_createwebservice.sas @@ -320,6 +320,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; + put ' length label $258; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; diff --git a/viya/mv_createwebservice.sas b/viya/mv_createwebservice.sas index 84ee3d0..3ea7dbb 100644 --- a/viya/mv_createwebservice.sas +++ b/viya/mv_createwebservice.sas @@ -462,6 +462,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; + put ' length label $258; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; From 6b167e7a4cba301fd8af03eb7b2d5196de94143d Mon Sep 17 00:00:00 2001 From: Allan Bowe Date: Mon, 4 Jul 2022 12:26:19 +0000 Subject: [PATCH 2/2] fix: longer label to allow for escapes --- all.sas | 8 ++++---- base/mp_jsonout.sas | 2 +- meta/mm_createwebservice.sas | 2 +- server/ms_createwebservice.sas | 2 +- viya/mv_createwebservice.sas | 2 +- 5 files changed, 8 insertions(+), 8 deletions(-) diff --git a/all.sas b/all.sas index a5b067d..346f1c1 100644 --- a/all.sas +++ b/all.sas @@ -8873,7 +8873,7 @@ options filename _sjs4 temp lrecl=131068 encoding='utf-8'; data _null_; file _sjs4; - length label $258; + length label $350; put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; do i=1 to &numcols; name=quote(trim(symget(cats('name',i)))); @@ -15290,7 +15290,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; - put ' length label $258; '; + put ' length label $350; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; @@ -20092,7 +20092,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; - put ' length label $258; '; + put ' length label $350; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; @@ -22473,7 +22473,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; - put ' length label $258; '; + put ' length label $350; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; diff --git a/base/mp_jsonout.sas b/base/mp_jsonout.sas index c7732b4..6cc3b1f 100644 --- a/base/mp_jsonout.sas +++ b/base/mp_jsonout.sas @@ -296,7 +296,7 @@ filename _sjs4 temp lrecl=131068 encoding='utf-8'; data _null_; file _sjs4; - length label $258; + length label $350; put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; do i=1 to &numcols; name=quote(trim(symget(cats('name',i)))); diff --git a/meta/mm_createwebservice.sas b/meta/mm_createwebservice.sas index 339d7eb..77bc184 100644 --- a/meta/mm_createwebservice.sas +++ b/meta/mm_createwebservice.sas @@ -319,7 +319,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; - put ' length label $258; '; + put ' length label $350; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; diff --git a/server/ms_createwebservice.sas b/server/ms_createwebservice.sas index 8501021..95dade3 100644 --- a/server/ms_createwebservice.sas +++ b/server/ms_createwebservice.sas @@ -320,7 +320,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; - put ' length label $258; '; + put ' length label $350; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); '; diff --git a/viya/mv_createwebservice.sas b/viya/mv_createwebservice.sas index 3ea7dbb..e1118a7 100644 --- a/viya/mv_createwebservice.sas +++ b/viya/mv_createwebservice.sas @@ -462,7 +462,7 @@ data _null_; put ' filename _sjs4 temp lrecl=131068 encoding=''utf-8''; '; put ' data _null_; '; put ' file _sjs4; '; - put ' length label $258; '; + put ' length label $350; '; put ' put ", ""$%lowcase(%sysfunc(coalescec(&dslabel,&ds)))"":{""vars"":{"; '; put ' do i=1 to &numcols; '; put ' name=quote(trim(symget(cats(''name'',i)))); ';