home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / FLDATT4.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  418 b   |  22 lines
  1. %====================== field_attr/4             ===============================
  2. DOMAINS
  3.   FNAME = STRING
  4.   TYPE = int(); str(); real()
  5.   ROW, COL, LEN = INTEGER
  6.  
  7. DATABASE
  8.   field(FNAME,TYPE,ROW,COL,LEN)
  9.   value(FNAME,STRING)
  10.  
  11. PREDICATES
  12.   writescr
  13.  
  14. CLAUSES
  15.   writescr:-
  16.     field(FNAME,_,ROW,COL,LEN),
  17.     field_attr(ROW,COL,LEN,112),
  18.     value(FNAME,STR),
  19.     field_str(ROW,COL,LEN,STR),
  20.     fail.
  21.   writescr.
  22.