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 "}} " NL;
         put "function addBand(){ " NL;
         put "bandList.recordset.addNew()" NL;
         put "combine.lastPage()" NL;
         put "}" NL;
         put "function deleteBand(){ "  NL;
         put "bandList.recordset.Delete()" 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><input type=""text"" DATAFLD=""Name""  ></td></tr>" NL;
         put "<tr><td><b>Age:</b></td><td><input type=""Text"" DATAFLD=""Age""></td>  </tr> " NL;
         put "<tr><td><b>Sex:</b></td><td><input type=""text"" DATAFLD=""Sex""></td></tr>" NL;
         put "<tr><td><b>Height:</b></td><td><input type=""text"" DATAFLD=""Height""></td></tr>" NL;
         put "<tr><td><b>Weight:</b></td><td><input type=""text"" 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 align=""center""><input type=""button"" value=""Add"" onClick=""addBand()""> " NL ;
         put "<input type=""button"" value=""Delete"" onClick=""deleteBand()""></p>" 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;