SQLSetArrayAsString
Full Description
swirl
Syntax
  define external function SQLSetArrayAsString
     (  read-only SQL_array_type Array,
        value counter ElementPos,
        value stream StreamValue )


Purpose

Sets an element in the data area of the SQL_array_type variable to the specified stream value. The input stream must contain only text data, with no embedded nulls. The stream length is identified by the end of the stream or the first detected null byte.

Input arguments:

  • Array. The SQL_array_type variable to modify.
  • ElementPos. The position of the element, with 0 as the first element.
  • StreamValue. The specified stream value.

The following code demonstrates how to use SQLSetArrayAsString to set the element string value.

  local SQL_Array_type Array

  local SQL_Array_type ArrayCopy
  local stream ArrayStringValue
  local counter ArrayStringLen
  local counter i

  SQLSetArraySize( Array, 20, 5 )

In the following code, SQLGetArrayAsString to check initial values.

  set i to 0
  repeat
          set ArrayStringValue to SQLGetArrayAsString( Array, i )
          set ArrayStringLen to (length of ArrayStringValue)
          output "Initial string value[%d(i)] = %g(ArrayStringValue) "
          output "(length = %d(ArrayStringLen))%n"
          increment i
          exit when i=5
  again

Next, SQLSetArrayAsString sets the stream values.

  set i to 0
  repeat
          set ArrayStringValue to "*" ||* (i+1) || "%0#- post null"
          SQLSetArrayAsString( Array, i, ArrayStringValue )
          increment i
          exit when i=5
  again

Finally, SQLGetArrayAsString is used to check the current values of the stream.

  set i to 0
  repeat
          set ArrayStringValue to SQLGetArrayAsString( Array, i )
          set ArrayStringLen to (length of ArrayStringValue)
          output "Current string value[%d(i)] = %g(ArrayStringValue) "
          output "(length = %d(ArrayStringLen))%n"
          increment i
          exit when i=5
  again

Copyright © OmniMark Technologies Corporation, 1988-1998.