UserArchives - creating in RT

Hi,

could you help me somebody with following problem? ...

- i need dynamicly create user archives in the RunTime
- i know, how to add records, i know, how to read out configuration of the existing ua
- BUT I DON'T KNOW, how to create new user archive .... i used following script - and i receive always GENERIC_ERROR ...

#include "apdefap.h"

void CreateNewUA(char * String1, char *String2)
{
UAHCONNECT hConnect = 0 ;
UAHCONFIG phConfig ;
UACONFIGARCHIVE pArchive;
int errNr, ArchiveNrs ;
UAHARCHIVE hArchive = 0 ;

//******* Connect to Component User Archives **************************
if ( uaConnect( &hConnect ) == FALSE )
{
printf( "uaConnect error: %d \r\n", uaGetLastError() );
return;
}
else ;

if ( hConnect == NULL )
{
printf( "Handle UAHCONNECT equals NULL \r\n" );
return;
}
else ;

if ( UAQueryConfiguration(&phConfig ) == FALSE )
{
printf( "UAQueryConfiguration error: %d \r\n", uaGetLastError() );
return;
}
else ;

sprintf(pArchive.szName,"blabla") ;
pArchive.lArchiveId = 4 ;
pArchive.lPosition = 5 ;
pArchive.lType = 1;//UA_ARCHIVETYPE_UNLIMITED ;
pArchive.lNumRecs = 0;
pArchive.lCommType = 3;//UA_COMMTYPE_NONE;
pArchive.dwFlags = 0; // UA_ARCHIVEFLAG_ACCESS | UA_ARCHIVEFLAG_USER ;
pArchive.dwReadRight = 0 ;
pArchive.dwWriteRight = 0 ;

ArchiveNrs=UAGetNumArchives( phConfig) ;
//printf("pocet archivov = %d \r\n", ArchiveNrs) ;

if ( UASetArchive(phConfig, 4,&pArchive ) == FALSE ) //
{
printf( "UASetArchive error: %d \r\n", (errNr=uaGetLastError()) );
switch(errNr)
{
case UA_ERROR_INVALID_HANDLE : printf(" - error type = UA_ERROR_INVALID_HANDLE \r\n") ;break ;
case UA_ERROR_GENERIC : printf(" - error type = UA_ERROR_GENERIC \r\n") ;break ;
case UA_ERROR_INVALID_COMMTYPE : printf(" - error type = UA_ERROR_INVALID_COMMTYPE \r\n") ;break ;
case UA_ERROR_INVALID_NUMRECS : printf(" - error type = UA_ERROR_INVALID_NUMRECS \r\n") ;break ;
case UA_ERROR_INVALID_TYPE: printf(" - error type = UA_ERROR_INVALID_TYPE\r\n") ;break ;
case UA_ERROR_INVALID_NAME: printf(" - error type = UA_ERROR_INVALID_NAME\r\n") ;break ;
default: printf("nie je definovana chyba \r\n") ; break ;
}
return;
}
else ;

//UAGetArchive(phConfig, 5,&pArchive ) ;
//printf("aaa2 \r\n") ;

if ( UAAddArchive(phConfig,&pArchive) == FALSE )
{
printf( "UAAddArchive error: %d \r\n", uaGetLastError() );
return;
}
else ;

//printf("nazov = %s \r\n", pArchive.szName) ;
//printf("lId=%d, lPos=%d,lType=%d, lCommType=%d, dwFlags=%d, dwReadRight=%d, dwWriteRight=%d\r\n",pArchive.lArchiveId, pArchive.lPosition,pArchive.lType, pArchive.lCommType,pArchive.dwFlags,pArchive.dwReadRight ,pArchive.dwWriteRight ) ;

if ( UAReleaseConfiguration (phConfig,TRUE) == FALSE )
{
printf( "UAReleaseConfiguration error: %d \r\n", uaGetLastError() );
return;
}
else ;

//printf("aaa3 \r\n") ;

//******* Close all handles and connections ***************************
finish:;
//******* Close Archive ******************************************************

//****** Release Connection to Archive *************************************
if( NULL != hArchive )
{
if ( uaReleaseArchive ( hArchive ) == FALSE )
{
printf( "error on releasing archive \r\n" );
}

hArchive = 0;
}

//******* Disconnect Component User Archives ***************************
if( NULL != hConnect )
{
if ( uaDisconnect ( hConnect ) == FALSE )
{
printf( "error on disconnecting \r\n" );
}

hConnect = 0;
}

}

SO PLEASE, Help me somebody ... thanks ...