コード例 #1
0
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);
}
コード例 #2
0
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);
}