docs: private String[] getBaseRecordClasses(String strClassName)
      {
          ClassInfo recClassInfo = new ClassInfo(Record.findRecordOwner(m_recClassInfo));
          String[] rgstrClasses = new String[0];
  //        rgstrClasses[0] = strClassName;
          Record recFileHdr = new FileHdr(Record.findRecordOwner(m_recFileHdr));
          try {
              // First, get the base shared record
              String strBaseClass = strClassName;
              while (true)
              {
                  recClassInfo.setKeyArea(ClassInfo.CLASS_NAME_KEY);
                  recClassInfo.getField(ClassInfo.CLASS_NAME).setString(strBaseClass);
                  if (!recClassInfo.seek(null))
                      break;  // No class, Parent is the base.
                  if ("Record".equalsIgnoreCase(recClassInfo.getField(ClassInfo.CLASS_NAME).toString()))
                      break;
  //                if (!includeBaseFields)
    //              {
      //                recFileHdr.getField(FileHdr.FILE_NAME).moveFieldToThis(recClassInfo.getField(ClassInfo.CLASS_NAME));
        //              recFileHdr.setKeyArea(FileHdr.FILE_NAME_KEY);
          //            if (!recFileHdr.seek("="))
            //              break;  // No file, Parent is the base.
              //        if (recFileHdr.getField(FileHdr.TYPE).toString().indexOf("SHARED_TABLE") == -1)
                //          break;  // Not shared, Parent is the base.
                  //}
                  strClassName = strBaseClass;    // This is the new valid base.
                  strBaseClass = recClassInfo.getField(ClassInfo.BASE_CLASS_NAME).toString();  // Continue down.
                  // Now add this base class to the bottom of the list
                  String[] rgstrClassesTemp = new String[rgstrClasses.length + 1];
                  for (int i = 0; i < rgstrClasses.length; i++)
                  {
                      rgstrClassesTemp[i + 1] = rgstrClasses[i];
                  }
                  rgstrClassesTemp[0] = strClassName; // New base class
                  rgstrClasses = rgstrClassesTemp;
              }
          } catch (DBException ex)    {
              ex.printStackTrace();
          } finally {
              recClassInfo.free();
              recFileHdr.free();
          }
          return rgstrClasses;
      }