The Delete a Barrier routine deletes a barrier and releases any
    storage associated with it.

    Format

      PPL$DELETE_BARRIER  [barrier-id] [,barrier-name]