put &tab2. '<SampleDate>2017-06-27</SampleDate>';
 put &tab2. '<CaseCount>10</CaseCount>';

Select all Open in new window

filename DirectX  "&basepath\examples\XMLData2.xml";
filename Complete "&basepath\examples\XMLComplete2.xml";

libname xmldir xmlv2 xmlfileref=DirectX xmltype=generic;

/* Macro variables to provide appropriate tab spacing */
%let tab="    ";
%let tab2="        ";

/* Writing two SAS datsets to xmldir library and creating XMLData.xml data file */ 
data xmldir.class(label="dataset class from sashelp library");
       set sashelp.class(obs=10);
run;

data xmldir.cars(label="dataset cars from sashelp library");
       set sashelp.cars(obs=10); 
run; 

libname xmldir clear;

/*  XML file information and header and XML File End*/
data _null_;
 infile	DirectX end=last;
file	Complete;

input;				
 
if _N_ = 1 then
    do;  
	put _infile_;	
    put '<Schema Name="CarsAndClass">';
    put &tab. '<Header>';
    put &tab2. '<SampleDate>2017-06-27</SampleDate>';
    put &tab2. '<CaseCount>10</CaseCount>';
    put &tab2. '<Action>Initial</Action>';
    put &tab2. '<YearPeriod>2017</YearPeriod>';
    put &tab. '</Header>';
    put &tab. '<Payload>';
    end;
else
	put &tab2 _infile_;	
 
if last then
    do;
    put &tab'</Payload>';		
    put '</Schema>';
    end;    
run;

Select all Open in new window

libname mydir "/home/myprofile/links"; 
%macro cnt_lnks;

 /*  #1 */
proc sort data=mydir.Data1
          out=Data1out(where=(rec_flag='A', 'B', 'C', 'D') keep=Var3 Var4 Var6 Var7 rec_flag);
          by Var3 Var4 Var6 Var7;
run;

proc sort data=mydir.Data2
          out=Data2out(where=(rec_flag='A', 'B', 'C', 'D') keep=Var3 Var4 Var6 Var7 rec_flag);
          by Var3 Var4 Var6 Var7;
run;

/*********************************************
 Datastep: merge Data1 & Data2
           by Var3 Var4 Var6 Var7
 ********************************************/
data all_links1;
  merge 

Select all Open in new window

 
/* Creating a record for each combination of the two duplicates */

data data2 data3;
  set data1;
      by var4;
  retain x 0;

  if first.var4 then do;
     x=1;
     output data2;
  end;
  else do;
     x=x+1;
     output data3;
  end;
run;

data data2 data4;
  merge data3(in=a) data2(in=b);
     by var4;

  if (a and b) and x=1 then output data2; /* If primary and duplicate */
  if b and not a then output data4; /* If primary with no duplicate */
run;

data data5 (keep= var4 var1 var2 var3 x); /*Keep needed variables*/
  set data2 data3;
run;

proc sort data=data5; 
  by var4; 
run;

/* Create var1 and var2 from combination of clerical duplicates */
proc sql;
create table data6 as
   select b.var2 as var1, a.var2, a.var3
     from data5 as a, data5 as b   /* Setting a and b */               
     where a.var1=b.var1 and b.x > a.x; /* Select variables with the same combination from*/
quit;                                     /* dataset and where there is a match */
 
/* Set var3=FOX */
proc sql;
  update data6
  set var3='FOX'; 
quit;     

Select all Open in new window