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); }