OpenEdge Data Management: DataServer for Microsoft SQL Server

Chapter 3: RDBMS Stored Procedure Details
Retrieving result sets using proc-text-buffer
The proc–text–buffer technique offers one approach to access results returned
from a data source. The following is the partial syntax for the DEFINE BUFFER statement
that you use to create a buffer with the same characteristics of the proc–text–buffer:
Syntax
DEFINE BUFFER buffer-name FOR proc-text-buffer
For a complete description, see the reference entry that discusses the DEFINE
BUFFER statement in OpenEdge Development: ABL Reference.
Technique to use proc-text-buffer
Example 6 shows the results of the first ABL stored procedure, pcust, which is
Example 3 as presented earlier in this section.
/* pcust stored procedure */
DEFINE BUFFER cust-state-join-buffer FOR proc-text-buffer.
RUN STORED-PROC pcust (20, output 0, output 0).
FOR EACH cust-state-join-buffer:
DISPLAY cust-state-join-buffer.
END.
CLOSE STORED-PROC pcust.
DISPLAY pcust.orders pcust.states.
Example 6: pcust stored procedure
The OpenEdge-defined buffer, proc–text–buffer, has one character field named
proc–text. The buffer accepts the returned database results, converts them to
CHARACTER data type, and concatenates them into one string.
Example 7 illustrates returning database results into the proc–text-buffer and
converting the results to the INTEGER data type.
DEFINE VARIABLE handle1 AS INTEGER NO-UNDO.
DEFINE VARIABLE iMax as INTEGER NO-UNDO.
RUN STORED-PROC send-sql-statement handle1 = PROC-HANDLE
("SELECT max (cust_num) FROM customer").
FOR EACH proc-text-buffer:
iMax = INTEGER(SUBSTRING(proc-text, 1, 3)).
DISPLAY iMax.
END.
CLOSE STORED-PROC send-sql-statement WHERE PROC-HANDLE = handle1.
Example 7: Returning database results into the proc-text-buffer and results
conversion
The DataServer passes the SQL statement directly to the MS SQL data source. The
ABL does not process it, so errors occur only at run time and not when you compile a
procedure.
136 OpenEdge Data Management: DataServer for Microsoft SQL Server