{
{   The purpose of this procedure is to do the actual removing of the set from
{ the master volume set table and the active set table.   The  parameters  are
{ assumed  valid;  the  master  active; and the requestor the set owner.  This
{ routine verifies that there are no members on the set, and no files  on  the
{ volume.   IF all is OK the set is removed from the active set table, and the
{ volume set table (device file) is destroyed.
{
{       STP$RING2_PURGE_SET (SET_NAME, MASTER_VOL, MASTER_AVT_INDEX,
{         AST_INDEX, AST_ENTRY, STATUS)
{
{ SET_NAME: (output) This parameter specifies the name of the set to purge.
{
{ MASTER_VOL:  (output) This parameter specifies the name of the master volume
{       of the set.
{
{ MASTER_AVT_INDEX: (input) This parameter specifies the active  volume  table
{       index for the master volume.  The master must be active.
{
{ AST_INDEX:  (input)  This  parameter specifies the index into the active set
{       table for this set.
{
{ AST_ENTRY: (input) This parameter specifies the  entry  in  the  active  set
{       table for this set.
{
{ STATUS: (output) This parameter returns the request status.
{
{       CONDITIONS: ste$master_ast_mismatch
{                   ste$files_on_vol
{                   ste$vol_on_set (there are members on the set)
{                   ste$dm_avt_mismatch
{                   ste$open_error
{                   ste$attach_df_error
{                   ste$vol_not_in_set
{
{       IDENTIFIER: stc$set_management_id
{
