sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-05 08:30:06 +00:00
Code Issues Projects Releases Wiki Activity

Update mp_getddl.sas

Browse Source
This commit is contained in:
rafgag
2020-08-04 11:25:59 +02:00
parent 45e646565f
commit 8466acc7a7
1 changed files with 32 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
base/mp_getddl.sas
View File

@@ -12,6 +12,10 @@
run; run;
proc sql; describe table &syslast; proc sql; describe table &syslast;
%mp_getddl(work,test,flavour=tsql,showlog=YES) %mp_getddl(work,test,flavour=tsql,showlog=YES)
<h4> Dependencies </h4>
@li mp_getconstraints.sas
@param lib libref of the library to create DDL for. Should be assigned. @param lib libref of the library to create DDL for. Should be assigned.
@param ds dataset to create ddl for @param ds dataset to create ddl for
@param fref= the fileref to which to write the DDL. If not preassigned, will @param fref= the fileref to which to write the DDL. If not preassigned, will
@@ -58,7 +62,7 @@ create table _data_ as
%local colinfo; %let colinfo=&syslast; %local colinfo; %let colinfo=&syslast;
%local dsnlist; %local dsnlist;
select distinct upcase(memname) into: dsnlist select distinct upcase(memname) into: dsnlist
separated by ' ' separated by ' '
from &syslast from &syslast
; ;
@@ -67,16 +71,27 @@ quit;
/* Extract all Primary Key and Unique data constraints */ /* Extract all Primary Key and Unique data constraints */
%mp_getconstraints(lib=%upcase(&libref),ds=%upcase(&ds),outds=_data_) %mp_getconstraints(lib=%upcase(&libref),ds=%upcase(&ds),outds=_data_)
%local colconst; %let colconst=&syslast; %local colconst; %let colconst=&syslast;
data _data_ (drop=column_name);
set &colconst (where = (constraint_type in ('PRIMARY','UNIQUE'))); %macro addConst;
by libref table_name constraint_type constraint_name; data _null_;
length column_list $ 500; length ctype $11;
retain column_list; set &colconst (where=(table_name="&curds" and constraint_type in ('PRIMARY','UNIQUE'))) end=last;
if first.constraint_name then column_list=''; file &fref mod;
column_list = catx(', ', column_list, column_name); by constraint_type constraint_name;
if last.constraint_name then output; if upcase(strip(constraint_type)) = 'PRIMARY' then ctype='PRIMARY KEY';
run; else ctype=strip(constraint_type);
%local tabconst; %let tabconst=&syslast; %if &flavour=TSQL %then %do;
column_name=catt('[',column_name,']');
constraint_name=catt('[',constraint_name,']');
%end;
if first.constraint_name then do;
put " ,CONSTRAINT " constraint_name ctype "(" ;
put ' ' column_name;
end;
else put ' ,' column_name;
if last.constraint_name then put " )";
run;
%mend;
data _null_; data _null_;
file &fref; file &fref;
@@ -115,16 +130,7 @@ run;
run; run;
/* Extra step for data constraints */ /* Extra step for data constraints */
data _null_; %addConst
set &tabconst (where=(table_name="&curds")) end=last;
length ctype $11;
file &fref mod;
by constraint_type constraint_name;
if upcase(strip(constraint_type)) = 'PRIMARY' then ctype='PRIMARY KEY';
else ctype=strip(constraint_type);
column_list=strip(column_list);
put " ,CONSTRAINT " constraint_name " " ctype "(" column_list ")";
run;
data _null_; data _null_;
file &fref mod; file &fref mod;
@@ -173,19 +179,12 @@ run;
else if length le 8000 then fmt='[varchar]('!!cats(length)!!')'; else if length le 8000 then fmt='[varchar]('!!cats(length)!!')';
else fmt=cats('[varchar](max)'); else fmt=cats('[varchar](max)');
if notnull='yes' then notnul=' NOT NULL'; if notnull='yes' then notnul=' NOT NULL';
put name fmt notnul; put "[" name +(-1) "]" fmt notnul;
run;
data _null_;
length ctype $11;
set &tabconst (where=(table_name="&curds")) end=last;
file &fref mod;
by constraint_type constraint_name;
if upcase(strip(constraint_type)) = 'PRIMARY' then ctype='PRIMARY KEY';
else ctype=strip(constraint_type);
column_list=strip(column_list);
put " ,CONSTRAINT " constraint_name " " ctype "(" column_list ")";
run; run;
/* Extra step for data constraints */
%addConst
data _null_; data _null_;
file &fref mod; file &fref mod;
put ')'; put ')';
@@ -249,16 +248,7 @@ run;
run; run;
/* Extra step for data constraints */ /* Extra step for data constraints */
data _null_; %addConst
length ctype $11;
set &tabconst (where=(table_name="&curds")) end=last;
file &fref mod;
by constraint_type constraint_name;
if upcase(strip(constraint_type)) = 'PRIMARY' then ctype='PRIMARY KEY';
else ctype=strip(constraint_type);
column_list=strip(column_list);
put " ,CONSTRAINT " constraint_name " " ctype "(" column_list ")";
run;
data _null_; data _null_;
file &fref mod; file &fref mod;