30 lines
507 B
Plaintext
30 lines
507 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_FLock()
|
|
*/
|
|
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL aStruct1 := { ;
|
|
{ "PART_NO" , "C" , 10, 0 }, ;
|
|
{ "PART_NAME" , "C", 10, 0 }, ;
|
|
{ "PRICE" , "N", 10, 2 }, ;
|
|
{ "DATE_SOLD" , "D", 8, 0 }, ;
|
|
{ "COST" , "N", 10, 2 }, ;
|
|
{ "NOTES" , "M", 10, 0 } }
|
|
LOCAL nCount, i, cFieldName
|
|
|
|
SET RDD SDENSX
|
|
SET DATE ANSI
|
|
CREATE TABLE "TEST1" STRUCT aStruct1
|
|
USE "test1"
|
|
APPEND BLANK
|
|
|
|
? sx_Flock()
|