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

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

/* Copyright (c) 2010 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:AreaContext
Author(s):hdaniels
Created:Aug 2010



Method Summary
  Options Name Purpose
  LOGICAL CanFind (character)
  LOGICAL CanFind (character, integer)
  LOGICAL CanFind (integer)
  LOGICAL CanFindFirstOfArea (character)
  CopyTable (IDataAdminModel)
  CopyTable (table)
  OpenEdge.DataAdmin.IDataAdminCollection CreateCollection (IDataAdminContext)
  OpenEdge.DataAdmin.IDataAdminElement CreateEntity (IRequestInfo)
  OpenEdge.DataAdmin.Binding.Query.FilteredContext CreateFilteredContext (IRow, IRequestInfo)
  CreateRow (character, IExtent, integer)
  CreateRow (IDataAdminElement) /* if class cast error - the default syserror seems sufficent */
  CreateRow (IExtent)
  DataRefreshed (IFetchResponse)
  LOGICAL Find (character)
  LOGICAL Find (character, integer)
  LOGICAL Find (integer)
  CHARACTER FindExpression (integer)
  CHARACTER GetCreateError (IExtent)
  CHARACTER GetJoinFields (character)
  HANDLE InitDataset () /* temporary until all sub classes are using createDataset */
  InitRow () /* override - unsupported in super */
  InitRow (character)
  InitRow (integer)
  RefreshTable (table) /* copy-temp-table replace does not work (unique index on non primary ?) so do it record by record */
  UpdateAreaName (character, character)
  ValidateBuffer (handle)
  ValidateProperty (character, character, character) /** override to validate path and size */
  ValidateSize (integer, character) /** checked in data access, seems safer in case this is moved to a client method private void ValidatePath(piKey as int,pnewvalue as char). if pnewvalue <> "" then do: file-info:file-name = pnewvalue. if substring(file-info:file-type,1,1) <> "D" then undo, throw new InvalidPropertyValueError(Name,string(pikey),"Path",pnewvalue). end. if pNewValue = "" then undo, throw new ValidationError("Extent",string(pikey),"Path","cannot be blank. Specify a valid directory name or use period to specify the current directory"). end method. */

Constructor Summary
  Options Name Purpose
  ExtentContext ()
  ExtentContext (IAreaScope)

Property Summary
  Options Name Purpose
  INTEGER Count
  CHARACTER KeyFields
  HANDLE TableHandle


Method Detail
Top

LOGICAL CanFind (character)

Parameters:
c CHARACTER
 
Returns LOGICAL
 
Top

LOGICAL CanFind (character, integer)

Parameters:
areaname CHARACTER
 
iext INTEGER
 
Returns LOGICAL
 
Top

LOGICAL CanFind (integer)

Parameters:
id INTEGER
 
Returns LOGICAL
 
Top

LOGICAL CanFindFirstOfArea (character)

Parameters:
areaname CHARACTER
 
Returns LOGICAL
 
Top

CopyTable (IDataAdminModel)

Parameters:
cntxt OpenEdge.DataAdmin.Binding.IDataAdminModel
 
Top

CopyTable (table)

Parameters:
copyTable TABLE
 
Top

OpenEdge.DataAdmin.IDataAdminCollection CreateCollection (IDataAdminContext)

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

OpenEdge.DataAdmin.Binding.Query.FilteredContext CreateFilteredContext (IRow, IRequestInfo)

Parameters:
pParent OpenEdge.DataAdmin.Binding.IRow
 
pReq OpenEdge.DataAdmin.IRequestInfo
 
Returns OpenEdge.DataAdmin.Binding.Query.FilteredContext
 
Top

CreateRow (character, IExtent, integer)

Parameters:
pcAreaName CHARACTER
 
pNewExtent OpenEdge.DataAdmin.IExtent
 
piNum INTEGER
 
Top

CreateRow (IDataAdminElement)

/* if class cast error - the default syserror seems sufficent
Parameters:
entity OpenEdge.DataAdmin.IDataAdminElement
 
Top

CreateRow (IExtent)

Parameters:
pNewExtent OpenEdge.DataAdmin.IExtent
 
Top

DataRefreshed (IFetchResponse)

Parameters:
pResponse OpenEdge.DataAdmin.Message.IFetchResponse
 
Top

LOGICAL Find (character)

Parameters:
name CHARACTER
 
Returns LOGICAL
 
Top

LOGICAL Find (character, integer)

Parameters:
areaname CHARACTER
 
iext INTEGER
 
Returns LOGICAL
 
Top

LOGICAL Find (integer)

Parameters:
id INTEGER
 
Returns LOGICAL
 
Top

CHARACTER FindExpression (integer)

Parameters:
i INTEGER
 
Returns CHARACTER
 
Top

CHARACTER GetCreateError (IExtent)

Parameters:
newextent OpenEdge.DataAdmin.IExtent
 
Returns CHARACTER
 
Top

CHARACTER GetJoinFields (character)

Parameters:
parentid CHARACTER
 
Returns CHARACTER
 
Top

HANDLE InitDataset ()

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

InitRow ()

/* override - unsupported in super
Top

InitRow (character)

Parameters:
pname CHARACTER
 
Top

InitRow (integer)

Parameters:
pid INTEGER
 
Top

RefreshTable (table)

/* copy-temp-table replace does not work (unique index on non primary ?)
so do it record by record
Parameters:
copyTable TABLE
 
Top

UpdateAreaName (character, character)

Parameters:
pcOldname CHARACTER
 
pcNewname CHARACTER
 
Top

ValidateBuffer (handle)

Parameters:
phExtent HANDLE
 
Top

ValidateProperty (character, character, character)

Purpose: override to validate path and size
Parameters:
pcfield CHARACTER
 
poldvalue CHARACTER
 
pnewvalue CHARACTER
 
Top

ValidateSize (integer, character)

Purpose: checked in data access, seems safer in case this is moved to a client
method private void ValidatePath(piKey as int,pnewvalue as char).
if pnewvalue <> "" then
do:
file-info:file-name file-name = pnewvalue.
if substring(file-info:file-type,1,1) <> "D" then
undo, throw new InvalidPropertyValueError(Name,string(pikey),"Path",pnewvalue).
end.
if pNewValue = "" then
undo, throw new ValidationError("Extent",string(pikey),"Path","cannot be blank. Specify a valid directory name or use period to specify the current directory").
end method.
Parameters:
piKey INTEGER
 
pnewvalue CHARACTER
 


Constructor Detail
Top

ExtentContext ()
Top

ExtentContext (IAreaScope)

Parameters:
pscope OpenEdge.DataAdmin.Binding.Factory.IAreaScope
 


Property Detail
Top

INTEGER Count

Returns INTEGER
 
Top

CHARACTER KeyFields

Returns CHARACTER
 
Top

HANDLE TableHandle

Returns HANDLE