
{      The purpose of this request is to delete the data in a file.
{  This was created for use by fsp$copy_file so that the data in
{  the output file is deleted only if all the requirements of fsp$copy_file
{  and delete_data (as defined by fsp$open_file) have been meet.
{  This routine is needed because global_file_information can only be modified
{  by a ring 3 routine.
{
{        BAP$DELETE_DATA (FILE_IDENTIFIER, STATUS)
{
{  FILE_IDENTIFIER: (input)
{
{
{
{
{
