*Program 5-9 Using a user-defined format;
libname learn 'c:\temp';
libname myfmts 'c:\temp\formats';
options fmtsearch=(myfmts);

title "Using User-defined Formats";
proc freq data=learn.survey;
   tables Ques1-Ques5 / nocum;
run;

*Program 5-10 Displaying format definitions in a user-created library;
title "Format Definitions in the MYFMTS Library";
proc format library=myfmts fmtlib;
run;

*Program 5-11 Demonstrating a SELECT statement with PROC FORMAT;
proc format library=myfmts;
   select age $likert;
run;