//////////////////////////////////////////////////////////////////////////////
//	Public Function:  of_FileWrite
//	Arguments:		as_FileName				The name of the file to write to.
//						ablb_Data				The data to be written to the file.
//						ab_Append				True - append to the end of the file,
//													False - overwrite the existing file.
//	Returns:			Integer
//						 1  if successful, - 1  if an error occurrs.
//	Description:	Open, write from a blob, and close a file.  Handles blobs >  32 , 765  bytes.
//////////////////////////////////////////////////////////////////////////////
//	Rev. History:	Version
//						 5 . 0    Initial version
//////////////////////////////////////////////////////////////////////////////
//	Copyright ©  1996 - 1999  Sybase, Inc. and its subsidiaries.  All rights reserved.  Any distribution of the 
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////
integer li_FileNo, li_Writes, li_Cnt
long ll_BlobLen, ll_CurrentPos
blob lblb_Data
writemode lwm_Mode

If ab_Append Then
	lwm_Mode = Append!
Else
	lwm_Mode = Replace!
End if

li_FileNo = FileOpen(as_FileName, StreamMode!, Write!, LockReadWrite!, lwm_Mode)
If li_FileNo <  0  Then Return - 1 

ll_BlobLen = Len(ablb_Data)

// Determine the number of writes required to write the entire blob
If ll_BlobLen >  32765  Then
	If Mod(ll_BlobLen,  32765 ) =  0  Then
		li_Writes = ll_BlobLen /  32765 
	Else
		li_Writes = (ll_BlobLen /  32765 ) +  1 
	End if
Else
	li_Writes =  1 
End if

ll_CurrentPos =  1 

For li_Cnt =  1  To li_Writes
	lblb_Data = BlobMid(ablb_Data, ll_CurrentPos,  32765 )
	ll_CurrentPos +=  32765 
	If FileWrite(li_FileNo, lblb_Data) = - 1  Then
		Return - 1 
	End if
Next

FileClose(li_FileNo)

Return  1