{
{   The purpose  of  this  procedure  is to store a permanent file root in the
{ active set table for a set.  The set must have already been located  in  the
{ active set table.  If there is already a permanent file root stored for this
{ set it is released and the new one stored.
{
{       STP$STORE_AST_PF_ROOT (AST_INDEX, PF_ROOT, STATUS)
{
{ AST_INDEX: (input) This parameter specifies the set.
{
{ PF_ROOT: (input) This parameter specifies the new permanent file root to  be
{       stored in the active set table entry for this set.
{
{ STATUS: (output) This parameter returns the request status.
{
{       CONDITIONS: ose$mainframe_pageable_full
{
{       IDENTIFIER: stc$set_management_id
{
