a3b90dd225
* source/compiler/harbour.c
* Replaced sequential calls to hb_compGenPCode3() + hb_compGenPCode3() with 1 call to new hb_compGenPCode4()
* source/compiler/hbpcode.c
+ Added hb_compGenPCode4( BYTE, BYTE, BYTE, BYTE )
* include/hbcomp.h
+ Added hb_compGenPCode4( BYTE, BYTE, BYTE, BYTE )
* source/vm/macro.c
+ Added hb_compGenPCode4( BYTE, BYTE, BYTE, BYTE, HB_MACRO_DECL )
26 lines
664 B
Plaintext
26 lines
664 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
function Main()
|
|
|
|
local aStruct := { { "CHARACTER", "C", 25, 0 }, ;
|
|
{ "NUMERIC", "N", 8, 0 }, ;
|
|
{ "DOUBLE", "N", 8, 2 }, ;
|
|
{ "DATE", "D", 8, 0 }, ;
|
|
{ "LOGICAL", "L", 1, 0 } }
|
|
|
|
REQUEST DBFCDX
|
|
|
|
rddSetDefault( "DBFCDX" )
|
|
|
|
FErase( "testcdx.cdx" )
|
|
dbCreate( "testcdx", aStruct, "DBFCDX" )
|
|
dbUseArea( ,, "testcdx", "MYALIAS" )
|
|
ordCreate( "testcdx", "1Tag ", "FIELD->Character", { || FIELD->Character }, .F. )
|
|
ordCreate( "testcdx", "2Tag ", "FIELD->Character", { || FIELD->Character }, .F. )
|
|
? MYALIAS->CHARACTER
|
|
|
|
return nil
|
|
|