Example Database Application Using PROC TEMPLATE and XML LIBNAME Engine

proc template;
   define tagset Tagsets.sasxmog1;
      notes "SAS-XML generic XML-Data";
   define event doc;
      start:
         put "<html>" NL;
         put "<script Language=""JavaScript"">" NL;
         put "function navigate(direction){ " NL;
         put "switch(direction){ " NL;
         put "  case ""next"":" NL;
         put "   combine.nextPage()" NL;
         put "   break" NL;
         put "  case ""last"": " NL;
         put "   combine.lastPage()" NL;
         put "   break" NL;
         put "  case ""previous"": " NL;
         put "   combine.previousPage() " NL;
         put "   break" NL;
         put "  case ""first"" : " NL;
         put "   combine.firstPage()" NL;
         put "   break" NL;
         put "}}</script> " NL;
         put "<body>" NL;
         put NL;
      trigger XMLversion;
      break;
      finish:
         put "</xml>" NL;
         put "<p align=""center""><b>Database application to view one record at a time</b></p>" NL;
         put "<table ID=""combine"" DATASRC=""#bandList"" border=""1"" align=""center"" DATAPAGESIZE=""1"">" NL;
         put "<tr> <td><b>Name:</b></td> <td><div DATAFLD=""Name""></td></tr>" NL;
         put "<tr><td><b>Age:</b></td><td><div DATAFLD=""Age""></td>  </tr> " NL;
         put "<tr><td><b>Sex:</b></td><td><div DATAFLD=""Sex""></td></tr>" NL;
         put "<tr><td><b>Height:</b></td><td><div DATAFLD=""Height""></td></tr>" NL;
         put "<tr><td><b>Weight:</b></td><td><div DATAFLD=""Weight""></td></tr>" NL;
         put "</table>" NL;
         put "<p align=""center"">" NL;
         put "<input type=""button"" value=""First"" onClick=""navigate('first')""><input type=""button"" value=""Back"" onClick=""navigate('previous')"">" NL;
         put "<input type=""button"" value=""Forward"" onClick=""navigate('next')""><input type=""button"" value=""Last"" onClick=""navigate('last')""> " NL;
         put "</p></body></html>" NL;
   end;
   define event XMLversion;
      put "<xml ID=""bandList"" ";
      put " >" NL;
      break;
   end;
   parent = tagsets.sasxmog;
   end;
run;

libname temp xml 'c:\temp4.html' Tagset=tagsets.sasxmog1;

data temp.one;
   set sashelp.class;
run;