static HB_ERRCODE sqlbaseNewArea( SQLBASEAREAP pArea )
{
HB_ERRCODE errCode;
HB_TRACE( HB_TR_DEBUG, ( "sqlbaseNewArea(%p)", pArea ) );
errCode = SUPER_NEW( ( AREAP ) pArea );
pArea->area.uiMaxFieldNameLength = HB_SYMBOL_NAME_LEN;
return errCode;
}
/*
* Clear the WorkArea for use.
*/
static HB_ERRCODE hb_sdfNewArea( SDFAREAP pArea )
{
HB_TRACE( HB_TR_DEBUG, ( "hb_sdfNewArea(%p)", pArea ) );
if( SUPER_NEW( &pArea->area ) == HB_FAILURE )
return HB_FAILURE;
pArea->pFile = NULL;
pArea->fTransRec = HB_TRUE;
pArea->uiRecordLen = 0;
return HB_SUCCESS;
}
static HB_ERRCODE adsxNewArea( ADSXAREAP pArea )
{
HB_ERRCODE errCode;
errCode = SUPER_NEW( ( AREAP ) pArea );
if( errCode == HB_SUCCESS )
{
if( pArea->adsarea.area.rddID == s_uiRddIdADSADTX )
pArea->adsarea.iFileType = ADS_ADT;
else if( pArea->adsarea.area.rddID == s_uiRddIdADSNTXX )
pArea->adsarea.iFileType = ADS_NTX;
else if( pArea->adsarea.area.rddID == s_uiRddIdADSCDXX )
pArea->adsarea.iFileType = ADS_CDX;
#if ADS_LIB_VERSION >= 900
else if( pArea->adsarea.area.rddID == s_uiRddIdADSVFPX )
pArea->adsarea.iFileType = ADS_VFP;
#endif
pArea->adsarea.area.uiMaxFieldNameLength = ( pArea->adsarea.iFileType == ADS_ADT ) ?
ADS_MAX_FIELD_NAME : ADS_MAX_DBF_FIELD_NAME;
}
return errCode;
}
