logical pc0_ImportProtokoll :: CheckStatus (ImportStatus import_status )
{
  PropertyHandle   *status = GPH("status");

  return ( status->GetInt() == import_status ? YES : NO );


}
logical pc0_ImportProtokoll :: SetStatus (ImportStatus import_status, logical reset_opt )
{
  PropertyHandle   *status = GPH("status");
  logical           term   = NO;
BEGINSEQ
  if ( NoWrite() )                                  ERROR
  
  if ( !reset_opt )
    if ( status->GetInt() > import_status )         LEAVESEQ
    
  *status = import_status;
  Save();

RECOVER
  term = YES;
ENDSEQ
  return(term);
}