Writing a Report with a DATA Step | SAS 9.1.3 Language Reference: Concepts, Third Edition, Volumes 1 and 2

Example 1: Creating a Report without Creating a Data Set

You can use a DATA step to generate a report without creating a data set by using _NULL_ in the DATA statement. This approach saves system resources because SAS does not create a data set. The report can contain both TITLE statements and FOOTNOTE statements. If you use a FOOTNOTE statement, be sure to include FOOTNOTE as an option on the FILE statement in the DATA step.

 title1 'Budget Report';   title2 'Mid-Year Totals by Department';   footnote 'compiled by Manager,   Documentation Development Department';   data _null_;   set budget;   file print footnote;   MidYearTotal=Jan+Feb+Mar+Apr+May+Jun;   if _n_=1 then   do;            put @5 'Department' @30 'Mid-Year Total';         end;      put @7 Department @35 MidYearTotal;   run;

‘ Define titles.

‘¢ Define the footnote.

‘ Begin the DATA step. _NULL_ specifies that no data set will be created.

‘ Read one observation per iteration from data set BUDGET.

‘ Name the output file for the PUT statements and use the PRINT fileref. By default, the PRINT fileref specifies that the file will contain carriage control characters and titles. The FOOTNOTE option specifies that each page of output will contain a footnote.

‘ Calculate a value for the variable MidYearTotal on each iteration.

‘§ Write variable name headings for the report on the first iteration only.

‘ Write the current values of variables Department and MidYearTotal for each iteration.

‘ Execute the DATA step.

The example above uses the FILE statement with the PRINT fileref to produce listing output. If you want to print to a file, specify a fileref or a complete file name. Use the PRINT option if you want the file to contain carriage control characters and titles. The following example shows how to use the FILE statement in this way.

 file '  external-file  ' footnote print;

You can also use the data _null_; statement to write to an external file. For more information about writing to external files, see the FILE statement in SAS Language Reference: Dictionary , and the SAS documentation for your operating environment.

Example 2: Creating a Customized Report

You can create very detailed, fully customized reports by using a DATA step with PUT statements. The following example shows a customized report that contains three distinct sections: a header, a table, and a footer. It contains existing SAS variable values, constant text, and values that are calculated as the report is written.

Output 20.3: Sample of a Customized Report

 Expense Report 1 Around The World Retailers EMPLOYEE BUSINESS, TRAVEL, AND TRAINING EXPENSE REPORT Employee Name: ALEJANDRO MARTINEZ      Destination: CARY, NC      Departure Date: 11JUL1999   Department: SALES & MARKETING    Purpose of Trip/Activity: MARKETING TRAINING                                 Return Date: 16JUL1999     Trip ID#: 93-0002519                Activity from: 11JUL1999                                                    to: 16JUL1999 +----------------------------------+------+------+------+------+------+------+------+------+                                     SUN  MON    TUE   WED   THU  FRI   SAT         PAID BY PAID BY                   COMPANY EMPLOYEE EXPENSE DETAIL                     07/11 07/12 07/13 07/14 07/1507/16 07/17 TOTALS ------------------------------------------------------------------------ ------ Lodging, Hotel                     92.96 92.96 92.96 92.96 92.96            464.80  464.80 Telephone                           4.57  4.73                                9.30           9.30 Personal Auto 36 miles @.28/mile    5.04                          5.04       10.08          10.08 Car Rental, Taxi, Parking, Tolls         35.32 35.32 35.32 35.32 35.32      176.60  176.60 Airlines, Bus, Train (Attach Stub)485.00                        485.00      970.00  970.00 Dues                                                                               Registration Fees                  75.00                                     75.00          75.00 Other (explain below)                                             5.00        5.00           5.00 Tips (excluding meal tips)          3.00                          3.00        6.00           6.00 ---------------------------------------------------------------------------------- Meals                                                                              Breakfast                                                         7.79        7.79           7.79 Lunch                                                                              Dinner                             36.00 28.63 36.00 36.00 30.00            166.63         166.63 Business Entertainment                                                             ---------------------------------------------------------------------------------- TOTAL EXPENSES                    641.57176.64179.28179.28173.28541.15     1891.20  1611.40 279.80 +----------------------------------+------+------+------+------+------+------+-----+-------+ Travel Advance to Employee .................................................................  Expense Report 1 Around The World Retailers EMPLOYEE BUSINESS, TRAVEL, AND TRAINING EXPENSE REPORT Employee Name: ALEJANDRO MARTINEZ Destination: CARY, NC Departure Date: 11JUL1999 Department: SALES & MARKETING Purpose of Trip/Activity: MARKETING TRAINING Return Date: 16JUL1999 Trip ID#: 93-0002519 Activity from: 11JUL1999 to: 16JUL1999 +----------------------------------+------+------+------+------+------+------+------+------+   SUN  MON  TUE  WED  THU  FRI  SAT   PAID BY PAID BY COMPANY EMPLOYEE EXPENSE DETAIL  07/11 07/12 07/13 07/14 07/1507/16 07/17 TOTALS ------------------------------------------------------------------------ ------ Lodging, Hotel  92.96 92.96 92.96 92.96 92.96   464.80 464.80 Telephone  4.57 4.73      9.30 9.30 Personal Auto 36 miles @.28/mile  5.04     5.04  10.08 10.08 Car Rental, Taxi, Parking, Tolls   35.32 35.32 35.32 35.32 35.32  176.60 176.60 Airlines, Bus, Train (Attach Stub)485.00    485.00  970.00 970.00 Dues          Registration Fees  75.00       75.00 75.00 Other (explain below)       5.00  5.00 5.00 Tips (excluding meal tips)  3.00     3.00  6.00 6.00 ---------------------------------------------------------------------------------- Meals          Breakfast       7.79  7.79 7.79 Lunch Dinner  36.00 28.63 36.00 36.00 30.00   166.63 166.63 Business Entertainment          ---------------------------------------------------------------------------------- TOTAL EXPENSES 641.57176.64179.28179.28173.28541.15 1891.20 1611.40 279.80 +----------------------------------+------+------+------+------+------+------+-----+-------+ Travel Advance to Employee ................................................................. $0.00 Reimbursement due Employee (or ATWR) ....................................................... $279.80 Other: (i.e. miscellaneous expenses and/or names of employees sharing receipt.) 16JUL1999 CAR RENTAL INCLUDE $5.00 FOR GAS APPROVED FOR PAYMENT BY: Authorizing Manager: _________________________________________________ Emp. # _______ Employee Signature: _________________________________________________ Emp. # 1118 Charge to Division: ATW Region: TX Dept: MKT Acct: 6003 Date: 27JUL1999 
 .00 Reimbursement due Employee (or ATWR) .......................................................         9.80 Other: (i.e. miscellaneous expenses and/or names of employees sharing receipt.) 16JUL1999 CAR RENTAL INCLUDE .00 FOR GAS APPROVED FOR PAYMENT BY: Authorizing Manager: _________________________________________________ Emp. # _______                           Employee Signature: _________________________________________________ Emp. # 1118     Charge to Division: ATW           Region: TX      Dept: MKT      Acct:    6003      Date: 27JUL1999

