/************************************************************/
/*                       ctdel                              */
/************************************************************/

/* :SUMMARY: delete data within constructed-type part of an object
:PRIORITY: 4
:STATUS: ok
:FEATURE: 
:HISTORY: 
:MODEL: 
:DATA:mini.cons1.ace:
M : m1
T "1995" T 10
T "1995" T 20
T 1997 inner T 30

     :mini.cons2.ace:
M : m1
-D T "1995" T 10

:RESULT: 
dfind.write: should find 1 M-object:
M : "m1"
T	 1995 inner T 20
T	 1997 inner T 30

works in: ace950522a4n, 4_7h, 4_8-990607
:SCRIPT: */
ctdel: dbinit wspec.mini // constructed type delete
  tace
    parse1:  do parse $data/mini.cons1.ace 
    parse2:  do parse $data/mini.cons2.ace  // modifiy M object
    dfind: do find M
              write
  exit