{
{   The purpose  of  this routine is to attempt to set the permanent file lock
{ in the active set table.  This routine does not wait for the lock  and  will
{ return abnormal status if the lock is busy.
{
{       STP$SET_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_set_in_task
{                   ste$lock_set_in_another_task
{
{       IDENTIFIER: stc$set_management_id
{
