Click above to get retro games delivered to your door ever month!

 ObjFlagGet()
------------------------------------------------------------------------------
 Purpose:
 Get the static/dynamic flag of an object.

 Syntax:
 iFlag = ObjFlagGet( lpszObjectName, wObjectType )

 Parameters:
 lpszObjectName The object name.
 wObjectType    The object type.

 Returns:
 A numeric value (signed short int).

 The CA-Clipper name for this function is:
 ObjGetFlg()

 Description:
 ObjFlagGet() returns the static/dynamic flag of the bindery object of
 the specified name lpszObjectName and type wObjectType.

 When an object is created it is given a flag which denotes whether the
 object is permanent (static) or temporary (dynamic). A static property
 exists until explicitly deleted, whereas a dynamic property exists until it
 is explicitly deleted or until the file server on which it exists is
 downed, at which point it is automatically deleted.

 Return values are 0 for a static property and 1 for a dynamic property.
 Returns NOVERRINT if an error occurs.

 Example:
 // To test whether bindery object KATIE of type USER is a
 // dynamic or static object:
 iBindFlag = ObjFlagGet( "KATIE", OT_USER )
 do case
    case iBindFlag = 0
       ?"Object KATIE is a STATIC (permanent) object"
    case iBindFlag = 1
       ? "Object KATIE is a DYNAMIC (temporary) object"
    otherwise
       ? "Object KATIE does not exist"
 endcase

 Notes:
 For more information on object flags, see the reference in Bindery
 Functions, Chapter 3.