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

 UsrAccountLimitGet() / UsrAccountLimitSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the user account credit limit.

 Syntax:
 lResult=UsrAccountLimitGet(lpszUserName)
 lResult=UsrAccountLimitSet(lpszUserName, lCreditLimit)

 Parameters:
 lpszUserName The name of the user.
 lCreditLimit The new credit limit.

 Returns:
 A numeric value (signed long int).

 The CA-Clipper names for these functions are:
 UsrAccLimGet() / UsrAccLimSet()

 Description:
 UsrAccountLimitGet() returns the account credit limit of a specified
 user lpszUserName on the current file server. This is the amount either
 above or below a zero account balance that a user can go before the
 file server refuses to give service.

 The value of the account limit is normally set to a negative value, this
 being the amount that a user is allowed to go overdrawn.

 UsrAccountLimitSet() returns the account credit limit of the specified user
 lpszUserName on the current file server to the specified value
 lCreditLimit. and returns the previous credit limit

 Returns NOVERRLONG if an error occurs.

 Example:
 // To test user MANDY's account credit limit and change it to -500:
 lCurrLim = UsrAccountLimitGet( "MANDY" )
 if ( !NWErrorGet() )
    if ( lCurrLim <> -500 )
       if( UsrAccountLimitSet( "MANDY", -500 ) = - 500 )
          ? "User MANDY now has an overdraft facility of 500 units."
       Endif
    endif
 endif

 Notes:
 To set a user's account credit limit requires Supervisor
 equivalence. UsrAccountLimitSet() is a redefinition of
 SetPropertyValueSet().