I am using Fivewin for Harbour.

The code below works when there are only 2 PRGs being compiled and linked

include "fivewin.ch"

static cStatic

FUNCTION Main()

LOCAL nEpoch // Y2K
local oHand, oBmp, oBmpTiled

PARAMETERS arg1, arg2, arg3

REQUEST DBFCDX         
RDDSetDefault("dbfcdx")

test_it()     // see test_sub.prg

USE AFECD SHARED NEW
BROWSE()

RETURN( NIL )
*-----------------------------------------------------------------------------------------------------------------------------

But when I put this code in a more complex system with many PRGs I get the following message:

Error occurred at: 10/14/12, 13:42:27
Error description: Error DBCMD/1015 Argument error: RDDSETDEFAULT

Stack Calls

Called from: => RDDSETDEFAULT( 0 )
Called from: .\A_SINGLE.PRG => MAIN( 0 )

Does anyone know why RDDSETDEFAULT does not work with many PRGs?

Thanks
Fulton

ANNOUNCE RDDSYS

FUNCTION MAIN()
your code.....
RETURN NIL

INIT PROCEDURE RddInit
REQUEST DBFFPT
REQUEST DBFCDX
rddSetDefault( "DBFCDX" )

I tried using the separate INIT function. I now get the error in the INIT function. I noticed that I only have three linked RDDs as shown below. Should I also have a linked DBFCDX?

Linked RDDs

DBF
DBFFPT
DBFBLOB

USE AFECD SHARED NEW

VIA should not be needed if you use the rddsetdefault() function.