options ls=80 ps=55 nocenter nodate nonumber;

*;
*   Generate raw monthly data for later use.
*;

proc mortgage amount=100000 rate=0.085 firstpayment=1996:10
                life=360 noprint out=monthly;
run;

*;
*  Create table instead of using PROC SQL.
*;

title 'Formerly PROC SQL Output';
footnote '(Data generated by PROC MORTGAGE)';

%ds2htm(htmlfile=myfile.html,
        openmode=replace,
        pagepart=head,
        tbbgcolr=white,
        ctext=blue,
        clbgcolr=#aaaaaa,
        data=monthly,
        where=year eq 1996,
        caption=Information for 1996);

proc format;
  value monthn  1 = 'January'  2 = 'February'  3 = 'March'
                4 = 'April'    5 = 'May'       6 = 'June'
                7 = 'July'     8 = 'August'    9 = 'September'
               10 = 'October' 11 = 'November' 12 = 'December';
run;
                                                
proc datasets nolist;
  modify monthly;
    format month monthn.
           begpri payment int repay endpri comma10.2;
run;

*;
*  Create table instead of using PROC PRINT.
*;

title 'Formerly PROC PRINT Output';
footnote '(Data generated by PROC MORTGAGE)';

%ds2htm(htmlfile=myfile.html,
        openmode=append,
        pagepart=foot,
        tbbgcolr=white,
        ctext=blue,
        clbgcolr=#aaaaaa,
        obgcolr=#aaaaaa,
        scolor=red,
        csize=+2,
        ccolor=black,
        data=monthly,
        obsnum=y,
        where=year lt 2000,
        var=year month begpri payment int repay endpri,
        sum=payment int repay,
        caption=Information prior to the year 2000);