/************************************************************/
/*                       parsstop                           */
/************************************************************/

/* :SUMMARY: consistency in loading erroneous data
:PRIORITY: 2
:FEATURE: 
parsing should stop at the first error. The object with erroneous data
is created as an empty object, but no faulty data is added, not even
correct data before the error.
:HISTORY: 
:MODEL: 
:DATA: 
M "loadcheck.ok"
T

M "loadcheck.wrongtag"
X
T 1995

M "loadcheck.wrongvalue"
T 1.1
T 1996

:RESULT:
works in: 4_7h
:SCRIPT: */

parsstop: dbinit wspec.mini  // parsing stops at error
  tace
     count   // verify that the active keyset is empty
     parse: do parse $data/mini.loadcheck.ace
           count
     pclear: do clear
     pfind: do find M
            show
  exit