mvD.Test1

**************************************************************************

* mvD.Test1: Exercise various uses of w3mvDInsert

**************************************************************************

include wbp w3Include

call w3mvDInit("FORMNAME", "")

w3ProfileId = "---w3ProfileId---"

name = ""

info = ""

*  add one at a time

for i = 1 to 3

    name = "NameA" : i 'r%2'

    info = ""

    for j = 1 to 2

        info<1, -1>  = "Value" : i 'r%2' : j 'r%2'

    next j                              

    * test the three property values

    call w3mvDInsert(name, info, i)   

next i

* add multiple columns at once

name = ""

info = ""

prop = ""

for i = 1 to 3

    name<i> = "NameB" : i 'r%2'

    for j = 1 to 2

        prop<i, j>  = i

        info<i, j>  = "Value" : i 'r%2' : j 'r%2'

    next j

next i

call w3mvDInsert(name, info, prop)

* skip a column name

name = ""

info = ""

for i = 1 to 3

    if i # 2 then name<i> = "NameC" : i 'r%2'

    for j = 1 to 2

        info<i, j>  = "Value" : i 'r%2' : j 'r%2'

    next j

next i

call w3mvDInsert(name, info, "")

* pass in a null value

call w3mvDInsert("bob", "", "")

w3Exec = "W3EXEC"

w3ServerPool = "SERVERPOOL"

call w3mvDInput(err, 0, "")

return