OPTIONS LS=72 PS=50 NONUMBER NODATE;

*********************************************;
*** Using PROC UNIVARIATE and PROC FORMAT ***;
*********************************************;

PROC FORMAT;
     VALUE $agefmt 'N' = 'New'  'O' = 'Old';

PROC FORMAT;
     VALUE bfmt 1-3 = 'Low'
                4-6 = 'Med'
                7-9 = 'High';
TITLE;
FOOTNOTE;

DATA univ; INPUT age $ a b @@;
 FORMAT age agefmt. b bfmt.;
 CARDS;
 N 4 3   N 2 1   N 5 5   N 9 4   N 8 7
 N 1 6   N 4 2   N 6 7   N 22 9
 O 2 8   O 7 9   O 5 5   O 22 1  O 11 2
 O 8 5   O 0 4   O 0 5   O 9 5   O 3 3

PROC PRINT DATA=univ;
TITLE  'FORMATTING QUANTITATIVE AND';
TITLE2 'QUALITATIVE VARIABLES';
FOOTNOTE 'THIS IS HOW TO MAKE A FOOTNOTE';

PROC UNIVARIATE DATA = univ PLOT NORMAL;
     VAR a ;
     OUTPUT OUT= uniset
            MEDIAN = amed
            Q1 = aq1
            Q3 = aq3
            QRANGE = aiqr1;
TITLE 'DEFAULT PROC UNIVARIATE OUTPUT (WITH PLOTS)';

FOOTNOTE;  *** SUPPRESS THE PREVIOUS FOOTNOTE FROM    ***;
           *** APPEARING ON THIS AND SUBSEQUENT PAGES ***;

PROC PRINT DATA=uniset;
TITLE 'CONTENTS OF PROC UNIVARIATE OUTPUT FILE uniset';

PROC SORT DATA=univ; BY age;
PROC UNIVARIATE DATA = univ PLOT NORMAL;
     BY age;
     VAR a ;
TITLE 'PROC UNIVARIATE WITH SIDE-BY-SIDE BOXPLOTS';

RUN;