_dependency.sas

Go to the documentation of this file.

 
%MACRO _dependency(i_dependencies =
                  ,i_macroList    = dir
                  );

   %LOCAL l_countObs l_name l_children; 

   %** get number of obs;
   PROC SQL noprint;
      select count(*)
      into :l_countObs
      from &i_macroList.
      ;
   QUIT;

   /* initiate loop over all macros referenced in data set */
   %DO l_i=1 %TO &l_countObs;
      /* get libref and dataset name for dataset you will work on during this iteration */
      DATA _NULL_;
         * read one observation;
         SET &i_macroList. (firstobs=&l_i. obs=&l_i.); 
         CALL SYMPUT("l_name", trim(name));
      RUN;

      /* Create Json for calling hierachy (macros called by A) */
      FILENAME json_out "&g_target/tst/crossreference/&l_name._caller.json";
      DATA _NULL_;
         FILE json_out;
      RUN;
      /* Call writeJsonNode to write json */
      %_dependency_wr(i_node=&l_name, i_direction=1, i_dependencies=&i_dependencies);
      /* Finalize json by adding curly bracket */
      DATA _NULL_;
         FILE json_out mod;
         PUT "}";
      RUN;

      /* Create Json for calling hierachy in reverse direction (macros that call A) */
      FILENAME json_out "&g_target/tst/crossreference/&l_name._called.json";
      DATA _NULL_;
         FILE json_out;
      RUN;
      /* Call writeJsonNode to write json */
      %_dependency_wr(i_node=&l_name, i_direction=0, i_dependencies=&i_dependencies);
      /* Finalize json by adding curly bracket */
      DATA _NULL_;
         FILE json_out mod;
         PUT "}";
      RUN;
      
      FILENAME json_out;
   %END;
%MEND _dependency;