Merge pull request #42 from lexjansen/github_issue_27_xptv8

GitHub issue 27 xptv8

Author: lexjansen

data/send_xpt/bg.xpt

@@ -1,49 +1,49 @@
-%* update this location to your own location;
-%let project_folder=/_github/lexjansen/dataset-json-sas;
-%include "&project_folder/programs/config.sas";
-
-
-%let _cst_rc=;
-%let _cst_rcmsg=;
-
-/* Convert ADaM XPT files to SAS datasets */
-%cstutilxptread(
-  _cstSourceFolder=&project_folder/data/adam_xpt,
-  _cstOutputLibrary=dataadam,
-  _cstExtension=XPT,
-  _cstOptions=datecopy
-  );
-/*
-proc contents data=dataadam._ALL_ varnum;
-run;
-*/
-
-/* Convert SDTM XPT files to SAS datasets */
-%cstutilxptread(
-  _cstSourceFolder=&project_folder/data/sdtm_xpt,
-  _cstOutputLibrary=datasdtm,
-  _cstExtension=XPT,
-  _cstOptions=datecopy
-  );
-/*
-proc contents data=datasdtm._ALL_ varnum;
-run;
-*/
-
-/* Convert SEND XPT files to SAS datasets */
-%cstutilxptread(
-  _cstSourceFolder=&project_folder/data/send_xpt,
-  _cstOutputLibrary=datasend,
-  _cstExtension=XPT,
-  _cstOptions=datecopy
-  );
-/*
-proc contents data=datasend._ALL_ varnum;
-run;
-*/
-
-/*
-libname dataadam clear;
-libname datasdtm clear;
-libname datasend clear;
-*/
+%* update this location to your own location;
+%let project_folder=/_github/lexjansen/dataset-json-sas;
+%include "&project_folder/programs/config.sas";
+
+
+%let _cst_rc=;
+%let _cst_rcmsg=;
+
+/* Convert ADaM v5 XPT files to SAS datasets */
+%cstutilxptread(
+  _cstSourceFolder=&project_folder/data/adam_xpt,
+  _cstOutputLibrary=dataadam,
+  _cstExtension=XPT,
+  _cstOptions=datecopy
+  );
+/*
+proc contents data=dataadam._ALL_ varnum;
+run;
+*/
+
+/* Convert SDTM v5 XPT files to SAS datasets */
+%cstutilxptread(
+  _cstSourceFolder=&project_folder/data/sdtm_xpt,
+  _cstOutputLibrary=datasdtm,
+  _cstExtension=XPT,
+  _cstOptions=datecopy
+  );
+/*
+proc contents data=datasdtm._ALL_ varnum;
+run;
+*/
+
+/* Convert SEND v5 XPT files to SAS datasets */
+%cstutilxptread(
+  _cstSourceFolder=&project_folder/data/send_xpt,
+  _cstOutputLibrary=datasend,
+  _cstExtension=XPT,
+  _cstOptions=datecopy
+  );
+/*
+proc contents data=datasend._ALL_ varnum;
+run;
+*/
+
+/*
+libname dataadam clear;
+libname datasdtm clear;
+libname datasend clear;
+*/

data/send_xpt/bw.xpt

@@ -0,0 +1,80 @@
+%* update this location to your own location;
+%let project_folder=/_github/lexjansen/dataset-json-sas;
+%include "&project_folder/programs/config.sas";
+
+/* Convert ADaM v5 or v8 XPT files to SAS datasets */
+%util_gettree(
+  dir=&project_folder/data/adam_xpt,
+  outds=work.dirtree_adam,
+  where=%str(ext="xpt" and dir=0)
+);
+
+%if %cstutilnobs(_cstDataSetName=work.dirtree_adam)=0 %then %do;
+  %put WAR%str(NING): No XPT files to read in directory %sysfunc(pathname(dataadam)).;
+%end;
+
+data _null_;
+  length code $2048;
+  set work.dirtree_adam;
+    datasetname=scan(filename, 1, ".");
+    code=cats('%nrstr(%xpt2loc('
+                      , "filespec='", fullpath, "',"
+                      , 'libref=dataadam,'
+                      , 'memlist=', datasetname
+                    ,');)');
+    call execute(code);
+run;
+
+/* Convert SDTM XPT v5 or v8 files to SAS datasets */
+%util_gettree(
+  dir=&project_folder/data/sdtm_xpt,
+  outds=work.dirtree_sdtm,
+  where=%str(ext="xpt" and dir=0)
+);
+
+%if %cstutilnobs(_cstDataSetName=work.dirtree_sdtm)=0 %then %do;
+  %put WAR%str(NING): No XPT files to read in directory %sysfunc(pathname(datasdtm)).;
+%end;
+
+
+data _null_;
+  length code $2048;
+  set work.dirtree_sdtm;
+    datasetname=scan(filename, 1, ".");
+    code=cats('%nrstr(%xpt2loc('
+                      , "filespec='", fullpath, "',"
+                      , 'libref=datasdtm,'
+                      , 'memlist=', datasetname
+                    ,');)');
+    call execute(code);
+run;
+
+/* Convert SEND XPT v5 or v8 files to SAS datasets */
+%util_gettree(
+  dir=&project_folder/data/send_xpt,
+  outds=work.dirtree_send,
+  where=%str(ext="xpt" and dir=0)
+);
+
+%if %cstutilnobs(_cstDataSetName=work.dirtree_send)=0 %then %do;
+  %put WAR%str(NING): No XPT files to read in directory %sysfunc(pathname(datasend)).;
+%end;
+
+
+data _null_;
+  length code $2048;
+  set work.dirtree_send;
+    datasetname=scan(filename, 1, ".");
+    code=cats('%nrstr(%xpt2loc('
+                      , "filespec='", fullpath, "',"
+                      , 'libref=datasend,'
+                      , 'memlist=', datasetname
+                    ,');)');
+    call execute(code);
+run;
+
+/*
+libname dataadam clear;
+libname datasdtm clear;
+libname datasend clear;
+*/