IBM DB2 SQL code example to pull Quantus customers.

CREATE PROCEDURE CHAD_TEST_CUSTOMERS ( )
SPECIFIC CHAD_CUSTOMERS
DYNAMIC RESULT SETS 1
LANGUAGE SQL
BEGIN
    DECLARE cursor1 CURSOR WITH RETURN TO CLIENT FOR
       SELECT NAME1, MAILADDRESS1, MAILCITY, MAILPROV, MAILPOSTAL, MAILCOUNTRY, NAME2, CUSTOMERTYPE, DTCREATED, STATUS, SHIPONLYACCOUNT, CUSTOMERACCT FROM QUANTUS.CUSTOMER
       WHERE CUSTOMERTYPE = 'R' --AND DTCREATED < '2011-05-01'
       ORDER BY QUANTUS.CUSTOMER.NAME1;
    OPEN cursor1;

END