ProTech's home page

ProTech-Online.com

IBM DB2 SQL code example to pull Quantus SRO.

CREATE PROCEDURE CHAD_TEST_CUSTOMERS_SERVICE_REQUESTS ( )
SPECIFIC CHAD_CUSTOMERS_SERVICE_REQUESTS
DYNAMIC RESULT SETS 1
LANGUAGE SQL
BEGIN
    DECLARE cursor1 CURSOR WITH RETURN TO CLIENT FOR
    SELECT QUANTUS.CUSTOMER.CUSTOMERACCT,
       QUANTUS.SERVICE_REQUEST.SERVICEREQUESTNUM,
        CHAD_TEST_TEXT_DATA(QUANTUS.SERVICE_REQUEST.BRANCH, QUANTUS.SERVICE_REQUEST.SUMMARYOBJECTNO) AS SUMMARY,
       QUANTUS.SERVICE_REQUEST.DTCREATED,
       QUANTUS.SERVICE_REQUEST.PRIORITY,
       QUANTUS.SERVICE_REQUEST.STATUS,
        CHAD_TEST_EMPLOYEE(QUANTUS.SERVICE_REQUEST.ENTEREDBYBRANCH, QUANTUS.SERVICE_REQUEST.ENTEREDBYOBJECTNO) AS ENTERED_BY,
        CHAD_TEST_EMPLOYEE(QUANTUS.SERVICE_REQUEST.NEXTACTORBRANCH, QUANTUS.SERVICE_REQUEST.NEXTACTOROBJECTNO) AS NEXT_ACTOR,
       QUANTUS.SERVICE_REQUEST.PROBLEMCODE,
       QUANTUS.SERVICE_REQUEST.DTCLOSED
    FROM QUANTUS.SERVICE_REQUEST
       INNER JOIN QUANTUS.CUSTOMER
           ON QUANTUS.SERVICE_REQUEST.ACCOUNTBRANCH = QUANTUS.CUSTOMER.BRANCH
           AND QUANTUS.SERVICE_REQUEST.ACCOUNTOBJECTNO = QUANTUS.CUSTOMER.OBJECTNO
    WHERE QUANTUS.SERVICE_REQUEST.ENTEREDBYOBJECTNO <> 10016
       --AND QUANTUS.SERVICE_REQUEST.STATUS = 'C'
       AND QUANTUS.SERVICE_REQUEST.PROBLEMCODE <> 'GOLD'
       AND QUANTUS.SERVICE_REQUEST.PROBLEMCODE <> 'TEST'
       --AND QUANTUS.SERVICE_REQUEST.PROBLEMCODE <> 'LOGI'
       AND QUANTUS.SERVICE_REQUEST.PROBLEMCODE <> 'SHIP';
       --AND QUANTUS.SERVICE_REQUEST.DTCLOSED < '2012-05-31';
    OPEN cursor1;

END



Copyright © 2013 ProTechs-Online.com; All rights reserved.