home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / brokcode.zip / READHD2.EXE / lha / FILEDEF.CPY < prev    next >
Text File  |  1988-10-30  |  3KB  |  82 lines
  1. ! ═══════════════════  CLARION FILE DEFINITION STRUCTURES ══════════════════════
  2.  
  3. FLDNMSIZ  EQUATE(16)                ! max size of a field name
  4. PRESIZ      EQUATE(3)                ! max size field name prefix
  5. MAXFLDS      EQUATE(256)                ! max number of fields per record
  6. NODESIZE  EQUATE(512)                ! size of nodes in key files
  7. MEMOSIZE  EQUATE(256)                ! size of memo text block
  8. MAXKEYSIZ EQUATE(245)                ! maximum length of key
  9. MAXKEYS      EQUATE(255)                ! maximum number of keys
  10. MAXPICLEN EQUATE(256)                ! maximum length of picture
  11.  
  12.                         ! record status types
  13. NEWREC      EQUATE(00000001B)            ! New Record
  14. OLDREC      EQUATE(00000010B)            ! Old Record
  15. RVISED      EQUATE(00000100B)            ! Revised
  16. BACKED      EQUATE(00001000B)            ! Backed Up
  17. DELTED      EQUATE(00010000B)            ! Deleted
  18. EMPTY      EQUATE(00100000B)            ! Empty
  19. RDLOCK      EQUATE(01000000B)            ! Record Locked
  20. WTLOCK      EQUATE(10000000B)            ! ???
  21.  
  22.                         ! sf file status defines for sfatr
  23. FILLOCK      EQUATE(00000001B)            ! file is locked
  24. FILOWN      EQUATE(00000010B)            ! file is owned
  25. FILCRYP      EQUATE(00000100B)            ! records are encrypted
  26. FILMEMO      EQUATE(00001000B)            ! memo file exists
  27. FILCOMP      EQUATE(00010000B)            ! file is compressed
  28. FILRCLM      EQUATE(00100000B)            ! reclaim deleted records
  29. FILREAD      EQUATE(01000000B)            ! file is read only
  30. FILCRET      EQUATE(10000000B)            ! file may be created
  31.  
  32.                         ! field types
  33. FLNG      EQUATE(1)                ! LONG - long
  34. FREL      EQUATE(2)                ! REAL - double
  35. FSTR      EQUATE(3)                ! STRING - char[]
  36. FPIC      EQUATE(4)                ! PICTURE - char[]
  37. FBYT      EQUATE(5)                ! BYTE - char
  38. FSHT      EQUATE(6)                ! SHORT - int
  39. FGRP      EQUATE(7)                ! GROUP
  40. FDEC      EQUATE(8)                ! DECIMAL
  41.  
  42.  
  43. FILEHEAD  DOS,NAME(FNAME),PRE(FHE)        ! data file header (LEN=85 bytes)
  44.       RECORD
  45. filesig      short                    ! signature
  46. sfatr      short                    ! file attributes
  47. numbkeys  byte                    ! number of keys in this file
  48. numrecs      long                    ! number of records in file
  49. numdels      long                    ! number of deleted records
  50. numflds      short                    ! number of fields
  51. numpics      short                    ! number of pictures
  52. numarrs      short                    ! number of arrays
  53. reclen      short                    ! record length
  54. offset      long                    ! start of data area
  55. logeof      long                    ! logical end of file
  56. logbof      long                    ! logical beginning of file
  57. freerec      long                    ! first usable deleted record
  58. recnam      string(FLDNMSIZ-4)            ! record name without pre
  59. memnam      string(FLDNMSIZ-4)            ! memo name without pre
  60. filpre      string(PRESIZ)            ! file name prefix
  61. recpre      string(PRESIZ)            ! record name prefix
  62. memolen      short                    ! size of memo
  63. memowid      short                    ! column length of memo
  64. lockcnt      long                    ! file locked counter
  65. chgtime      long                    ! time of last change
  66. chgdate      long                    ! date of last change
  67. chcksum      short                    ! checksum used for encrypt
  68.       . .
  69.  
  70. RECHEAD      DOS,NAME(FNAME),PRE(RHE)        ! record Descriptions
  71.       RECORD
  72. fldtype      byte                    ! type of field
  73. fldname      string(FLDNMSIZ)            ! name of field
  74. foffset      short                    ! offset into record
  75. length      short                    ! length of field
  76. decsig      byte                    ! significance for decimals
  77. decdec      byte                    ! number of decimal places
  78. arrnum      short                    ! array number
  79. picnum      short                    ! picture number
  80.       . .
  81.  
  82.