fix: for PGSQL DDL generation, ignore tables with over 1600 columns (as they are not supported in Postgres)

all.sas

@@ -4398,6 +4398,7 @@ run;
 
   <h4> SAS Macros </h4>
   @li mf_existfileref.sas
+  @li mf_getvarcount.sas
   @li mp_getconstraints.sas
 
   @param lib libref of the library to create DDL for.  Should be assigned.
@@ -4685,6 +4686,17 @@ run;
     put "CREATE SCHEMA &schema;";
   %do x=1 %to %sysfunc(countw(&dsnlist));
     %let curds=%scan(&dsnlist,&x);
+    %local curdsvarcount;
+    %let curdsvarcount=%mf_getvarcount(&libref..&curds);
+    %if &curdsvarcount>1600 %then %do;
+      data _null_;
+        file &fref mod;
+        put "/* &libref..&curds contains &curdsvarcount vars */";
+        put "/* Postgres cannot create tables with over 1600 vars */";
+        put "/* No DDL will be generated for this table";
+      run;
+    %end;
+    %else %do;
       data _null_;
         file &fref mod;
         put "/* Postgres Flavour DDL for &schema..&curds */";
@@ -4738,18 +4750,16 @@ run;
         );
         file &fref mod;
         by idxusage indxname;
-/*       ds=cats(libname,'.',memname); */
         if first.indxname then do;
           put 'CREATE UNIQUE INDEX "' indxname +(-1) '" ' "ON &schema..&curds(";
           put '  "' name +(-1) '"' ;
         end;
         else put '  ,"' name +(-1) '"';
-      *else put '    ,' name ;
         if last.indxname then do;
           put ');';
         end;
       run;
-
+    %end;
   %end;
 %end;
 %if %upcase(&showlog)=YES %then %do;

base/mp_getddl.sas

@@ -17,6 +17,7 @@
 
   <h4> SAS Macros </h4>
   @li mf_existfileref.sas
+  @li mf_getvarcount.sas
   @li mp_getconstraints.sas
 
   @param lib libref of the library to create DDL for.  Should be assigned.
@@ -304,6 +305,17 @@ run;
     put "CREATE SCHEMA &schema;";
   %do x=1 %to %sysfunc(countw(&dsnlist));
     %let curds=%scan(&dsnlist,&x);
+    %local curdsvarcount;
+    %let curdsvarcount=%mf_getvarcount(&libref..&curds);
+    %if &curdsvarcount>1600 %then %do;
+      data _null_;
+        file &fref mod;
+        put "/* &libref..&curds contains &curdsvarcount vars */";
+        put "/* Postgres cannot create tables with over 1600 vars */";
+        put "/* No DDL will be generated for this table";
+      run;
+    %end;
+    %else %do;
       data _null_;
         file &fref mod;
         put "/* Postgres Flavour DDL for &schema..&curds */";
@@ -357,18 +369,16 @@ run;
         );
         file &fref mod;
         by idxusage indxname;
-/*       ds=cats(libname,'.',memname); */
         if first.indxname then do;
           put 'CREATE UNIQUE INDEX "' indxname +(-1) '" ' "ON &schema..&curds(";
           put '  "' name +(-1) '"' ;
         end;
         else put '  ,"' name +(-1) '"';
-      *else put '    ,' name ;
         if last.indxname then do;
           put ');';
         end;
       run;
-
+    %end;
   %end;
 %end;
 %if %upcase(&showlog)=YES %then %do;