{
{   The purpose  of  this  routine  is to clear the permanent file lock in the
{ active set table.
{
{       STP$CLEAR_AST_PF_LOCK (AST_INDEX, STATUS)
{
{ AST_INDEX: (input) This parameter specifies the set.
{
{ STATUS: (output) This parameter returns the request status.
{
{       CONDITIONS: ste$lock_not_set
{
{       IDENTIFIER: stc$set_management_id
{
