# picksql.4gl
# SQL Functions that work with picklist.wif

INCLUDE SYSTEM "ixconn.4gh"
INCLUDE SYSTEM "ixstmt.4gh"

VARIABLE mSQLStmt ixSQLStmt

#------------------------------------------------------------------------
FUNCTION prepPick(sqlStmt CHAR(*)) RETURNING INTEGER
# Input: sql statement
# Assumes: Select statement with two columns in the list
# Purpose: prepare a cursor with the passed SELECT statement
# Returns: Status
#------------------------------------------------------------------------

LET mSQLStmt = NEW ixSQLStmt()
CALL mSQLStmt.prepare(sqlStmt)
CALL mSQLStmt.execute()

RETURN 0

END FUNCTION # prepPick(sqlStmt CHAR(*))

#------------------------------------------------------------------------
FUNCTION fetchPick() RETURNING ixRow
# Input: N/A
# Assumes: prepPick() above was called prior
# Purpose: Fetch & return the next row
# Returns: the next row
#------------------------------------------------------------------------
VARIABLE myRow ixRow

LET myRow = mSQLStmt.fetch()

RETURN myRow

END FUNCTION # fetchPick()