Namespace: OpenEdge.DataAdmin.Binding
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


Copyright © 2022 Progress Software Corporation. All rights Reserved.

Progress® OpenEdge® Release 11.7.15