{
{   This request is used to clear a variable of type lock.  It can be used to
{ clear an expired lock.  A lock which has not expired may only be cleared by
{ the task which set it.
{
{       CLP$CLEAR_LOCK_VARIABLE (REFERENCE, STATUS)
{
{ REFERENCE: (input)  This parameter specifies the lock variable to be
{       cleared.
{
{ STATUS: (output)  This parameter specifies the request status.
{       CONDITIONS: cle$lock_already_clear
{                   cle$lock_not_set_by_this_task
{
