_reportpgmheader.sas

Go to the documentation of this file.

 
%macro _reportPgmHeader (i_lib=, i_data=, i_language=EN);

   data WORK._RPGH;
      set &i_lib..&i_data.;
      new_name=name;
      lag_name=lag(name);
      if (name ne '' AND lag_name eq name) then do;
         new_name='';
      end;
   run;

   proc report data=WORK._RPGH (where=(tag_sort like "00%")) nowd missing 
      style(report)=blindTable [borderwidth=0]
      style(column)=blindData
      style(header)=blindHeader
      style(lines)=blindCaption [textalign=left]
      ;

      column tag_sort tag dummy new_description;

      define tag_sort / group noprint;
      define tag / group noprint format=$HeaderText_&i_language..;
      define dummy / display;
      define new_description / display;

      compute before tag;
         line tag $HeaderText_&i_language..;
      endcomp;
      compute after tag;
         line "^{style blindheader ^_^_^_^_}";
      endcomp;
   run;
   title;
   proc report data=WORK._RPGH (where=(tag_sort like "01%")) nowd missing 
      style(report)=blindTable [borderwidth=0]
      style(column)=blindData
      style(header)=blindHeader
      style(lines)=blindCaption [textalign=left]
      ;

      column tag_sort tag dummy new_name new_description;

      define tag_sort / group noprint;
      define tag / group noprint format=$HeaderText_&i_language..;
      define dummy / display;
      define new_name / display style(column)=blindStrongData;
      define new_description / display;

      compute before tag;
         line tag $HeaderText_&i_language..;
      endcomp;
      compute after tag;
         line "^{style blindheader ^_^_^_^_}";
      endcomp;
   run;
%mend _reportPgmHeader;