_reportcashtml.sas

Go to the documentation of this file.

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

   %LOCAL
      l_nls_reportcas_errors
      l_anzScenarios
      l_scnid
      l_title 
      l_footnote
;

   %LET l_nls_reportcas_errors   = %STR(error(s));

   data work._case_report;
      SET &i_repdata. end=eof;
      BY scn_id cas_id;

      LENGTH 
         scn_abs_path abs_path    $  256 
         hlp         $  20
         errcountmsg $ 50
         LinkTitle1
         LinkTitle2
         LinkTitle3
         LinkTitle4
         LinkTitle5
         LinkColumn1
         LinkColumn2
         LinkColumn3
         LinkColumn4
         LinkColumn5 $200
         scnIdColumn idColumn $80
         scnDescriptionColumn descriptionColumn $1000
         scnProgramColumn programColumn $1000
         scnLast_runColumn last_runColumn $1000
         scnDurationColumn durationColumn $1000
         resultColumn $1000;
         ;
      label idColumn="&g_nls_reportCas_011."
         scnIdColumn="&g_nls_reportCas_011."
         scnDescriptionColumn="&g_nls_reportCas_003."
         descriptionColumn="&g_nls_reportCas_012."
         scnProgramColumn="&g_nls_reportCas_004."
         programColumn="&g_nls_reportCas_013."
         scnLast_runColumn="&g_nls_reportCas_022."
         last_runColumn="&g_nls_reportCas_014."
         scnDurationColumn="&g_nls_reportCas_008."
         durationColumn="&g_nls_reportCas_015."
         resultColumn="&g_nls_reportCas_016."
         ;

      *** initalizing variables that MAY be used in a specific assert   ***;
      if (_N_=1) then do;
         hlp="";
      end;
         
      if (first.cas_id) then do;
         *** Columns for scenario overview ***;
         IF scn_errorcount GT 0 THEN DO;
            errcountmsg = '(' !! compress(put(scn_errorcount, 3.)) !! ' ' !! "&l_nls_reportcas_errors." !! ')';
         END;
         ELSE DO;
            errcountmsg = '';
         END;

         scn_abs_path = resolve ('%_abspath(&g_root,' !! trim(scn_path) !! ')');
         scn_pgm      = resolve ('%_stdpath(&g_root./saspgm/test,' !! trim(scn_abs_path) !! ')');
         scn_duration = put (scn_end - scn_start, ??&g_nls_reportScn_013.) !! " s";
         c_scnid      = put (scn_id, z3.);


         %_render_idColumn   (i_sourceColumn=scn_id
                             ,i_format=z3.
                             ,o_targetColumn=ScnIdColumn
                             );
         %_render_dataColumn (i_sourceColumn=scn_desc
                             ,o_targetColumn=scnDescriptionColumn
                             );
         %_render_dataColumn (i_sourceColumn=scn_duration
                             ,o_targetColumn=scnDurationColumn
                             );

         *** Any destination that renders links shares this if ***;
         %if (&o_html.) %then %do;
            LinkTitle1   = "&g_nls_reportScn_010" !! byte(13) !! scn_abs_path;
            LinkTitle2   = "&g_nls_reportScn_011";
            *** HTML-links are destinations specific ***;
            %if (&o_html.) %then %do;
               LinkColumn1  = "file:///" !! scn_abs_path;
               LinkColumn2  = c_scnid !! "_log.html";
            %end;
            %_render_dataColumn (i_sourceColumn=scn_path
                                ,i_linkColumn=LinkColumn1
                                ,i_linkTitle=LinkTitle1
                                ,o_targetColumn=scnProgramColumn
                                );
            scnLast_runColumn = catt ('^{style [flyover="',LinkTitle2,'" url="',LinkColumn2,'"]', put (scn_start, ??&g_nls_reportScn_012.),'}'
                                     ,"^{style logerrcountmsg ", errcountmsg, '}');
         %end;

         *** Columns for test cases ***;
         if (cas_pgm="^_") then cas_pgm="";
         IF cas_auton = . THEN DO;
            abs_path = resolve ('%_abspath(&g_root,' !! trim(cas_pgm) !! ')');   
         END;
         ELSE DO;
            abs_path = resolve ('%_abspath(&g_sasautos' !! put (cas_auton,1.) !! ',' !! trim(cas_pgm) !! ')');
         END;

         duration = put (cas_end - cas_start, ??&g_nls_reportScn_013.) !! " s";
         c_casid  = put (cas_id, z3.);

         %_render_idColumn   (i_sourceColumn=cas_id
                             ,i_format=z3.
                             ,o_targetColumn=idColumn
                             );
         %_render_dataColumn (i_sourceColumn=duration
                             ,o_targetColumn=durationColumn
                             );
         %_render_iconColumn (i_sourceColumn=cas_res
                             ,o_html=&o_html.
                             ,o_targetColumn=resultColumn
                             );
         *** Any destination that renders links shares this if ***;
         %if (&o_html.) %then %do;
            LinkTitle3  = "&g_nls_reportCas_017 " !! c_casid;
            LinkTitle4  = "&g_nls_reportCas_018" !! byte(13) !! abs_path;
            LinkTitle5  = "&g_nls_reportCas_006";
            *** HTML-links are destinations specific ***;
            %if (&o_html.) %then %do;
               LinkColumn3 = "cas_" !! c_scnid !! "_" !! c_casid !! ".html";
               LinkColumn4 = "file:///" !! abs_path;
               LinkColumn5 = c_scnid !! "_" !! c_casid !! "_log.html";
            %end;

            %_render_dataColumn (i_sourceColumn=cas_desc
                                ,i_linkColumn=LinkColumn3
                                ,i_linkTitle=LinkTitle3
                                ,o_targetColumn=descriptionColumn
                                );
            %_render_dataColumn (i_sourceColumn=cas_pgm
                                ,i_linkColumn=LinkColumn4
                                ,i_linkTitle=LinkTitle4
                                ,o_targetColumn=programColumn
                                );
            %_render_dataColumn (i_sourceColumn=cas_start
                                ,i_format=&g_nls_reportCas_007.
                                ,i_linkColumn=LinkColumn5
                                ,i_linkTitle=LinkTitle5
                                ,o_targetColumn=last_runColumn
                                );
         %end;
         output;
      end;
   run;
   
   proc sql noprint;
      select max (scn_id) into :l_anzScenarios from work._case_report;
   quit;

   options nocenter;

   %let l_title=%str(&g_nls_reportCas_001 | &g_project - &g_nls_reportCas_002);
   title j=c "&l_title.";

   %if (&o_html.) %then %do;
      ods html4 file="&o_path./&o_file..html" 
                    (TITLE="&l_title.") 
                    headtext='<link href="tabs.css" rel="stylesheet" type="text/css"/><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="SAS_SASUnit.css");
      %_reportPageTopHTML(i_title   = &l_title.
                         ,i_current = 3
                         )
   %end;
   %do l_scnid=1 %to &l_anzScenarios.;
      data work._current_scn;
         set work._case_report (where=(scn_id=&l_scnid.));
      run;

      data work._current_scn_overview;
         set work._current_scn (where=(cas_id=1));
         length Name $20 Value $1000;
         Name="&g_nls_reportCas_011."; Value=c_scnid;output;
         Name="&g_nls_reportCas_003."; Value=scnDescriptionColumn;output;
         Name="&g_nls_reportCas_004."; Value=scnProgramColumn;output;
         Name="&g_nls_reportCas_022."; Value=scnLast_runColumn;output;
         Name="&g_nls_reportCas_008."; Value=scnDurationColumn;output;
         keep Name Value;
      run;
      *** Create specific HTML-Anchors ***;
      %if (&o_html.) %then %do;
         ods html4 anchor="SCN%sysfunc(putn(&l_scnid.,z3.))_";
      %end;
      proc print data=work._current_scn_overview noobs label 
            style(report)=blindTable [borderwidth=0]
            style(column)=blindData
            style(header)=blindHeader;
      run;

      *** Supress title between testcases ***;
      %if (&l_scnid. = 1) %then %do;
         title;
      %end;

      *** Show footnote only once ***;
      %if (&l_scnid. = &l_anzScenarios.) %then %do;
         %_reportFooter(o_html=&o_html.);
      %end;

      proc report data=work._current_scn nowd missing
            style(lines)=blindData
            ;

         columns idColumn descriptionColumn programColumn last_runColumn durationColumn resultColumn;

         define idColumn         / display style(Column)=rowheader;
             define durationColumn  / display style(Column)=[just=right];
         define resultColumn     / display style(Column)=[background=white];

         compute before _page_;
            line @1 "&g_nls_reportCas_010."; 
         endcomp;
      run;

      *** Render separation line between scenarios ***;
      %if (&o_html. AND &l_scnid. ne &l_anzScenarios.) %then %do;
         ods html4 text="^{RAW <hr size=""1"">}";
      %end;

      proc delete data=work._current_scn_overview;
      run;
      proc delete data=work._current_scn;
      run;
   %end;

   %if (&o_html.) %then %do;
      %_closeHtmlPage;
   %end;

   proc delete data=work._case_report;
   run;

   %*** Reset title and footnotes ***;
   title;
   footnote;

   options center;
%MEND _reportCasHTML;