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

 PrpSecurityGet()
------------------------------------------------------------------------------
 Purpose:
 Get the security level of a property.

 Syntax:
 wSecurityFlag = PrpSecurityGet( lpszObjectName,
          wObjectType, lpszPropertyName )

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

 Returns:
 A numeric value (signed short int).

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

 Description:
 PrpSecurityGet() returns the bindery read/write security level of the
 property lpszPropertyName associated with the specified object of name
 lpszObjectName and type wObjectType. There are 5 security levels for
 both read and write, which are listed in Chapter 3, Bindery Functions
 and again under the function ObjSecurityGet().

 For example, if PrpSecurityGet() returns the value 49, the specified
 property has a security level of Supervisor write, logged read, (48+1).
 Returns NOVERRINT if an error occurs.

 Example:
 // To return the security level of the IDENTIFICATION property
 // for user NICK:
 iSec = PrpSecurityGet( "NICK", OT_USER, "IDENTIFICATION" )
 if ( NWErrorGet() = 0 )
    ? "User NICK's IDENTIFICATION property has "
    ??"a security level of", iSec
 endif