Namespace: OpenEdge.DataAdmin.Binding
Type: Class SchemaChanges
Parent Classes:
Progress.Lang.Object
OpenEdge.DataAdmin.Binding.DataAdminContext
OpenEdge.DataAdmin.Binding.SchemaChanges

Inherits: OpenEdge.DataAdmin.Binding.DataAdminContext
Implements: OpenEdge.DataAdmin.Binding.IDataAdminContext

/* Copyright (c) 2010,2013 by progress Software Corporation
/*
/* all rights reserved. no part of this program or document
/* may be reproduced in any form or by any means without
/* permission in writing from progress Software Corporation.
File:SchemaChanges
Author(s):hdaniels
Created:Sep 2010



Method Summary
  Options Name Purpose
  LOGICAL CanFind (character)
  CopyTable (IDataAdminModel) /* method public FetchDefinitions GetDefinitionRequest(): define variable msg as FetchDefinitions no-undo. msg = new FetchDefinitions(Name,Id,DatasetHandle). msg:FileName = FileName. return msg. end method. */
  OpenEdge.DataAdmin.IDataAdminCollection CreateCollection (IDataAdminContext) /* TEST method public override IDataAdminElement GetEntity(pckey as char): TestData(). return CreateEntity(this-object). end method. **/
  OpenEdge.DataAdmin.IDataAdminElement CreateEntity (IRequestInfo)
  CreateFieldChange (character, character, character)
  CreateIndexChange (character, character, character)
  CreateRow (IDataAdminElement)
  CreateSequenceChange (character, character)
  CreateTableChange (character, character) /* method public override IDataAdminCollection GetChildCollection(cKey as char,child as char). define variable newcoll as IDataAdminCollection no-undo. define variable cntxt as IDataAdminContext no-undo. define variable islazy as logical no-undo. if child = "partitions" then do: cntxt = GetChild(child). if this-object:Find(cKey) then do: cntxt = GetChild(child). islazy = cntxt:Lazy. cntxt:Lazy = false. newcoll = cntxt:GetCollection(SerializeName + "/" + cKey). cntxt:Lazy = islazy. return newcoll. end. return ?. end. else do: return super:GetChildCollection(cKey,child). end. end method. */
  LOGICAL Find (character)
  CHARACTER GetAction (character)
  HANDLE GetChangeDataset ()
  CHARACTER GetJoinFields (character)
  OpenEdge.DataAdmin.Message.IFetchRequest GetRequest ()
  HANDLE InitDataset () /* temporary until all sub classes are using createDataset */
  TestData ()

Constructor Summary
  Options Name Purpose
  SchemaChanges (character, IServiceContextFactory)

Property Summary
  Options Name Purpose
  INTEGER Count
  CHARACTER FileName
  CHARACTER KeyFields
  HANDLE TableHandle


Method Detail
Top

LOGICAL CanFind (character)

Parameters:
name CHARACTER
 
Returns LOGICAL
 
Top

CopyTable (IDataAdminModel)

/*
method public FetchDefinitions GetDefinitionRequest():
define variable msg as FetchDefinitions no-undo.
msg = new FetchDefinitions(Name,Id,DatasetHandle).
msg:FileName FileName = FileName.
return msg.
end method.
Parameters:
cntxt OpenEdge.DataAdmin.Binding.IDataAdminModel
 
Top

OpenEdge.DataAdmin.IDataAdminCollection CreateCollection (IDataAdminContext)

/* TEST
method public override IDataAdminElement GetEntity(pckey as char):
TestData().
return CreateEntity(this-object).
end method.
Parameters:
cntxt OpenEdge.DataAdmin.Binding.IDataAdminContext
 
Returns OpenEdge.DataAdmin.IDataAdminCollection
 
Top

OpenEdge.DataAdmin.IDataAdminElement CreateEntity (IRequestInfo)

Parameters:
preq OpenEdge.DataAdmin.IRequestInfo
 
Returns OpenEdge.DataAdmin.IDataAdminElement
 
Top

CreateFieldChange (character, character, character)

Parameters:
pcaction CHARACTER
 
pctable CHARACTER
 
pcname CHARACTER
 
Top

CreateIndexChange (character, character, character)

Parameters:
pcaction CHARACTER
 
pctable CHARACTER
 
pcname CHARACTER
 
Top

CreateRow (IDataAdminElement)

Parameters:
entity OpenEdge.DataAdmin.IDataAdminElement
 
Top

CreateSequenceChange (character, character)

Parameters:
pcaction CHARACTER
 
pcname CHARACTER
 
Top

CreateTableChange (character, character)

/*
method public override IDataAdminCollection GetChildCollection(cKey as char,child as char).
define variable newcoll as IDataAdminCollection no-undo.
define variable cntxt as IDataAdminContext no-undo.
define variable islazy as logical no-undo.
if child = "partitions" then
do:
cntxt = GetChild(child).
if this-object:Find(cKey) then
do:
cntxt = GetChild(child).
islazy = cntxt:Lazy.
cntxt:Lazy Lazy = false.
newcoll = cntxt:GetCollection(SerializeName + "/" + cKey).
cntxt:Lazy Lazy = islazy.
return newcoll.
end.
return ?.
end.
else do:
return super:GetChildCollection(cKey,child).
end.
end method.
Parameters:
pcaction CHARACTER
 
pcname CHARACTER
 
Top

LOGICAL Find (character)

Parameters:
name CHARACTER
 
Returns LOGICAL
 
Top

CHARACTER GetAction (character)

Parameters:
imod CHARACTER
 
Returns CHARACTER
 
Top

HANDLE GetChangeDataset ()

Returns HANDLE
 
Top

CHARACTER GetJoinFields (character)

Parameters:
parentid CHARACTER
 
Returns CHARACTER
 
Top

OpenEdge.DataAdmin.Message.IFetchRequest GetRequest ()

Returns OpenEdge.DataAdmin.Message.IFetchRequest
 
Top

HANDLE InitDataset ()

/* temporary until all sub classes are using createDataset
Returns HANDLE
 
Top

TestData ()


Constructor Detail
Top

SchemaChanges (character, IServiceContextFactory)

Parameters:
pcfile CHARACTER
 
pScope OpenEdge.DataAdmin.Binding.Factory.IServiceContextFactory
 


Property Detail
Top

INTEGER Count

Returns INTEGER
 
Top

CHARACTER FileName

Returns CHARACTER
 
Top

CHARACTER KeyFields

Returns CHARACTER
 
Top

HANDLE TableHandle

Returns HANDLE