diff --git a/all.sas b/all.sas index 20cc266..85a8830 100644 --- a/all.sas +++ b/all.sas @@ -7626,6 +7626,7 @@ filename &tempref clear; call symputx(cats('name',_n_),name,'l'); call symputx(cats('newname',_n_),newname,'l'); call symputx(cats('len',_n_),newlen,'l'); + call symputx(cats('length',_n_),length,'l'); call symputx(cats('fmt',_n_),fmt,'l'); call symputx(cats('type',_n_),type,'l'); call symputx(cats('typelong',_n_),typelong,'l'); @@ -7758,9 +7759,11 @@ filename &tempref clear; name=quote(trim(symget(cats('name',i)))); format=quote(trim(symget(cats('fmt',i)))); label=quote(trim(symget(cats('label',i)))); + length=quote(trim(symget(cats('length',i)))); type=quote(trim(symget(cats('typelong',i)))); if i>1 then put "," @@; - put name ':{"format":' format ',"label":' label ',"type":' type '}'; + put name ':{"format":' format ',"label":' label + ',"length":' length ',"type":' type '}'; end; put '}}'; run; @@ -12753,6 +12756,7 @@ data _null_; put ' call symputx(cats(''name'',_n_),name,''l''); '; put ' call symputx(cats(''newname'',_n_),newname,''l''); '; put ' call symputx(cats(''len'',_n_),newlen,''l''); '; + put ' call symputx(cats(''length'',_n_),length,''l''); '; put ' call symputx(cats(''fmt'',_n_),fmt,''l''); '; put ' call symputx(cats(''type'',_n_),type,''l''); '; put ' call symputx(cats(''typelong'',_n_),typelong,''l''); '; @@ -12885,9 +12889,11 @@ data _null_; put ' name=quote(trim(symget(cats(''name'',i)))); '; put ' format=quote(trim(symget(cats(''fmt'',i)))); '; put ' label=quote(trim(symget(cats(''label'',i)))); '; + put ' length=quote(trim(symget(cats(''length'',i)))); '; put ' type=quote(trim(symget(cats(''typelong'',i)))); '; put ' if i>1 then put "," @@; '; - put ' put name '':{"format":'' format '',"label":'' label '',"type":'' type ''}''; '; + put ' put name '':{"format":'' format '',"label":'' label '; + put ' '',"length":'' length '',"type":'' type ''}''; '; put ' end; '; put ' put ''}}''; '; put ' run; '; @@ -17881,6 +17887,7 @@ data _null_; put ' call symputx(cats(''name'',_n_),name,''l''); '; put ' call symputx(cats(''newname'',_n_),newname,''l''); '; put ' call symputx(cats(''len'',_n_),newlen,''l''); '; + put ' call symputx(cats(''length'',_n_),length,''l''); '; put ' call symputx(cats(''fmt'',_n_),fmt,''l''); '; put ' call symputx(cats(''type'',_n_),type,''l''); '; put ' call symputx(cats(''typelong'',_n_),typelong,''l''); '; @@ -18013,9 +18020,11 @@ data _null_; put ' name=quote(trim(symget(cats(''name'',i)))); '; put ' format=quote(trim(symget(cats(''fmt'',i)))); '; put ' label=quote(trim(symget(cats(''label'',i)))); '; + put ' length=quote(trim(symget(cats(''length'',i)))); '; put ' type=quote(trim(symget(cats(''typelong'',i)))); '; put ' if i>1 then put "," @@; '; - put ' put name '':{"format":'' format '',"label":'' label '',"type":'' type ''}''; '; + put ' put name '':{"format":'' format '',"label":'' label '; + put ' '',"length":'' length '',"type":'' type ''}''; '; put ' end; '; put ' put ''}}''; '; put ' run; '; diff --git a/base/mp_jsonout.sas b/base/mp_jsonout.sas index f7f6024..7ebd6d1 100644 --- a/base/mp_jsonout.sas +++ b/base/mp_jsonout.sas @@ -117,6 +117,7 @@ call symputx(cats('name',_n_),name,'l'); call symputx(cats('newname',_n_),newname,'l'); call symputx(cats('len',_n_),newlen,'l'); + call symputx(cats('length',_n_),length,'l'); call symputx(cats('fmt',_n_),fmt,'l'); call symputx(cats('type',_n_),type,'l'); call symputx(cats('typelong',_n_),typelong,'l'); @@ -249,9 +250,11 @@ name=quote(trim(symget(cats('name',i)))); format=quote(trim(symget(cats('fmt',i)))); label=quote(trim(symget(cats('label',i)))); + length=quote(trim(symget(cats('length',i)))); type=quote(trim(symget(cats('typelong',i)))); if i>1 then put "," @@; - put name ':{"format":' format ',"label":' label ',"type":' type '}'; + put name ':{"format":' format ',"label":' label + ',"length":' length ',"type":' type '}'; end; put '}}'; run; diff --git a/meta/mm_createwebservice.sas b/meta/mm_createwebservice.sas index 21ba9fb..9310f10 100644 --- a/meta/mm_createwebservice.sas +++ b/meta/mm_createwebservice.sas @@ -150,6 +150,7 @@ data _null_; put ' call symputx(cats(''name'',_n_),name,''l''); '; put ' call symputx(cats(''newname'',_n_),newname,''l''); '; put ' call symputx(cats(''len'',_n_),newlen,''l''); '; + put ' call symputx(cats(''length'',_n_),length,''l''); '; put ' call symputx(cats(''fmt'',_n_),fmt,''l''); '; put ' call symputx(cats(''type'',_n_),type,''l''); '; put ' call symputx(cats(''typelong'',_n_),typelong,''l''); '; @@ -282,9 +283,11 @@ data _null_; put ' name=quote(trim(symget(cats(''name'',i)))); '; put ' format=quote(trim(symget(cats(''fmt'',i)))); '; put ' label=quote(trim(symget(cats(''label'',i)))); '; + put ' length=quote(trim(symget(cats(''length'',i)))); '; put ' type=quote(trim(symget(cats(''typelong'',i)))); '; put ' if i>1 then put "," @@; '; - put ' put name '':{"format":'' format '',"label":'' label '',"type":'' type ''}''; '; + put ' put name '':{"format":'' format '',"label":'' label '; + put ' '',"length":'' length '',"type":'' type ''}''; '; put ' end; '; put ' put ''}}''; '; put ' run; '; diff --git a/viya/mv_createwebservice.sas b/viya/mv_createwebservice.sas index f938f00..fd00fbc 100644 --- a/viya/mv_createwebservice.sas +++ b/viya/mv_createwebservice.sas @@ -294,6 +294,7 @@ data _null_; put ' call symputx(cats(''name'',_n_),name,''l''); '; put ' call symputx(cats(''newname'',_n_),newname,''l''); '; put ' call symputx(cats(''len'',_n_),newlen,''l''); '; + put ' call symputx(cats(''length'',_n_),length,''l''); '; put ' call symputx(cats(''fmt'',_n_),fmt,''l''); '; put ' call symputx(cats(''type'',_n_),type,''l''); '; put ' call symputx(cats(''typelong'',_n_),typelong,''l''); '; @@ -426,9 +427,11 @@ data _null_; put ' name=quote(trim(symget(cats(''name'',i)))); '; put ' format=quote(trim(symget(cats(''fmt'',i)))); '; put ' label=quote(trim(symget(cats(''label'',i)))); '; + put ' length=quote(trim(symget(cats(''length'',i)))); '; put ' type=quote(trim(symget(cats(''typelong'',i)))); '; put ' if i>1 then put "," @@; '; - put ' put name '':{"format":'' format '',"label":'' label '',"type":'' type ''}''; '; + put ' put name '':{"format":'' format '',"label":'' label '; + put ' '',"length":'' length '',"type":'' type ''}''; '; put ' end; '; put ' put ''}}''; '; put ' run; ';