60 lines
1.3 KiB
C
60 lines
1.3 KiB
C
|
/***********************************************************************\
|
||
|
|
* *
|
||
|
|
* APPEND.C Copyright (C) 1993 Sequiter Software Inc. *
|
||
|
|
* *
|
||
|
|
\***********************************************************************/
|
||
|
|
/* See User's Manual, page 195 */
|
||
|
|
|
||
|
|
#include "d4all.h"
|
||
|
|
|
||
|
|
#ifdef __TURBOC__
|
||
|
|
extern unsigned _stklen = 10000;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
CODE4 cb ;
|
||
|
|
DATA4 *data_from, *data_to ;
|
||
|
|
FIELD4 *info_from, *info_to ;
|
||
|
|
|
||
|
|
void main()
|
||
|
|
{
|
||
|
|
int rc1, rc2, rc ;
|
||
|
|
|
||
|
|
d4init( &cb ) ;
|
||
|
|
|
||
|
|
cb.optimize = 1 ;
|
||
|
|
cb.optimize_write = 1 ;
|
||
|
|
|
||
|
|
data_from = d4open( &cb, "FROM_DBF.DBF" ) ;
|
||
|
|
data_to = d4open( &cb, "TO_DBF.DBF" ) ;
|
||
|
|
e4exit_test( &cb ) ;
|
||
|
|
|
||
|
|
d4opt_start( &cb ) ;
|
||
|
|
|
||
|
|
info_from = d4field( data_from, "INFO" ) ;
|
||
|
|
info_to = d4field( data_to, "INFO" ) ;
|
||
|
|
|
||
|
|
cb.lock_attempts = 1 ;
|
||
|
|
rc1 = d4lock_file( data_from ) ;
|
||
|
|
rc2 = d4lock_file( data_to ) ;
|
||
|
|
if( rc1 != 0 || rc2 != 0 )
|
||
|
|
{
|
||
|
|
printf( "Locking Failed\n" ) ;
|
||
|
|
exit(0) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
for( rc = d4top(data_from); rc == 0
|
||
|
|
; rc = d4skip(data_from,1) )
|
||
|
|
{
|
||
|
|
d4append_start( data_to, 0 ) ;
|
||
|
|
f4assign_field( info_to, info_from ) ;
|
||
|
|
d4append( data_to ) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
d4unlock( data_from ) ;
|
||
|
|
d4unlock( data_to ) ;
|
||
|
|
|
||
|
|
d4close_all( &cb ) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
|