_reportautonhtml.sas

Go to the documentation of this file.

 
%MACRO _reportAutonHTML (i_repdata = 
                        ,o_html    = 0
                        ,o_path    =
                        ,o_file    =
                        );

   /*-- determine number of scenarios 
     and number of test cases per unit under test ----------------------------*/
   %LOCAL d_rep1 d_rep2 l_tcg_res l_pgmLibraries l_pgmLib l_title l_logpath l_cAuton;

   %_tempFileName(d_rep1)
   %_tempFileName(d_rep2)

   PROC MEANS NOPRINT NWAY missing DATA=&i_repdata(KEEP=cas_auton pgm_id scn_id cas_id);
      class cas_auton pgm_id scn_id cas_id;
      OUTPUT OUT=&d_rep1. (rename=(_FREQ_=scn_tst));
   RUN;

   PROC MEANS NOPRINT NWAY missing DATA=&d_rep1.(KEEP=cas_auton pgm_id scn_id scn_tst);
      class cas_auton pgm_id scn_id;
      OUTPUT OUT=&d_rep2. (rename=(_FREQ_=scn_cas)) sum(scn_tst)=scn_tst;
   RUN;

   PROC SORT DATA=&i_repdata. out=work._auton_report;
      BY cas_auton pgm_id scn_id;
   RUN;

   DATA work._auton_report;
      SET work._auton_report;
      BY cas_auton pgm_id scn_id;
      IF (first.scn_id);
   RUN;

   DATA work._auton_report;
      MERGE work._auton_report &d_rep2.;
      BY cas_auton pgm_id scn_id;
   RUN;
   
   /* Visualize crossreference data */
   %IF &g_crossref. EQ 1 %THEN %DO;
      PROC SQL;
         create view prepareDependency as
         select distinct cas_pgm as name
         from target.cas
      QUIT;

      DATA macrolistDependency;
         SET prepareDependency;
         /* remove .sas extension */
         name = substr(name, 1, length(name)-4);
         /* get program name in case absolute path has been specified */
         pos = find(name,'/',-999);
         IF pos GT 0 THEN DO;
            len = length(trim(name));
            name = substr(name,pos+1,len-pos);
         END;
      RUN;

      /* Create .json Files for visualisation with D3 */
      %_dependency(i_dependencies = &d_listcalling.
                  ,i_macroList    = macrolistDependency
                  );
      /* Use Json Files to create JavaScript file containing dependency information */
      %_dependency_agg(i_path = &g_target/tst/crossreference
                      ,o_file = &l_output/js/data.refs.js
                      );
   %END;
   
   /* Delete data sets after json files have been created */
   PROC DATASETS NOLIST NOWARN LIB=%scan(&d_listcalling,1,.);
      DELETE %SCAN(&d_macrolist,2,.);
      DELETE %SCAN(&d_listcalling,2,.);
   QUIT;

   %IF &g_testcoverage. EQ 1 %THEN %DO;
       /*-- in the log subdir: append all *.tcg files to one file named 000.tcg
        This is done in order to get one file containing coverage data 
        of all calls to the macros under test -----------------------------------*/

      %LET l_rc =%_delFile("&g_log/000.tcg");

      %LET l_logpath=%_escapeBlanks(&g_log.);

      FILENAME allfiles "&l_logpath./*.tcg";
      DATA _NULL_;
         INFILE allfiles end=done dlm=',';
         FILE "&l_logpath./000.tcg";
         INPUT row :$256.;
         PUT row;
      RUN;

      /*-- for every unit under test (see ‘target’ database ): 
       call new macro _reporttcghtml.sas once in order to get a html 
       file showing test coverage for the given unit under test. For every call, 
       use the 000.tcg file as coverage analysis text file ---------------------*/
      
      PROC SQL NOPRINT;
         SELECT DISTINCT cas_pgm 
         INTO :l_unitUnderTestList SEPARATED BY '*'
         FROM work._auton_report;
      QUIT;
      /* Add col tcg_pct to data set &d_rep1 to store coverage percentage for report generation*/
      DATA work._auton_report (COMPRESS=YES);
         LENGTH tcg_pct 8;
         SET work._auton_report;
         tcg_pct = .;
      RUN;

      %LET l_listCount=%sysfunc(countw(&l_unitUnderTestList.,'*'));
      %do i = 1 %to &l_listCount;
         %LET l_currentUnit=%lowcase(%scan(&l_unitUnderTestList,&i,*));
         %IF "%sysfunc(compress(&l_currentUnit.))" EQ "" %THEN %DO;
            %LET l_tcg_res = .;
         %END;
         %ELSE %DO;
            /*determine where macro source file is located*/ 
            %let l_currentUnitLocation=;
            %let l_currentUnitFileName=;
            %IF (%SYSFUNC(FILEEXIST(&l_currentUnit.))) %THEN %DO; /*full absolute path given*/
               %_getAbsPathComponents(
                       i_absPath         = &l_currentUnit
                     , o_fileName        = l_currentUnitFileName
                     , o_pathWithoutName = l_currentUnitLocation
                     )
            %END; 
            %ELSE %DO; /*relative path given*/
               %IF (%SYSFUNC(FILEEXIST(&g_root./&l_currentUnit.))) %THEN %DO; /*relative path in root dir */
                  %_getAbsPathComponents(
                       i_absPath         = &g_root./&l_currentUnit.
                     , o_fileName        = l_currentUnitFileName
                     , o_pathWithoutName = l_currentUnitLocation
                     )
               %END;
               %ELSE %DO; /*relative path in one of the sasautos dirs */
                  %IF (%SYSFUNC(FILEEXIST(&g_sasunit./&l_currentUnit.))) %THEN %DO;
                      %_getAbsPathComponents(
                       i_absPath         = &g_sasunit./&l_currentUnit.
                     , o_fileName        = l_currentUnitFileName
                     , o_pathWithoutName = l_currentUnitLocation
                     )
                  %END;
                  %ELSE %IF (%SYSFUNC(FILEEXIST(&g_sasunit_os./&l_currentUnit.))) %THEN %DO;
                      %_getAbsPathComponents(
                       i_absPath         = &g_sasunit_os./&l_currentUnit.
                     , o_fileName        = l_currentUnitFileName
                     , o_pathWithoutName = l_currentUnitLocation
                     )
                  %END;
                  %ELSE %DO;
                     %LET j = 0;
                     %DO %UNTIL ("&l_currentUnitLocation." NE "" OR &j. EQ 10);
                        %IF (%SYSFUNC(FILEEXIST(&&g_sasautos&j/&l_currentUnit.))) %THEN %DO;
                           %_getAbsPathComponents(
                                i_absPath         = &&g_sasautos&j/&l_currentUnit.
                              , o_fileName        = l_currentUnitFileName
                              , o_pathWithoutName = l_currentUnitLocation
                             )
                        %END;
                        %LET j = %EVAL(&j + 1);
                     %END;
                  %END;
               %END;
            %END;
            %let l_tcg_res=.;

            %IF ("&l_currentUnitFileName." NE "" AND "&l_currentUnitLocation." NE "" 
                 AND %SYSFUNC(FILEEXIST(&l_currentUnitLocation./&l_currentUnitFileName.)) 
                 AND %SYSFUNC(FILEEXIST(&g_log./000.tcg)) ) %THEN %DO;
                 %_reporttcghtml(i_macroName                = &l_currentUnitFileName.
                                ,i_macroLocation            = &l_currentUnitLocation.
                                ,i_mCoverageName            = 000.tcg
                                ,i_mCoverageLocation        = &g_log
                                ,o_outputFile               = tcg_%SCAN(&l_currentUnitFileName.,1,.)
                                ,o_outputPath               = &g_target/rep
                                ,o_resVarName               = l_tcg_res
                                ,o_html                     = &o_html.
                                );
            %END;
         %END; /*%ELSE %DO;*/
         /*store coverage percentage for report generation*/
         PROC SQL NOPRINT;
           UPDATE work._auton_report
             SET tcg_pct=&l_tcg_res.
            WHERE upcase(cas_pgm) EQ "%upcase(&l_currentUnit.)";
         QUIT;
      %end; /*do i = 1 to &l_listCount*/
      
   %END;

   PROC SQL NOPRINT;
      SELECT DISTINCT cas_auton 
      INTO :l_pgmLibraries SEPARATED BY '§'
      FROM work._auton_report;
   QUIT;

   title;
   footnote;
   options nocenter;

   %let l_title=%str(&g_nls_reportAuton_001 | &g_project - SASUnit &g_nls_reportAuton_002);
   title j=c "&l_title.";

   %if (&o_html.) %then %do;
      ods html4 file="&o_path./&o_file..html" 
                    (TITLE="&l_title.") 
                    headtext='<link rel="shortcut icon" href="./favicon.ico" type="image/x-icon" />'
                    metatext="http-equiv=""Content-Style-Type"" content=""text/css"" /><meta http-equiv=""Content-Language"" content=""&i_language."" /"
                    style=styles.SASUnit stylesheet=(URL="css/SAS_SASUnit.css")
                    encoding="&g_rep_encoding.";
      %_reportPageTopHTML(i_title   = &l_title.
                         ,i_current = 4
                         )
   %end;

   options missing=" ";
   %LET l_listCount=%sysfunc(countw(&l_pgmLibraries.,'§'));
   %do i = 1 %to &l_listCount.;
      %LET l_pgmLib=%lowcase(%scan(&l_pgmLibraries,&i,§));
      %LET l_cAuton=;
      %IF (l_pgmLib ne .) %THEN %DO;
         %LET l_cAuton=%sysfunc (putn(&l_pgmLib.,z3.))_;
      %END;
      data work._current_auton;
         length pgmColumn scenarioColumn caseColumn assertColumn
                %IF &g_testcoverage. EQ 1 %THEN %DO;
                   coverageColumn
                %END;
                %IF &g_crossref. EQ 1 %THEN %DO;
                   crossrefColumn
                %END;
                resultColumn
                linkTitle0  linkTitle1  LinkTitle2  LinkTitle3  LinkTitle4  LinkTitle5
                linkColumn0 linkColumn1 LinkColumn2 LinkColumn3 LinkColumn4 LinkColumn5 $1000
                _autonColumn autonColumn cas_abs_path scn_abs_path $400;
         set work._auton_report (where=(cas_auton=&l_pgmLib.));
         ARRAY sa(0:9) tsu_sasautos tsu_sasautos1-tsu_sasautos9;
         label 
            pgmColumn="&g_nls_reportAuton_005."
            scenarioColumn="&g_nls_reportAuton_006."
            caseColumn="&g_nls_reportAuton_007."
            assertColumn="&g_nls_reportAuton_014."
            %IF &g_testcoverage. EQ 1 %THEN %DO;
               coverageColumn="&g_nls_reportAuton_016." [%]
            %END;
            %IF &g_crossref. EQ 1 %THEN %DO;
               crossrefColumn="&g_nls_reportAuton_022."
            %END;
            resultColumn="&g_nls_reportAuton_008.";

         if (cas_pgm="^_") then cas_pgm="";
         IF cas_auton = . THEN DO;
            cas_abs_path = resolve ('%_abspath(&g_root,' !! trim(cas_pgm) !! ')');   
         END;
         ELSE IF cas_auton = 0 THEN DO;
            cas_abs_path = resolve ('%_abspath(&g_sasunit,' !! trim(cas_pgm) !! ')');   
         END;
         ELSE IF cas_auton = 1 THEN DO;
            cas_abs_path = resolve ('%_abspath(&g_sasunit_os,' !! trim(cas_pgm) !! ')');   
         END;
         ELSE DO;
            cas_abs_path = resolve ('%_abspath(&g_sasautos' !! put (cas_auton-2,1.) !! ',' !! trim(cas_pgm) !! ')');
         END;
         scn_abs_path = resolve ('%_abspath(&g_root,' !! trim(scn_path) !! ')');

         %_render_dataColumn(i_sourceColumn=scn_cas
                            ,o_targetColumn=caseColumn
                            );
         %_render_dataColumn(i_sourceColumn=scn_tst
                            ,o_targetColumn=assertColumn
                            );
         %_render_iconColumn(i_sourceColumn=scn_res
                            ,o_html=&o_html.
                            ,o_targetColumn=resultColumn
                            );
         if (cas_auton = .) then do;
            _autonColumn = "&g_nls_reportAuton_015.";
         end;
         else do;
            if (cas_auton = 0) then do;
               _autonColumn = tsu_sasunit;
               linkTitle0   = symget("g_sasunit");
            end;
            else if (cas_auton = 1) then do;
               _autonColumn = tsu_sasunit_os;
               linkTitle0   = symget("g_sasunit_os");
            end;
            else do;
               _autonColumn = sa(cas_auton-2);
               linkTitle0   = symget("g_sasautos" !! put(cas_auton-2, z1.));
            end;
            linkColumn0  = "file:
            linkTitle0   = "&g_nls_reportAuton_009. " !! linkTitle0;
         end;
         %_render_dataColumn(i_sourceColumn=_autonColumn
                            ,i_linkColumn=LinkColumn0
                            ,i_linkTitle=LinkTitle0
                            ,o_targetColumn=autonColumn
                            );
         autonColumn="&g_nls_reportAuton_003.: " !! trim(autonColumn);

         *** Any destination that renders links shares this if ***;
         %if (&o_html.) %then %do;
            LinkTitle1 = "&g_nls_reportAuton_009." !! byte(13) !! cas_abs_path;
            LinkTitle2 = "&g_nls_reportAuton_010." !! byte(13) !! scn_abs_path;
            LinkTitle3 = "&g_nls_reportAuton_017. " !! cas_pgm;
            LinkTitle4 = trim(cas_pgm) !! " &g_nls_reportAuton_025.";
            LinkTitle5 = trim(cas_pgm) !! " &g_nls_reportAuton_026.";
            
            *** HTML-links are destination specific ***;
            %if (&o_html.) %then %do;
               LinkColumn1 = "file:
               LinkColumn2 = CATT("cas_overview.html#SCN", PUT(scn_id,z3.), "_");
               IF compress(cas_pgm) ne '' THEN DO;
                  IF index(cas_pgm,'/') GT 0 THEN DO;
                     LinkColumn3 =  'tcg_'||trim(LEFT(SCAN(SUBSTR(cas_pgm, findw(cas_pgm, SCAN(cas_pgm, countw(cas_pgm,'/'),'/'))),1,".") !! ".html"));
                  END;
                  ELSE DO;
                     LinkColumn3 =  'tcg_'||TRIM(LEFT(SCAN(cas_pgm,1,".") !! ".html"));
                  END;
               END;
               LinkColumn4 = "&g_nls_reportAuton_023.";
               LinkColumn5 = "&g_nls_reportAuton_024.";
            %end;

            %_render_dataColumn(i_sourceColumn=cas_pgm
                               ,i_linkColumn=LinkColumn1
                               ,i_linkTitle=LinkTitle1
                               ,o_targetColumn=pgmColumn
                               );
            %_render_dataColumn(i_sourceColumn=scn_id
                               ,i_format=z3.
                               ,i_linkColumn=LinkColumn2
                               ,i_linkTitle=LinkTitle2
                               ,o_targetColumn=scenarioColumn
                               );
            %IF &g_testcoverage. EQ 1 %THEN %DO;
               %_render_dataColumn(i_sourceColumn=tcg_pct
                                  ,i_format=3.
                                  ,i_linkColumn=LinkColumn3
                                  ,i_linkTitle=LinkTitle3
                                  ,o_targetColumn=coverageColumn
                                  );
            %END;
            %IF &g_crossref. EQ 1 %THEN %DO;            
               %_render_crossrefColumn (i_sourceColumn       = %sysfunc(trim(cas_pgm))
                                       ,o_targetColumn       = crossrefColumn
                                       ,i_linkColumn_caller  = LinkColumn4
                                       ,i_linkTitle_caller   = LinkTitle4
                                       ,i_linkColumn_called  = LinkColumn5
                                       ,i_linkTitle_called   = LinkTitle5
                                       );
            %END;
         %END;
      RUN;

      %IF (&i. = &l_listCount.) %THEN %DO;
         %_reportFooter(o_html=&o_html.);
      %END;
      
      %IF (&o_html.) %THEN %DO;
         ods html4 anchor="AUTON&l_cAuton.";
      %END;
      
      PROC REPORT DATA=work._current_auton nowd missing spanrows
            style(lines)=blindData
            ;

         columns pgm_id pgmColumn scenarioColumn caseColumn assertColumn
            %IF &g_testcoverage. EQ 1 %THEN %DO;
                coverageColumn
            %END;
            %IF &g_crossref. EQ 1 %THEN %DO;
               crossrefColumn
            %END;
                resultColumn autonColumn;

         define autonColumn    / noprint;
         define pgm_id         / order noprint;
         define pgmColumn      / order;
         define scenarioColumn / order style(column)=[just=right];
         define caseColumn     / order style(column)=[just=right];
         define assertColumn   / order style(column)=[just=right];
         %IF &g_testcoverage. EQ 1 %THEN %DO;
            define coverageColumn / order style(column)=[just=right];
         %END;
         %IF &g_crossref. EQ 1 %THEN %DO;
            define crossrefColumn / order style(column)=[just=right];
         %END;
         define resultColumn / order style(COLUMN)=[background=white];

         compute before _page_;
            line @1 autonColumn $;
         endcomp;
      RUN;

      *** Supress title between testcases ***;
      %IF (&i. = 1) %THEN %DO;
         title;
      %END;

      *** Render separation line between program libraries ***;
      %IF (&o_html. AND &i. ne &l_listCount.) %THEN %DO;
         ods html4 text="^{RAW <hr size=""1"">}";
      %END;

      PROC DELETE data=work._current_auton;
      RUN;
   %END;
   OPTIONS missing=.;


   %IF (&o_html.) %THEN %DO;
      %_closeHtmlPage;
   %END;

   TITLE;
   FOOTNOTE;
   OPTIONS center;
   

   PROC DELETE DATA=work._auton_report;
   RUN;
%MEND _reportAutonHTML;