$ file nosesubca.v707
$ give all superelements the same subcase id as s.e. 0
$ applies to SOLs 103-112   mag  February 25, 2000
compile super3 nolist noref $
alter 'sedr.*ugd' $
if (seid=0) call dbstore casedr,,,,//0/0/'     '/0 $ save se 0 version
delete /casedr,,,, $ drop the version for each s.e.
call dbfetch /casedr,,,,/0/0/0/0/0 $ replace with the se 0 version