void _GetFile(ParamBlk FAR *parm)
{
   	string sErr;
	char  * cerr;
	char szFile[ 255 ];
	 LoadReferC(p( 0 ).loc,szFile); //  в szFile имя файла
	long iLen= 0 ;
	try
	{
		ifstream iFile(szFile, ifstream::in  | ifstream::binary );
		ofstream oFile("D:\\GOOD.DBF",  ofstream::binary );
		if (!iFile.is_open() )  throw (ifstream::failure("Error Open File"));
    
  	    char  cbyte=0x00;
   	  while (! iFile.eof()) 
		  {
		  cbyte = iFile.get();
		  oFile<<cbyte;
		  }

  iFile.close();
  oFile.close();

   	} catch (ifstream::failure error  ) 
		{ 
		sErr = error.what();
		iLen = sErr.size()+ 1 ;
		cerr = new char [iLen];
		strcpy (cerr, sErr.c_str());
	  	   SaveDataToRef(&p( 1 ).loc,cerr); 
		_RetLogical((int) FALSE);
		}



delete [ ] cerr;
}

while (!iFile.eof())   oFile.put( iFile.get() ) ;

void _GetFile(ParamBlk FAR *parm)
{
    char szIFile[ 255 ];
	char szOFile[ 255 ];

	LoadReferC(p( 0 ).loc,szIFile);
	LoadReferC(p( 1 ).loc,szOFile);

	try
	{
		ifstream iIFile(szIFile, ifstream::in  | ifstream::binary );
		ofstream oFile(szOFile,  ofstream::binary );
		if (!iIFile.is_open() )  throw (ifstream::failure("Error Open File"));
    
     	  while (!iIFile.eof())
		  {
			  if (iIFile.eof()) break;
			  oFile.put( iIFile.get() ) ;
		  }
		 
                           iIFile.close();
                           oFile.close();

   	} catch (ios::failure error ) 
		{ 
		string sErr = error.what();
		char* cerr = new char [sErr.size()+ 1 ];
		strcpy (cerr, sErr.c_str());
	             SaveDataToRef(&p( 2 ).loc,cerr); 
		 delete [ ] cerr;
		_RetLogical((int) FALSE);
		}
}