From cb8073336be3b2f518536da48c87f33848249332 Mon Sep 17 00:00:00 2001 From: Kun Jinkao <45487685+Snoopy1866@users.noreply.github.com> Date: Wed, 10 Jul 2024 11:00:00 +0800 Subject: [PATCH] =?UTF-8?q?fix(qualify)=20=E5=88=86=E7=B1=BB=E5=90=8D?= =?UTF-8?q?=E7=A7=B0=E9=95=BF=E5=BA=A6=E8=BF=87=E9=95=BF=EF=BC=8C=E5=AF=BC?= =?UTF-8?q?=E8=87=B4=E5=AE=8F=E5=8F=98=E9=87=8F=E8=A2=AB=E8=B5=8B=E4=B8=BA?= =?UTF-8?q?=E7=BC=BA=E5=A4=B1=E5=80=BC=20(#41)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit select into 语句赋值给宏变量的默认长度为 200，如果 select 结果的长度超出 200，则会导致宏变量被赋为缺失值，需使用 length 语句手动指定字符串的长度 --- gbk/qualify.sas | 74 ++++++++++++++++++++++++++++-------------------- utf8/qualify.sas | 74 ++++++++++++++++++++++++++++-------------------- 2 files changed, 86 insertions(+), 62 deletions(-) diff --git a/gbk/qualify.sas b/gbk/qualify.sas index f34e61a..1c87189 100644 --- a/gbk/qualify.sas +++ b/gbk/qualify.sas @@ -24,6 +24,7 @@ Version Date: 2023-03-08 1.0.1 2024-06-04 1.0.19 2024-06-13 1.0.20 2024-06-14 1.0.21 + 2024-07-10 1.0.22 =================================== */ @@ -338,9 +339,12 @@ Version Date: 2023-03-08 1.0.1 %end; proc sql noprint; - select quote(strip(var_level)) into : var_level_1- from tmp_qualify_distinct_var; - select quote(strip(var_level_note)) into : var_level_note_1- from tmp_qualify_distinct_var; - select count(var_level) into : var_level_n from tmp_qualify_distinct_var; + select max(length(var_level)) into : var_level_len from tmp_qualify_distinct_var; + select max(length(var_level_note)) into : var_level_note_len from tmp_qualify_distinct_var; + + select quote(strip(var_level)) length = %eval(&var_level_len + 2) into : var_level_1- from tmp_qualify_distinct_var; + select quote(strip(var_level_note)) length = %eval(&var_level_note_len + 2) into : var_level_note_1- from tmp_qualify_distinct_var; + select count(var_level) into : var_level_n from tmp_qualify_distinct_var; quit; @@ -668,7 +672,7 @@ Version Date: 2023-03-08 1.0.1 /**/ proc sql noprint; - create table tmp_qualify_outdata as + create table tmp_qualify_outdata_label as select 0 as SEQ, %unquote(%superq(label_sql_expr)) as ITEM @@ -688,22 +692,21 @@ Version Date: 2023-03-08 1.0.1 /*Ƶ*/ 1 as RATE, strip(put(1, &RATE_format)) as RATE_FMT, - cat(%unquote( - %do j = 1 %to &stat_n; - %temp_combpl_hash("&&string_&j") %bquote(,) strip(calculated &&stat_&j.._FMT) %bquote(,) - %end; - %temp_combpl_hash("&&string_&j") - ) - ) as VALUE + %do j = 1 %to &stat_n; + %temp_combpl_hash("&&string_&j") || strip(calculated &&stat_&j.._FMT) || + %end; + %temp_combpl_hash("&&string_&j") as VALUE %end; - from tmp_qualify_indata_unique_total(firstobs = 1 obs = 1) - %do i = 1 %to &var_level_n; - outer union corr + from tmp_qualify_indata_unique_total(firstobs = 1 obs = 1); + quit; + + %do i = 1 %to &var_level_n; + proc sql noprint; + create table tmp_qualify_outdata_level_&i as select &i as SEQ, - cat(%unquote(%superq(indent_sql_expr)), - %unquote(&&var_level_note_&i), - %unquote(%superq(suffix_sql_expr))) as ITEM, + %unquote(%superq(indent_sql_expr)) || %unquote(&&var_level_note_&i) || %unquote(%superq(suffix_sql_expr)) + as ITEM, /*Ƶ*/ sum(&var_name = &&var_level_&i) as FREQ, strip(put(calculated FREQ, &FREQ_format)) as FREQ_FMT, @@ -716,30 +719,36 @@ Version Date: 2023-03-08 1.0.1 /*Ƶ*/ calculated N/count(*) as RATE, strip(put(calculated RATE, &RATE_format)) as RATE_FMT, - cat(%unquote( - %do j = 1 %to &stat_n; - %temp_combpl_hash("&&string_&j") %bquote(,) strip(calculated &&stat_&j.._FMT) %bquote(,) - %end; - %temp_combpl_hash("&&string_&j") - ) - ) as VALUE - from tmp_qualify_indata_unique_var - %end; - %bquote(;) - quit; + %do j = 1 %to &stat_n; + %temp_combpl_hash("&&string_&j") || strip(calculated &&stat_&j.._FMT) || + %end; + %temp_combpl_hash("&&string_&j") as VALUE + from tmp_qualify_indata_unique_var; + quit; + %end; /*3. ݼ*/ + proc sql noprint; + select max(length) into : column_item_len_max from DICTIONARY.COLUMNS where libname = "WORK" and + memname in (%do i = 1 %to &var_level_n; "TMP_QUALIFY_OUTDATA_LEVEL_&i" %end;) and + name = "ITEM"; + quit; data &libname_out..&memname_out(%if %superq(dataset_options_out) = %bquote() %then %do; keep = item value %end; %else %do; &dataset_options_out %end;); - set tmp_qualify_outdata; + length item $&column_item_len_max; + set tmp_qualify_outdata_label + %do i = 1 %to &var_level_n; + tmp_qualify_outdata_level_&i + %end; + ; run; - + /*----------------------------------------------к----------------------------------------------*/ /*ɾмݼ*/ %if &DEL_TEMP_DATA = TRUE %then %do; @@ -751,7 +760,10 @@ Version Date: 2023-03-08 1.0.1 %end; tmp_qualify_by_fmt tmp_qualify_distinct_var - tmp_qualify_outdata + tmp_qualify_outdata_label + %do i = 1 %to &var_level_n; + tmp_qualify_outdata_level_&i + %end; ; quit; %end; diff --git a/utf8/qualify.sas b/utf8/qualify.sas index a0d8f50..c4e7181 100644 --- a/utf8/qualify.sas +++ b/utf8/qualify.sas @@ -24,6 +24,7 @@ Version Date: 2023-03-08 1.0.1 2024-06-04 1.0.19 2024-06-13 1.0.20 2024-06-14 1.0.21 + 2024-07-10 1.0.22 =================================== */ @@ -338,9 +339,12 @@ Version Date: 2023-03-08 1.0.1 %end; proc sql noprint; - select quote(strip(var_level)) into : var_level_1- from tmp_qualify_distinct_var; - select quote(strip(var_level_note)) into : var_level_note_1- from tmp_qualify_distinct_var; - select count(var_level) into : var_level_n from tmp_qualify_distinct_var; + select max(length(var_level)) into : var_level_len from tmp_qualify_distinct_var; + select max(length(var_level_note)) into : var_level_note_len from tmp_qualify_distinct_var; + + select quote(strip(var_level)) length = %eval(&var_level_len + 2) into : var_level_1- from tmp_qualify_distinct_var; + select quote(strip(var_level_note)) length = %eval(&var_level_note_len + 2) into : var_level_note_1- from tmp_qualify_distinct_var; + select count(var_level) into : var_level_n from tmp_qualify_distinct_var; quit; @@ -668,7 +672,7 @@ Version Date: 2023-03-08 1.0.1 /*汇总*/ proc sql noprint; - create table tmp_qualify_outdata as + create table tmp_qualify_outdata_label as select 0 as SEQ, %unquote(%superq(label_sql_expr)) as ITEM @@ -688,22 +692,21 @@ Version Date: 2023-03-08 1.0.1 /*频率*/ 1 as RATE, strip(put(1, &RATE_format)) as RATE_FMT, - cat(%unquote( - %do j = 1 %to &stat_n; - %temp_combpl_hash("&&string_&j") %bquote(,) strip(calculated &&stat_&j.._FMT) %bquote(,) - %end; - %temp_combpl_hash("&&string_&j") - ) - ) as VALUE + %do j = 1 %to &stat_n; + %temp_combpl_hash("&&string_&j") || strip(calculated &&stat_&j.._FMT) || + %end; + %temp_combpl_hash("&&string_&j") as VALUE %end; - from tmp_qualify_indata_unique_total(firstobs = 1 obs = 1) - %do i = 1 %to &var_level_n; - outer union corr + from tmp_qualify_indata_unique_total(firstobs = 1 obs = 1); + quit; + + %do i = 1 %to &var_level_n; + proc sql noprint; + create table tmp_qualify_outdata_level_&i as select &i as SEQ, - cat(%unquote(%superq(indent_sql_expr)), - %unquote(&&var_level_note_&i), - %unquote(%superq(suffix_sql_expr))) as ITEM, + %unquote(%superq(indent_sql_expr)) || %unquote(&&var_level_note_&i) || %unquote(%superq(suffix_sql_expr)) + as ITEM, /*频数*/ sum(&var_name = &&var_level_&i) as FREQ, strip(put(calculated FREQ, &FREQ_format)) as FREQ_FMT, @@ -716,30 +719,36 @@ Version Date: 2023-03-08 1.0.1 /*频率*/ calculated N/count(*) as RATE, strip(put(calculated RATE, &RATE_format)) as RATE_FMT, - cat(%unquote( - %do j = 1 %to &stat_n; - %temp_combpl_hash("&&string_&j") %bquote(,) strip(calculated &&stat_&j.._FMT) %bquote(,) - %end; - %temp_combpl_hash("&&string_&j") - ) - ) as VALUE - from tmp_qualify_indata_unique_var - %end; - %bquote(;) - quit; + %do j = 1 %to &stat_n; + %temp_combpl_hash("&&string_&j") || strip(calculated &&stat_&j.._FMT) || + %end; + %temp_combpl_hash("&&string_&j") as VALUE + from tmp_qualify_indata_unique_var; + quit; + %end; /*3. 输出数据集*/ + proc sql noprint; + select max(length) into : column_item_len_max from DICTIONARY.COLUMNS where libname = "WORK" and + memname in (%do i = 1 %to &var_level_n; "TMP_QUALIFY_OUTDATA_LEVEL_&i" %end;) and + name = "ITEM"; + quit; data &libname_out..&memname_out(%if %superq(dataset_options_out) = %bquote() %then %do; keep = item value %end; %else %do; &dataset_options_out %end;); - set tmp_qualify_outdata; + length item $&column_item_len_max; + set tmp_qualify_outdata_label + %do i = 1 %to &var_level_n; + tmp_qualify_outdata_level_&i + %end; + ; run; - + /*----------------------------------------------运行后处理----------------------------------------------*/ /*删除中间数据集*/ %if &DEL_TEMP_DATA = TRUE %then %do; @@ -751,7 +760,10 @@ Version Date: 2023-03-08 1.0.1 %end; tmp_qualify_by_fmt tmp_qualify_distinct_var - tmp_qualify_outdata + tmp_qualify_outdata_label + %do i = 1 %to &var_level_n; + tmp_qualify_outdata_level_&i + %end; ; quit; %end;