char strategy[500];
char filename[250];
char holdspace[500];
int db, CR = 13;

main() {
   text title;
   
   if (getfile("Select an ARP file:", "*.arp", filename) == CR) {
      queryString(db, strategy);

/* Edit the "title =" line to modify the page header of your report */
/* This example prints a report with the following header:          */
/*                                                                  */ 
/*    Custom Title Report                                           */
/*    Total Document: xx (number of documents in the current query  */
/*    Strategy: xxxxxxxxxxxxxxxxxx (your curremnt query)            */
      
      title = "Custom title report\nTotal documents: "+str(count(db)) +
         "\nSearch Strategy: "+strategy;
      getPrivateProfileString("Header", "Contents", "", holdspace, 200, filename);
      writePrivateProfileString("Header", "Contents", title, filename);
      
      report(db, filename);
      
      writePrivateProfileString("Header", "Contents", holdspace, filename);
   }
}