w3sql1

subroutine w3sql1

include wbp w3Include

call w3AppletInit

tableName=""

hdr = ""

data = ""

status = ""

query=' with '

operator = ''

colummName = ''

valueSelect=''

call w3getVal( tableName, 'tableName')

call w3getVal( columnName, 'columnName')

call w3getVal( operator, 'operator' )

call w3getVal( valueSelect, 'valueSelect' )

if (columnName = "") then

    if (tableName = 'customers') then

        gosub getCustHeaders

        return

     end else

        if (tableName = 'orders') then

            gosub getOrdrHeaders

            return

        end else

             if ( tableName = 'products') then

                 gosub getProdHeaders

                 return

             end

        end

     end

end

if valueSelect # '' then

    query := columnName

    query := '  '

    query := operator

    query := '   "'

    query :=  valueSelect

    query := '"'

end else

    query = ''

end

if tableName = 'customers' then

   call w3sql.getCustomers(hdr, data, query, status)

end else

   if tableName = 'orders' then

       call w3sql.getOrders(hdr, data, query, status)

   end else

       if tableName = 'products' then

          call w3sql.getProducts(hdr, data, query, status)

       end

   end

end

cnt = dcount(data, @am)

for j = 1 to cnt

    call w3AppletInsert(hdr<j>, data<j>)

next j

call w3AppletInput(err, 0, "")

return

getCustHeaders:

header = ""

name = "cust.headers"

call w3sql.getCustHeaders(header)

call w3AppletInsert(name, header)

call w3AppletInput(err,0, "")

return

getOrdrHeaders:

header = ""

name = "ordr.headers"

call w3sql.getOrdrHeaders(header)

call w3AppletInsert(name, header)

call w3AppletInput(err, 0, "")

return

getProdHeaders:

header = ""

name = "prod.headers"

call w3sql.getProdHeaders(header)

call w3AppletInsert(name, header)

call w3AppletInput(err, 0, "")

return