fix: composite PK

fix: missing dependency in mp_getdbml
2026-01-03 15:40:05 +00:00 · 2020-11-26 01:26:16 +01:00 · 2020-11-26 01:11:33 +01:00
2 changed files with 10 additions and 2 deletions
--- a/all.sas
+++ b/all.sas
@@ -2703,6 +2703,7 @@ create table &outds as

  <h4> SAS Macros </h4>
  @li mf_getquotedstr.sas
+  @li mp_getconstraints.sas

  @param liblist= Space seperated list of librefs to take as
    input (Default=SASHELP)
@@ -2939,7 +2940,10 @@ run;
    data &pkds.4;
      file &outref mod;
      set &pkds.2(where=(cols="&pkcols" and curds not in (&curdslist)));
-      line='Ref: "'!!"&curds"!!cats('".(',cols,')')!!' - '!!cats(quote(trim(curds)),'.(',cols,')');
+      line='Ref: "'!!"&curds"
+        !!cats('".(',"%mf_getquotedstr(&pkcols,dlm=%str(,),quote=%str( ))",')')
+        !!' - '
+        !!cats(quote(trim(curds)),'.(',"%mf_getquotedstr(&pkcols,dlm=%str(,),quote=%str( ))",')');
      put line;
    run;

--- a/base/mp_getdbml.sas
+++ b/base/mp_getdbml.sas
@@ -19,6 +19,7 @@

  <h4> SAS Macros </h4>
  @li mf_getquotedstr.sas
+  @li mp_getconstraints.sas

  @param liblist= Space seperated list of librefs to take as
    input (Default=SASHELP)
@@ -255,7 +256,10 @@ run;
    data &pkds.4;
      file &outref mod;
      set &pkds.2(where=(cols="&pkcols" and curds not in (&curdslist)));
-      line='Ref: "'!!"&curds"!!cats('".(',cols,')')!!' - '!!cats(quote(trim(curds)),'.(',cols,')');
+      line='Ref: "'!!"&curds"
+        !!cats('".(',"%mf_getquotedstr(&pkcols,dlm=%str(,),quote=%str( ))",')')
+        !!' - '
+        !!cats(quote(trim(curds)),'.(',"%mf_getquotedstr(&pkcols,dlm=%str(,),quote=%str( ))",')');
      put line;
    run;
Author	SHA1	Message	Date
Allan Bowe	493639fe4a	fix: composite PK	2020-11-26 01:26:16 +01:00
Allan Bowe	4987d2fbbc	fix: missing dependency in mp_getdbml	2020-11-26 01:11:33 +01:00