OpenEdge Data Management: DataServer for Microsoft SQL Server

RDBMS Stored Procedure Details
3–34
Using ROWID with RUN STORED-PROCEDURE and
LOAD-RESULT-INTO
In the previous section, Example 3–24 assumes you migrated your database to MS SQL Server
using the Create RECID Field option, as discussed in the “ROWID characteristics” section
on page 3–32. Example 3-24 and all subsequent examples in this section show ROWID as being
represented by the 8-byte integer value of the PROGRESS_RECID column as opposed to some
other unique single-component index designated in your database to be the PROGRESS_RECID.
Note: If you used a different single-component index to load the ROWID of a temp-table, you
would need to map the column accordingly, just as the example maps
PROGRESS_RECID.
The RUN STORED-PROC command has no native awareness that the MS SQL Server Database
table is being queried for the result set(s) it generates. Therefore, to allow DataServer
technology to convert the stored PROGRESS_RECID value into a native OpenEdge ROWID value,
the physical name of the target database table needs to be known. To achieve this bond, the
temp-table that the stored procedure will populate must be associated with an OpenEdge
ProDataSet object.
Example 3–25 shows an ABL query filling the temp tables of a ProDataSet. It will be used as
the baseline code which will be referenced throughout the remainder of this section.
DEFINE VARIABLE phDataSet AS HANDLE NO-UNDO.
DEFINE TEMP-TABLE ttCustomer LIKE Sports2000.Customer
FIELD tRecid AS INTEGER
FIELD tRECID_ident AS INTEGER.
DEFINE DATASET dsCustomer FOR ttCustomer.
DEFINE QUERY qCustomer FOR Customer.
phDataSet=DATASET dsCustomer:HANDLE.
DEFINE DATA-SOURCE srcCustomer FOR QUERY qCustomer.
BUFFER ttCustomer:HANDLE:ATTACH-DATA-SOURCE
(DATA-SOURCE srcCustomer:HANDLE,?,?,?).
QUERY qCustomer:QUERY-PREPARE (“FOR EACH Customer”).
DATASET dsCustomer:FILL().
FOR EACH ttCustomer:
DISPLAY ttCustomer.name ttCustomer.tRecid.
END.
Example 3–25: ABL Query filling a ProDataSet temp-table