The code shown below generates the report example (you must create your own input data). It is beyond the scope of this discussion to fully explain the code that generated the report example. For a complete explanation of this example, see SAS Guide to Report Writing: Examples .

 options ls=132 ps=66 pageno=1 nodate;   data travel;     /* infile '  SAS-data-set  ' missover; */     infile '/u/lirezn/input_for_concepts.dat' missover;   input acct div $ region $ deptchg $ rptdate : date9.       other1-other10 /       empid empname & $char35. / dept & $char35. /       purpose & $char35. / dest & $char35. / tripid & $char35. /       actdate2 date9. /       misc1 & $char75. / misc2 & $char75. / misc3 & $char75. /       misc4 & $char75. /       misc5 & $char75. / misc6 & $char75. / misc7 & $char75. /       misc8 & $char75. /       dptdate : date9. rtrndate : date9. automile permile /       hotel1-hotel10 /       phone1-phone10 / peraut1-peraut10 / carrnt1-carrnt10 /       airlin1-airlin10 / dues1-dues10 / regfee1-regfee10 /       tips1-tips10 / meals1-meals10 / bkfst1-bkfst10 /       lunch1-lunch10 / dinner1-dinner10 / busent1-busent10 /       total1-total10 / empadv reimburs actdate1 : date9.;   run;   proc format;      value category 1='Lodging, Hotel'                     2='Telephone'                     3='Personal Auto'                     4='Car Rental, Taxi, Parking, Tolls'                     5='Airlines, Bus, Train (Attach Stub)'                     6='Dues'                     7='Registration Fees'                     8='Other (explain below)'                     9='Tips (excluding meal tips)'                    10='Meals'                    11='Breakfast'                    12='Lunch'                    13='Dinner'                    14='Business Entertainment'                    15='TOTAL EXPENSES';      value blanks 0=' '                other=(8.2);      value $cuscore ' '='________';      value nuscore   . ='________';   run;   data _null_;      file print;      title 'Expense Report';      format rptdate actdate1 actdate2 dptdate rtrndate date9.;      set travel;      array expenses{15,10} hotel1-hotel10 phone1-phone10                            peraut1-peraut10 carrnt1-carrnt10                            airlin1-airlin10 dues1-dues10                            regfee1-regfee10 other1-other10                            tips1-tips10 meals1-meals10                            bkfst1-bkfst10 lunch1-lunch10                            dinner1-dinner10 busent1-busent10                            total1-total10;   array misc{8} $ misc1-misc8;   array mday{7} mday1-mday7;   dptday=weekday(dptdate);   mday{dptday}=dptdate;   if dptday>1 then      do dayofwk=1 to (dptday-1);        mday{dayofwk}=dptdate-(dptday-dayofwk);      end;   if dptday<7 then      do dayofwk=(dptday+1) to 7;         mday{dayofwk}=dptdate+(dayofwk-dptday);      end;   if rptdate=. then rptdate="&sysdate9"d;   tripnum=substr(tripid,4,2)'-'substr(scan(tripid,1),6);   put // @1 'Around The World Retailers' //          @1 'EMPLOYEE BUSINESS, TRAVEL, AND TRAINING EXPENSE REPORT' ///          @1 'Employee Name: ' @16 empname          @44 'Destination: ' @57 dest          @106 'Departure Date:' @122 dptdate /          @4 'Department: ' @16 dept          @44 'Purpose of Trip/Activity: ' @70 purpose          @109 'Return Date:' @122 rtrndate /          @6 'Trip ID#: ' @16 tripnum          @107 'Activity from:' @122 actdate1 /          @118 'to:' @122 actdate2 //          @1 '+-----------------------------------+--------+--------+'             '--------+--------+--------+--------+--------+--------+' /          @1 '  SUN  MON '             ' TUE  WED  THU  FRI  SAT  '             ' PAID BY PAID BY' /          @1 ' EXPENSE DETAIL '             '  ' mday1 mmddyy5. '  ' mday2 mmddyy5.             '  ' mday3 mmddyy5. '  ' mday4 mmddyy5.             '  ' mday5 mmddyy5. '  ' mday6 mmddyy5.             '  ' mday7 mmddyy5.          @100 ' TOTALS  COMPANY EMPLOYEE' ;   do i=1 to 15;        if i=1 or i=10 or i=15 then          put @1 '---------------------------------------------------'               '------------------------------------------------';        if i=3 then          put @1 '' i category. @16 automile 4.0 @21 'miles @'             @28 permile 3.2 @31 '/mile' @37 '' @;          else put @1 '' i category. @37 '' @;        col=38;        do j=1 to 10;          if j<9 then put @col expenses{i,j} blanks8. '' @;             else if j=9 then put @col expenses{i,j} blanks8. @;             else put @col expenses{i,j} blanks8.;          col+9;          if j=8 then col+2;        end;     end;     Put @1 '+-----------------------------------+--------+--------+'            '--------+--------+--------+--------+--------+--------+' //         @1 'Travel Advance to Employee ...............................'            '...................................................'         @121 empadv dollar8.2 //         @1 'Reimbursement due Employee (or ATWR) .....................'            '...................................................'         @121 reimburs dollar8.2 //         @1 'Other: (i.e. miscellaneous expenses and/or names of '            'employees sharing receipt.)' /;     do j=1 to 8;       put @1 misc{j} ;     end;     put / @1 'APPROVED FOR PAYMENT BY: Authorizing Manager:'         @48 '_________________________________________________'         @100 'Emp. # _______' ///         @27 'Employee Signature:'         @48 '_________________________________________________'         @100 'Emp. # ' empid ///         @6 'Charge to Division:' @26 div $cuscore.         @39 'Region:'            @48 region $cuscore.         @59 'Dept:'              @66 deptchg $cuscore.         @79 'Acct:'              @86 acct nuscore.         @100 'Date:'             @107 rptdate /         _page_;   run;

Example 3: Creating a HTML Report Using ODS and the DATA Step

 options nodate pageno=1 linesize=64 pagesize=60;   ods html body='your_file.html';   title 'Leading Grain Producers';   title2 'for 1996';   proc format;   value $cntry 'BRZ'='Brazil'                'CHN'='China'                'IND'='India'                'INS'='Indonesia'                'USA'='United States';   run;   data _null_;      length Country $ 3 Type $ 5;      input Year country $ type $ Kilotons;      format country $cntry.;      label type='Grain';   file print ods=(variables=(country                              type                              kilotons));   put _ods_;      datalines;   1996 BRZ Wheat      3302   1996 BRZ Rice       10035   1996 BRZ Corn       31975   1996 CHN Wheat      109000   1996 CHN Rice       190100   1996 CHN Corn       119350   1996 IND Wheat      62620   1996 IND Rice       120012   1996 IND Corn       8660   1996 INS Wheat      .   1996 INS Rice       51165   1996 INS Corn       8925   1996 USA Wheat      62099   1996 USA Rice       7771   1996 USA Corn       236064   ;   run;   ods html close;

Display 20-1: HTML File Produced by ODS