ProTech-Online.com

IBM DB2 SQL code example to pull Quantus activities.

CREATE PROCEDURE CHAD_TEST_CUSTOMERS_ACTIVITIES ( )
SPECIFIC CHAD_CUSTOMERS_ACTIVITIES
DYNAMIC RESULT SETS 1
LANGUAGE SQL
BEGIN
    DECLARE cursor1 CURSOR WITH RETURN TO CLIENT FOR
    SELECT QUANTUS.CUSTOMER.CUSTOMERACCT,
    QUANTUS.OLINK.TYPE,
    QUANTUS.OLINK.OBJECTNOA,
    QUANTUS.ACTIVITY.TYPE,
    QUANTUS.ACTIVITY.STATUS,
    QUANTUS.ACTIVITY.DATETYPE,
    QUANTUS.ACTIVITY.DTFIRST,
    QUANTUS.ACTIVITY.DTLAST,
    QUANTUS.ACTIVITY.TMSTART,
    QUANTUS.ACTIVITY.TMEND,
    QUANTUS.ACTIVITY.DTCREATED,
    QUANTUS.ACTIVITY.DTLASTMODIFIED,
    QUANTUS.ACTIVITY.DTSTATUSCLOSED,
    QUANTUS.ACTIVITY.TMSTATUSCLOSED,
    QUANTUS.EMPLOYEE.NAME2,
    QUANTUS.EMPLOYEE.NAME1,
    QUANTUS.ACTIVITY.SUMMARY,
    QUANTUS.TEXTDATA.DATA
    FROM QUANTUS.ACTIVITY
       INNER JOIN QUANTUS.TEXTDATA
           ON QUANTUS.ACTIVITY.BRANCH = QUANTUS.TEXTDATA.BRANCH
           AND QUANTUS.ACTIVITY.DESCOBJECTNO = QUANTUS.TEXTDATA.OBJECTNO
       INNER JOIN QUANTUS.OLINK
           ON QUANTUS.OLINK.BRANCHA = QUANTUS.ACTIVITY.BRANCH
           AND QUANTUS.OLINK.OBJECTNOA = QUANTUS.ACTIVITY.OBJECTNO
       INNER JOIN QUANTUS.CUSTOMER
           ON QUANTUS.CUSTOMER.BRANCH = QUANTUS.OLINK.BRANCHB
           AND QUANTUS.CUSTOMER.OBJECTNO = QUANTUS.OLINK.OBJECTNOB
       INNER JOIN QUANTUS.EMPLOYEE
           ON QUANTUS.ACTIVITY.BRANCH = QUANTUS.EMPLOYEE.BRANCH
           AND QUANTUS.ACTIVITY.ENTEREDBYOBJECTNO = QUANTUS.EMPLOYEE.OBJECTNO
    WHERE QUANTUS.EMPLOYEE.OBJECTNO <> 10016;
       --AND QUANTUS.ACTIVITY.DTLASTMODIFIED < '2011-05-01';
    OPEN cursor1;

END