**************************************************************************
      * DBGOLDH1: Logical over Document Index
      * Copyright (C) 2000  Martin Rowe  <martin@dbg400.net>
      *
      * This program is free software; you can redistribute it and/or modify
      * it under the terms of the GNU General Public License as published by
      * the Free Software Foundation; either version 2 of the License, or
      * (at your option) any later version.
      *
      * This program is distributed in the hope that it will be useful,
      * but WITHOUT ANY WARRANTY; without even the implied warranty of
      * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      * GNU General Public License for more details.
      *
      * You should have received a copy of the GNU General Public License
      * along with this program; if not, write to the Free Software Foundation,
      * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307   USA
      **************************************************************************
     A          R DB1DFTH                   PFILE(DBGOLDH0)
      *
     A            DFDOCD
     A            DFDOCH
     A            DFCDTE
     A            DFADTE
     A            DFCUSR
     A            DFAUSR
     A            DFLOCK
     A            DFHEAD
     A            DFHTX1
     A            DFHTX2
     A            DFHTX3
     A            DFHTX4
     A            DFHTX5
     A            DFHTX6
     A            DFFTX1
     A            DFFTX2
     A            DFFTX3
     A            DFADD1
     A            DFADD2
     A            DFADD3
      *
     A          K DFDOCD