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