feat: finishing mp_formats and adding a test, including prefix in mp_init, allowing mp_sortinplace to work when there is no primary key, sand other small fixes

base/mp_getformats.sas

@@ -9,12 +9,12 @@
 
   Example usage:
 
-      %mp_getformats(lib=sashelp,ds=prdsale,outds=work.prdfmts)
+      %mp_getformats(lib=sashelp,ds=prdsale,outsummary=work.dictable)
 
   @param [in] lib= (0) The libref for which to return formats.
   @todo Enable exporting of formats for an entire library
   @param [in] ds= (0) The dataset from which to obtain format definitions
-  @param [in] fmtstring= (0) A list of additional format names
+  @param [in] fmtlist= (0) A list of additional format names
   @param [out] outsummary= (work.mp_getformats_summary) Output dataset
     containing summary definitions - structure taken from dictionary.formats as
     follows:
@@ -32,8 +32,10 @@ efw:best.|defd:best.|
 |||||$BINARY|F|B|1|0|32767|0|8|0|
 |||||$BINARY|I|B|1|0|32767|0|8|0|
 
-  @param [out] outdetail= (work.mp_getformats_detail) The output dataset to
-    contain the format definitions (from proc format CNTLOUT).  Sample data:
+  @param [out] outdetail= (0) Provide an output dataset in which to export all
+    the custom format definitions (from proc format CNTLOUT).  Definitions:
+https://support.sas.com/documentation/cdl/en/proc/61895/HTML/default/viewer.htm#a002473477.htm
+  Sample data:
 
   |NAME $|LENGTH 8|VARNUM 8|LABEL $|FORMAT $49|TYPE $1 |DDTYPE $|
   |---|---|---|---|---|---|---|
@@ -46,6 +48,7 @@ efw:best.|defd:best.|
   @li mf_getfmtlist.sas
   @li mf_getfmtname.sas
   @li mf_getquotedstr.sas
+  @li mf_getuniquename.sas
 
 
   <h4> Related Macros </h4>
@@ -58,15 +61,16 @@ efw:best.|defd:best.|
 
 %macro mp_getformats(lib=0
   ,ds=0
-  ,fmtstring=0
+  ,fmtlist=0
   ,outsummary=work.mp_getformats_summary
-  ,outdetail=work.mp_getformats_detail
+  ,outdetail=0
 );
 
-%local i fmt allfmts;
-%if "&fmtstring" ne "0" %then %do i=1 %to %sysfunc(countw(&fmtstring,,%str( )));
+%local i fmt allfmts tempds fmtcnt;
+
+%if "&fmtlist" ne "0" %then %do i=1 %to %sysfunc(countw(&fmtlist,,%str( )));
   /* ensure format list contains format _name_ only */
-  %let fmt=%scan(&fmtstring,&i,%str( ));
+  %let fmt=%scan(&fmtlist,&i,%str( ));
   %let fmt=%mf_getfmtname(&fmt);
   %let allfmts=&allfmts &fmt;
 %end;
@@ -83,12 +87,59 @@ efw:best.|defd:best.|
 /* ensure list is unique */
 %let allfmts=%mf_dedup(%upcase(&allfmts));
 
-/* now we have the formats, lets figure out the search path */
+/* create summary table */
+%if %index(&outsummary,.)=0 %then %let outsummary=WORK.&outsummary;
 proc sql;
 create table &outsummary as
   select * from dictionary.formats
   where fmtname in (%mf_getquotedstr(&allfmts,quote=D))
+    and fmttype='F';
 
-
+%if "&outdetail" ne "0" %then %do;
+  /* ensure base table always exists */
+  proc sql;
+  create table &outdetail(
+      FMTNAME char(32)     label='Format name'
+      ,START char(16)     label='Starting value for format'
+      ,END char(16)     label='Ending value for format'
+      ,LABEL char(256)     label='Format value label'
+      ,MIN num length=3     label='Minimum length'
+      ,MAX num length=3     label='Maximum length'
+      ,DEFAULT num length=3     label='Default length'
+      ,LENGTH num length=3     label='Format length'
+      ,FUZZ num     label='Fuzz value'
+      ,PREFIX char(2)     label='Prefix characters'
+      ,MULT num     label='Multiplier'
+      ,FILL char(1)     label='Fill character'
+      ,NOEDIT num length=3     label='Is picture string noedit?'
+      ,TYPE char(1)     label='Type of format'
+      ,SEXCL char(1)     label='Start exclusion'
+      ,EEXCL char(1)     label='End exclusion'
+      ,HLO char(13)     label='Additional information'
+      ,DECSEP char(1)     label='Decimal separator'
+      ,DIG3SEP char(1)     label='Three-digit separator'
+      ,DATATYPE char(8)     label='Date/time/datetime?'
+      ,LANGUAGE char(8)     label='Language for date strings'
+  );
+  /* grab the location of each format */
+  %let fmtcnt=0;
+  data _null_;
+    set &outsummary;
+    if not missing(libname);
+    x+1;
+    call symputx(cats('fmtloc',x),cats(libname,'.',memname),'l');
+    call symputx(cats('fmtname',x),fmtname,'l');
+    call symputx('fmtcnt',x,'l');
+  run;
+  /* export each format and append to the output table */
+  %let tempds=%mf_getuniquename(prefix=mp_getformats);
+  %do i=1 %to &fmtcnt;
+    proc format library=&&fmtloc&i CNTLOUT=&tempds;
+      select &&fmtname&i;
+    run;
+    proc append base=&outdetail data=&tempds;
+    run;
+  %end;
+%end;
 
 %mend mp_getformats;