33 lines
657 B
Plaintext
33 lines
657 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_ReplaceArray()/sx_GetValueArray()
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL aValue, i, j
|
|
LOCAL aStruct1 := { { "NO","C",5,0 }, { "BINARY","M",10,0 } }
|
|
|
|
SET DATE ANSI
|
|
CREATE TABLE "TEST1" STRUCT aStruct1 RDD SDEFOX
|
|
USE "test1" ALIAS ONE RDD SDEFOX
|
|
APPEND BLANK
|
|
REPLACE NO WITH "001"
|
|
? sx_ReplaceArray( "BINARY", aStruct1 )
|
|
sx_Commit()
|
|
|
|
aValue := sx_GetValueArray ( "BINARY" )
|
|
|
|
FOR i := 1 TO Len( aValue )
|
|
? "Element: ", ltrim( str( i ) )
|
|
FOR j := 1 TO Len( aValue [i] )
|
|
? aValue[i][j], "[" + ValType( aValue[i][j] ) + "]"
|
|
NEXT
|
|
?
|
|
NEXT
|