53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_FieldCount ()
|
|
sx_FieldDecimals ()
|
|
sx_FieldName ()
|
|
sx_FieldNum ()
|
|
sx_FieldType ()
|
|
sx_FieldWidth ()
|
|
*/
|
|
|
|
#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
|
|
|
|
? 'nCount := sx_FieldCount() =>', nCount := sx_FieldCount()
|
|
|
|
FOR i := 1 TO nCount
|
|
? 'sx_FieldName(' + ltrim( str( i ) ) + ') =', cFieldName := sx_FieldName( i )
|
|
? 'sx_FieldType(' + cFieldName + ') =', sx_FieldType( cFieldName )
|
|
? 'sx_FieldNum(' + cFieldName + ') =', sx_FieldNum( cFieldName )
|
|
? 'sx_FieldWidth(' + cFieldName + ') =', sx_FieldWidth( cFieldName )
|
|
? 'sx_FieldDecimals(' + cFieldName + ') =', sx_FieldDecimals( cFieldName )
|
|
?
|
|
NEXT
|
|
|
|
FOR i := 1 TO nCount
|
|
? 'sx_FieldName(' + ltrim( str( i ) ) + ') =', cFieldName := sx_FieldName( i )
|
|
? 'sx_FieldType(' + ltrim( str( i ) ) + ') =', sx_FieldType( i )
|
|
? 'sx_FieldNum(' + ltrim( str( i ) ) + ') =', sx_FieldNum( i )
|
|
? 'sx_FieldWidth(' + ltrim( str( i ) ) + ') =', sx_FieldWidth( i )
|
|
? 'sx_FieldDecimals(' + ltrim( str( i ) ) + ') =', sx_FieldDecimals( i )
|
|
?
|
|
NEXT
|