Re: dBASE IV

 BBS: Inland Empire Archive
Date: 03-16-92 (12:07)             Number: 164
From: FRANCOIS ROY                 Refer#: NONE
  To: JOE FOX                       Recvd: NO  
Subj: Re: dBASE IV                   Conf: (2) Quik_Bas

 JF> I have been looking for a way to access dBASE IV files with QB 4.5.

 The following TYPE declarations should give you a good starting point:

TYPE DBHDR
     FILTYP     AS STRING * 1   ' &03 or &83
     UPDYY      AS STRING * 1   ' Update date YYMMDD
     UPDMM      AS STRING * 1
     UPDDD      AS STRING * 1
     NREC       AS LONG         ' # records in file
     HDRLEN     AS INTEGER      ' # bytes in header (this header+all field
                                '  descriptors+terminator byte)
     RCDLEN     AS INTEGER      ' # bytes in a record
     HDRFILLER  AS STRING * 20
END TYPE

TYPE DBFLD      ' One per field, after the header
     FLDNAM     AS STRING * 11  ' Field Name, padded with &00s
     FLDTYP     AS STRING * 1   ' C=Char, D=Date, N=Numeric, F=Float,
                                ' L=Logical, M=Memo
     FLDADR     AS LONG         ' Junk
     FLDLEN     AS STRING * 1   ' Field length
     FLDDEC     AS STRING * 1   ' No. of decimals
     FLDFILLER  AS STRING * 14
END TYPE


--- ME2_1104
 * Origin: Out of String Space - the Final Frontier (Fidonet 1:163/506.2)