logical cClassCodeInit :: SetupInitCode ( ) { PropertyHandle *prophdl = GetPropertyHandle(); PropertyHandle *fcti_ph = prophdl->GetParentProperty(); logical term = NO; BEGINSEQ ExecuteAction("StoreEntry",ACT_Function); fcti_ph->Save(); if ( prophdl->NoWrite() ) ERROR fcti_ph->ExecuteInstanceAction("SetupInitCode","NO"); RECOVER term = YES; ENDSEQ return(term); }
logical sODC_Project :: SetupReferences ( ) { PropertyHandle *ph = GetPropertyHandle(); logical term = NO; BEGINSEQ if ( !ph->IsServer() ) LEAVESEQ if ( ph->NoWrite() ) ERROR pc_ODC_Project project_pc(ph); project_pc.SetupReferences(); ph->Save(); SDBCERR RECOVER term = YES; ENDSEQ return(term); }