home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / t / trac_099.zip / TRACKER.BND (.txt) < prev    next >
DB2 Bind  |  1993-01-14  |  38KB  |  186 lines
  1. TRACKER WBFiMOBJAWRADMN 3
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. DECLARE CLIENT_CURS CURSOR FOR           SELECT              CLIENT_NUMBER,              STREET_ADDRESS,              STREET_ADDRESS2,              CITY,              ZIP_CODE,              STATE,              CLIENT_NAME,              PRIMARY_CONTACT,              ALTERNATE_CONTACT,              PRODUCT_ID,              PRODUCT_VERSION,              BRANCH_MANAGER,              ACCOUNT_REP,              COUNTRY,              PHONE,              FAX      FROM CLIENT_INFORMATION      WHERE   PRODUCT_ID          LIKE :szClientProduct    AND              BRANCH_MANAGER      LIKE :szBranch           AND              ZIP_CODE            LIKE :szZip              AND              COUNTRY             LIKE :szCountry          AND              STATE               LIKE :szState            AND              CITY                LIKE :szCity             AND              ACCOUNT_REP         LIKE :szRep              AND              ALTERNATE_CONTACT   LIKE :szAltContact       AND              PRIMARY_CONTACT     LIKE :szPrimContact      AND              CLIENT_NAME         LIKE :szClientName       AND              CLIENT_NUMBER       LIKE :szClientNbr        AND              PRODUCT_VERSION     LIKE :szVersion      ORDER BY CLIENT_NUMBER
  6. DECLARE TRACKER_CURS CURSOR FOR      SELECT           SI_TYPE,           SI_NUMBER,           PRIORITY,           LOB,           STATUS,           PROGRAMMER,           COMMENTS,           ITEM      FROM TRACKER_INFO      WHERE (SI_TYPE     LIKE :szType         AND             SI_NUMBER   LIKE :szNumber       AND             PRIORITY    LIKE :szPriority     AND             LOB         LIKE :szLOB          AND             STATUS      LIKE :szStatus       AND             PROGRAMMER  LIKE :szResource     AND             COMMENTS    LIKE :szComments     AND             PRODUCT_CODE =   :szProduct)             ORDER BY SI_TYPE, SI_NUMBER
  7. DECLARE TRACKER_CURS2 CURSOR FOR      SELECT           SI_TYPE,           SI_NUMBER,           PRIORITY,           LOB,           STATUS,           PROGRAMMER,           COMMENTS,           ITEM      FROM TRACKER_INFO      WHERE (SI_TYPE     LIKE :szType         AND             SI_NUMBER   LIKE :szNumber       AND             PRIORITY    LIKE :szPriority     AND             LOB         LIKE :szLOB          AND             STATUS      LIKE :szStatus       AND             PROGRAMMER  LIKE :szResource     AND             COMMENTS    LIKE :szComments     AND             ECD         >=   :szECD_Begin    AND             ECD         <=   :szECD_End      AND             PRODUCT_CODE =   :szProduct)             ORDER BY SI_TYPE, SI_NUMBER
  8. DECLARE TRACKER_CURS3 CURSOR FOR      SELECT           SI_TYPE,           SI_NUMBER,           PRIORITY,           LOB,           STATUS,           PROGRAMMER,           COMMENTS,           ITEM      FROM TRACKER_INFO      WHERE (SI_TYPE     LIKE :szType         AND             SI_NUMBER   LIKE :szNumber       AND             PRIORITY    LIKE :szPriority     AND             LOB         LIKE :szLOB          AND             STATUS      LIKE :szStatus       AND             PROGRAMMER  LIKE :szResource     AND             COMMENTS    LIKE :szComments     AND             CLOSE_DATE  >=   :szClose_Begin  AND             CLOSE_DATE  <=   :szClose_End    AND             PRODUCT_CODE =   :szProduct)             ORDER BY SI_TYPE, SI_NUMBER
  9. DECLARE TRACKER_CURS4 CURSOR FOR      SELECT           SI_TYPE,           SI_NUMBER,           PRIORITY,           LOB,           STATUS,           PROGRAMMER,           COMMENTS,           ITEM      FROM TRACKER_INFO      WHERE (SI_TYPE     LIKE :szType         AND             SI_NUMBER   LIKE :szNumber       AND             PRIORITY    LIKE :szPriority     AND             LOB         LIKE :szLOB          AND             STATUS      LIKE :szStatus       AND             PROGRAMMER  LIKE :szResource     AND             COMMENTS    LIKE :szComments     AND             ASN_DATE    >=   :szASN_Begin    AND             ASN_DATE    <=   :szASN_End      AND             PRODUCT_CODE =   :szProduct)             ORDER BY SI_TYPE, SI_NUMBER
  10. DECLARE TRACKER_CURS5 CURSOR FOR      SELECT           SI_TYPE,           SI_NUMBER,           PRIORITY,           LOB,           STATUS,           PROGRAMMER,           COMMENTS,           ITEM      FROM TRACKER_INFO      WHERE (SI_TYPE     LIKE :szType         AND             SI_NUMBER   LIKE :szNumber       AND             PRIORITY    LIKE :szPriority     AND             LOB         LIKE :szLOB          AND             STATUS      LIKE :szStatus       AND             PROGRAMMER  LIKE :szResource     AND             COMMENTS    LIKE :szComments     AND             ECD         >=   :szECD_Begin    AND             ECD         <=   :szECD_End      AND             CLOSE_DATE  >=   :szClose_Begin  AND             CLOSE_DATE  <=   :szClose_End    AND             PRODUCT_CODE =   :szProduct)             ORDER BY SI_TYPE, SI_NUMBER
  11. DECLARE TRACKER_CURS6 CURSOR FOR      SELECT           SI_TYPE,           SI_NUMBER,           PRIORITY,           LOB,           STATUS,           PROGRAMMER,           COMMENTS,           ITEM      FROM TRACKER_INFO      WHERE (SI_TYPE     LIKE :szType         AND             SI_NUMBER   LIKE :szNumber       AND             PRIORITY    LIKE :szPriority     AND             LOB         LIKE :szLOB          AND             STATUS      LIKE :szStatus       AND             PROGRAMMER  LIKE :szResource     AND             COMMENTS    LIKE :szComments     AND             ECD         >=   :szECD_Begin    AND             ECD         <=   :szECD_End      AND             ASN_DATE    >=   :szASN_Begin    AND             ASN_DATE    <=   :szASN_End      AND             PRODUCT_CODE =   :szProduct)             ORDER BY SI_TYPE, SI_NUMBER
  12. DECLARE TRACKER_CURS7 CURSOR FOR      SELECT           SI_TYPE,           SI_NUMBER,           PRIORITY,           LOB,           STATUS,           PROGRAMMER,           COMMENTS,           ITEM      FROM TRACKER_INFO      WHERE (SI_TYPE     LIKE :szType         AND             SI_NUMBER   LIKE :szNumber       AND             PRIORITY    LIKE :szPriority     AND             LOB         LIKE :szLOB          AND             STATUS      LIKE :szStatus       AND             PROGRAMMER  LIKE :szResource     AND             COMMENTS    LIKE :szComments     AND             CLOSE_DATE  >=   :szClose_Begin  AND             CLOSE_DATE  <=   :szClose_End    AND             ASN_DATE    >=   :szASN_Begin    AND             ASN_DATE    <=   :szASN_End      AND             PRODUCT_CODE =   :szProduct)             ORDER BY SI_TYPE, SI_NUMBER
  13. DECLARE ASSIGN_SUM_CURS CURSOR FOR                           SELECT                                SI_TYPE,                                SI_NUMBER,                                PRIORITY,                                LOB,                                STATUS,                                PROGRAMMER,                                COMMENTS,                                ITEM,                                ASN_DATE,                                ECD                           FROM TRACKER_INFO                           WHERE (CLOSE_DATE   =   '01-01-0001'    AND                                  SI_TYPE     LIKE :szType         AND                                  SI_NUMBER   LIKE :szNumber       AND                                  PRIORITY    LIKE :szPriority     AND                                  LOB         LIKE :szLOB          AND                                  STATUS      LIKE :szStatus       AND                                  PROGRAMMER  LIKE :szResource     AND                                  PRODUCT_CODE =   :szProduct)                                  ORDER BY PROGRAMMER, LOB, SI_TYPE, SI_NUMBER, PRIORITY
  14. OPEN ASSIGN_SUM_CURS
  15. FETCH ASSIGN_SUM_CURS                             INTO  :szType,                                   :szNumber,                                   :szPriority,                                   :szLOB,                                   :szStatus,                                   :szResource,                                   :szComments,                                   :sItem,                                   :szASN_Date,                                   :szECD_Date
  16. CLOSE ASSIGN_SUM_CURS
  17. DECLARE ASS_LOB_SUM_CURS CURSOR FOR                           SELECT                                SI_TYPE,                                SI_NUMBER,                                PRIORITY,                                LOB,                                STATUS,                                PROGRAMMER,                                COMMENTS,                                ITEM,                                ASN_DATE,                                ECD                           FROM TRACKER_INFO                           WHERE (CLOSE_DATE   =    '01-01-0001'    AND                                  SI_TYPE      LIKE :szType         AND                                  SI_NUMBER    LIKE :szNumber       AND                                  PRIORITY     LIKE :szPriority     AND                                  LOB          LIKE :szLOB          AND                                  STATUS       LIKE :szStatus       AND                                  PROGRAMMER   LIKE :szResource     AND                                  PRODUCT_CODE =    :szProduct      AND                                  LOB          LIKE :szLOB)                                  ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
  18. OPEN ASS_LOB_SUM_CURS
  19. FETCH ASS_LOB_SUM_CURS                             INTO  :szType,                                   :szNumber,                                   :szPriority,                                   :szLOB,                                   :szStatus,                                   :szResource,                                   :szComments,                                   :sItem,                                   :szASN_Date,                                   :szECD_Date
  20. CLOSE ASS_LOB_SUM_CURS
  21. DECLARE CLOSURE_SUM_CURS CURSOR FOR                           SELECT                                SI_TYPE,                                SI_NUMBER,                                PRIORITY,                                LOB,                                STATUS,                                PROGRAMMER,                                COMMENTS,                                ITEM,                                CLOSE_DATE                           FROM TRACKER_INFO                           WHERE (CLOSE_DATE  >=   :szBegin_Date    AND                                  CLOSE_DATE  <=   :szEnd_Date      AND                                  SI_TYPE      LIKE :szType         AND                                  SI_NUMBER    LIKE :szNumber       AND                                  PRIORITY     LIKE :szPriority     AND                                  LOB          LIKE :szLOB          AND                                  STATUS       LIKE :szStatus       AND                                  PROGRAMMER   LIKE :szResource     AND                                  PRODUCT_CODE =    :szProduct)                                  ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
  22. OPEN CLOSURE_SUM_CURS
  23. FETCH CLOSURE_SUM_CURS                                 INTO  :szType,                                       :szNumber,                                       :szPriority,                                       :szLOB,                                       :szStatus,                                       :szResource,                                       :szComments,                                       :sItem,                                       :szClose_Date
  24. CLOSE CLOSURE_SUM_CURS
  25. DECLARE OPEN_SUM_CURS CURSOR FOR                           SELECT                                SI_TYPE,                                SI_NUMBER,                                PRIORITY,                                LOB,                                STATUS,                                PROGRAMMER,                                COMMENTS,                                ITEM,                                CLOSE_DATE                           FROM TRACKER_INFO                           WHERE (CLOSE_DATE   =   '01-01-0001'     AND                                  SI_TYPE      LIKE :szType         AND                                  SI_NUMBER    LIKE :szNumber       AND                                  PRIORITY     LIKE :szPriority     AND                                  LOB          LIKE :szLOB          AND                                  STATUS       LIKE :szStatus       AND                                  PRODUCT_CODE =    :szProduct)                                  ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
  26. OPEN OPEN_SUM_CURS
  27. FETCH OPEN_SUM_CURS                             INTO  :szType,                                   :szNumber,                                   :szPriority,                                   :szLOB,                                   :szStatus,                                   :szResource,                                   :szComments,                                   :sItem,                                   :szClose_Date
  28. CLOSE OPEN_SUM_CURS
  29. SELECT MAX(MEMO_ITEM)           INTO   :sMemo_Item           FROM   TRACKER_MEMO           WHERE ITEM         = :sItem     AND                 SI_TYPE      = :szType    AND                 SI_NUMBER    = :szNumber  AND                 PRODUCT_CODE = :szProduct
  30. INSERT INTO TRACKER_MEMO                  (SI_TYPE,                   SI_NUMBER,                   ITEM,                   NAME_TO,                   NAME_FROM,                   SUBJECT,                   MEMO_TEXT,                   MEMO_DATE,                   MEMO_ITEM,                   PRODUCT_CODE)           VALUES                (:szType,                 :szNumber,                 :sItem,                 :szMemo_To,                 :szMemo_From,                 :szMemo_Subject,                 :szMemo_Text,                 :szMemo_Date,                 :sMemo_Item,                 :szProduct)
  31. COMMIT
  32. SELECT MAX(ITEM)           INTO   :sItem           FROM   TRACKER_INFO           WHERE  PRODUCT_CODE = :szProduct
  33. INSERT INTO TRACKER_INFO                  (SI_TYPE,                   SI_NUMBER,                   PRIORITY,                   LOB,                   STATUS,                   COMMENTS,                   ECD,                   ASN_DATE,                   CLOSE_DATE,                   PROGRAMMER,                   ITEM,                   PRODUCT_CODE)           VALUES                (:szType,                 :szNumber,                 :szPriority,                 :szLOB,                 :szStatus,                 :szComments,                 :szECD_Date,                 :szASN_Date,                 :szClose_Date,                 :szResource,                 :sItem,                 :szProduct)
  34. COMMIT
  35. SELECT CLIENT_NUMBER           INTO   :szClientNbrTemp           FROM CLIENT_INFORMATION           WHERE  CLIENT_NUMBER = :szClientNbr
  36. INSERT INTO CLIENT_INFORMATION                  (CLIENT_NUMBER,                   STREET_ADDRESS,                   STREET_ADDRESS2,                   CITY,                   ZIP_CODE,                   STATE,                   CLIENT_NAME,                   PRIMARY_CONTACT,                   ALTERNATE_CONTACT,                   PRODUCT_ID,                   PRODUCT_VERSION,                   BRANCH_MANAGER,                   ACCOUNT_REP,                   COUNTRY,                   PHONE,                   FAX)             VALUES                (:szClientNbr    ,                 :szAddress1     ,                 :szAddress2     ,                 :szCity         ,                 :szZip          ,                 :szState        ,                 :szClientName   ,                 :szPrimContact  ,                 :szAltContact   ,                 :szClientProduct,                 :szVersion      ,                 :szBranch       ,                 :szRep          ,                 :szCountry      ,                 :szPhone        ,                 :szFax)
  37. COMMIT
  38. UPDATE CLIENT_INFORMATION              SET  STREET_ADDRESS     =   :szAddress1       ,                   STREET_ADDRESS2    =   :szAddress2       ,                   CITY               =   :szCity           ,                   ZIP_CODE           =   :szZip            ,                   STATE              =   :szState          ,                   CLIENT_NAME        =   :szClientName     ,                   PRIMARY_CONTACT    =   :szPrimContact    ,                   ALTERNATE_CONTACT  =   :szAltContact     ,                   PRODUCT_ID         =   :szClientProduct  ,                   PRODUCT_VERSION    =   :szVersion        ,                   BRANCH_MANAGER     =   :szBranch         ,                   ACCOUNT_REP        =   :szRep            ,                   COUNTRY            =   :szCountry        ,                   PHONE              =   :szPhone          ,                   FAX                =   :szFax             WHERE CLIENT_NUMBER = :szClientNbr
  39. COMMIT
  40. UPDATE TRACKER_INFO                  SET SI_TYPE      =  :szType,                                   SI_NUMBER    =  :szNumber,                                 PRIORITY     =  :szPriority,                               LOB          =  :szLOB,                                    STATUS       =  :szStatus,                                 COMMENTS     =  :szComments,                               ECD          =  :szECD_Date,                               ASN_DATE     =  :szASN_Date,                               CLOSE_DATE   =  :szClose_Date,                             PROGRAMMER   =  :szResource                  WHERE ITEM         = :sItem      AND                        PRODUCT_CODE = :szProduct
  41. COMMIT
  42. DELETE FROM CLIENT_INFORMATION           WHERE CLIENT_NUMBER   = :szClientItem
  43. COMMIT
  44. DELETE FROM TRACKER_INFO           WHERE ITEM         = :sItem   AND                 PRODUCT_CODE = :szProduct
  45. COMMIT
  46. SELECT              CLIENT_NUMBER,              STREET_ADDRESS,              STREET_ADDRESS2,              CITY,              ZIP_CODE,              STATE,              CLIENT_NAME,              PRIMARY_CONTACT,              ALTERNATE_CONTACT,              PRODUCT_ID,              PRODUCT_VERSION,              BRANCH_MANAGER,              ACCOUNT_REP,              COUNTRY,              PHONE,              FAX           INTO              :szClientNbr    ,              :szAddress1     ,              :szAddress2     ,              :szCity         ,              :szZip          ,              :szState        ,              :szClientName   ,              :szPrimContact  ,              :szAltContact   ,              :szClientProduct,              :szVersion      ,              :szBranch       ,              :szRep          ,              :szCountry      ,              :szPhone        ,              :szFax           FROM CLIENT_INFORMATION           WHERE CLIENT_NUMBER = :szClientNbr
  47. OPEN CLIENT_CURS
  48. FETCH CLIENT_CURS              INTO  :szClientNbr    ,                    :szAddress1     ,                    :szAddress2     ,                    :szCity         ,                    :szZip          ,                    :szState        ,                    :szClientName   ,                    :szPrimContact  ,                    :szAltContact   ,                    :szClientProduct,                    :szVersion      ,                    :szBranch       ,                    :szRep          ,                    :szCountry      ,                    :szPhone        ,                    :szFax
  49. CLOSE CLIENT_CURS
  50. SELECT                SI_TYPE,                SI_NUMBER,                PRIORITY,                LOB,                STATUS,                PROGRAMMER,                COMMENTS,                ECD,                ASN_DATE,                CLOSE_DATE           INTO :szType,                       :szNumber,                     :szPriority,                   :szLOB,                        :szStatus,                     :szResource,                :szComments,                :szECD_Date:siECD_Date,                        :szASN_Date:siASN_Date,                        :szClose_Date:siClose_Date                 FROM TRACKER_INFO           WHERE ITEM         = :sItem  AND                 PRODUCT_CODE = :szProduct
  51. SELECT MAX(MEMO_ITEM)          INTO   :sMemoCounter          FROM TRACKER_MEMO          WHERE ITEM         = :sItem    AND                SI_TYPE      = :szType   AND                SI_NUMBER    = :szNumber AND                PRODUCT_CODE = :szProduct
  52. OPEN TRACKER_CURS
  53. FETCH TRACKER_CURS                      INTO  :szType,                                   :szNumber,                                 :szPriority,                               :szLOB,                                    :szStatus,                                 :szResource,                            :szComments,                            :sItem
  54. CLOSE TRACKER_CURS
  55. OPEN TRACKER_CURS2
  56. FETCH TRACKER_CURS2                      INTO  :szType,                                   :szNumber,                                 :szPriority,                               :szLOB,                                    :szStatus,                                 :szResource,                            :szComments,                            :sItem
  57. CLOSE TRACKER_CURS2
  58. OPEN TRACKER_CURS3
  59. FETCH TRACKER_CURS3                      INTO  :szType,                                   :szNumber,                                 :szPriority,                               :szLOB,                                    :szStatus,                                 :szResource,                            :szComments,                            :sItem
  60. CLOSE TRACKER_CURS3
  61. OPEN TRACKER_CURS4
  62. FETCH TRACKER_CURS4                      INTO  :szType,                                   :szNumber,                                 :szPriority,                               :szLOB,                                    :szStatus,                                 :szResource,                            :szComments,                            :sItem
  63. CLOSE TRACKER_CURS4
  64. OPEN TRACKER_CURS5
  65. FETCH TRACKER_CURS5                      INTO  :szType,                                   :szNumber,                                 :szPriority,                               :szLOB,                                    :szStatus,                                 :szResource,                            :szComments,                            :sItem
  66. CLOSE TRACKER_CURS5
  67. OPEN TRACKER_CURS6
  68. FETCH TRACKER_CURS6                      INTO  :szType,                                   :szNumber,                                 :szPriority,                               :szLOB,                                    :szStatus,                                 :szResource,                            :szComments,                            :sItem
  69. CLOSE TRACKER_CURS6
  70. OPEN TRACKER_CURS7
  71. FETCH TRACKER_CURS7                      INTO  :szType,                                   :szNumber,                                 :szPriority,                               :szLOB,                                    :szStatus,                                 :szResource,                            :szComments,                            :sItem
  72. CLOSE TRACKER_CURS7
  73. DECLARE PRODUCT CURSOR FOR                  SELECT PRODUCT                  FROM PRODUCT_CODE                     ORDER BY PRODUCT
  74. DECLARE TYPE CURSOR FOR                  SELECT TYPE_TXT                  FROM TYPE                     ORDER BY TYPE_TXT
  75. DECLARE LOB CURSOR FOR                  SELECT LOB_TXT                  FROM LOB                     ORDER BY LOB_TXT
  76. DECLARE STATUS CURSOR FOR                  SELECT STATUS_TXT                  FROM STATUS                     ORDER BY STATUS_TXT
  77. OPEN TYPE
  78. OPEN LOB
  79. OPEN STATUS
  80. OPEN PRODUCT
  81. FETCH PRODUCT INTO :szData
  82. FETCH TYPE INTO :szData
  83. FETCH LOB INTO :szData
  84. FETCH STATUS INTO :szData
  85. CLOSE TYPE
  86. CLOSE LOB
  87. CLOSE STATUS
  88. CLOSE PRODUCT
  89. DECLARE ASSIGN_CURS CURSOR FOR              SELECT                   SI_TYPE,                   SI_NUMBER,                   PRIORITY,                   LOB,                   STATUS,                   PROGRAMMER,                   COMMENTS,                   ITEM,                   ASN_DATE,                   ECD              FROM TRACKER_INFO              WHERE (CLOSE_DATE   =   '01-01-0001'    AND                     SI_TYPE     LIKE :szType         AND                     SI_NUMBER   LIKE :szNumber       AND                     PRIORITY    LIKE :szPriority     AND                     LOB         LIKE :szLOB          AND                     STATUS      LIKE :szStatus       AND                     PROGRAMMER  LIKE :szResource     AND                     PRODUCT_CODE =   :szProduct)                     ORDER BY PROGRAMMER, SI_TYPE, SI_NUMBER, LOB, PRIORITY
  90. OPEN ASSIGN_CURS
  91. FETCH ASSIGN_CURS                INTO  :szType,                             :szNumber,                           :szPriority,                         :szLOB,                              :szStatus,                           :szResource,                      :szComments,                      :sItem,                      :szASN_Date,                      :szECD_Date
  92. CLOSE ASSIGN_CURS
  93. DECLARE ASSIGN_LOB_CURS CURSOR FOR              SELECT                   SI_TYPE,                   SI_NUMBER,                   PRIORITY,                   LOB,                   STATUS,                   PROGRAMMER,                   COMMENTS,                   ITEM,                   ASN_DATE,                   ECD              FROM TRACKER_INFO              WHERE (CLOSE_DATE   =    '01-01-0001'    AND                     SI_TYPE      LIKE :szType         AND                     SI_NUMBER    LIKE :szNumber       AND                     PRIORITY     LIKE :szPriority     AND                     LOB          LIKE :szLOB          AND                     STATUS       LIKE :szStatus       AND                     PROGRAMMER   LIKE :szResource     AND                     PRODUCT_CODE =    :szProduct      AND                     LOB          LIKE :szLOB)                     ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
  94. OPEN ASSIGN_LOB_CURS
  95. FETCH ASSIGN_LOB_CURS                INTO  :szType,                             :szNumber,                           :szPriority,                         :szLOB,                              :szStatus,                           :szResource,                      :szComments,                      :sItem,                      :szASN_Date,                      :szECD_Date
  96. SELECT LOB_NAME                               INTO   :szLOB_Name                               FROM   LOB                               WHERE LOB_TXT      = :szLOB_Tmp AND                                     PRODUCT_CODE = :szProduct
  97. SELECT LOB_NAME                              INTO   :szLOB_Name                              FROM   LOB                              WHERE LOB_TXT      = :szLOB_Tmp AND                                    PRODUCT_CODE = :szProduct
  98. CLOSE ASSIGN_LOB_CURS
  99. DECLARE CLOSURE_CURS CURSOR FOR              SELECT                   SI_TYPE,                   SI_NUMBER,                   PRIORITY,                   LOB,                   STATUS,                   PROGRAMMER,                   COMMENTS,                   ITEM,                   CLOSE_DATE              FROM TRACKER_INFO              WHERE (CLOSE_DATE  >=   :szBegin_Date    AND                     CLOSE_DATE  <=   :szEnd_Date      AND                     SI_TYPE      LIKE :szType         AND                     SI_NUMBER    LIKE :szNumber       AND                     PRIORITY     LIKE :szPriority     AND                     LOB          LIKE :szLOB          AND                     STATUS       LIKE :szStatus       AND                     PROGRAMMER   LIKE :szResource     AND                     PRODUCT_CODE =    :szProduct)                     ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
  100. OPEN CLOSURE_CURS
  101. FETCH CLOSURE_CURS                INTO  :szType,                             :szNumber,                           :szPriority,                         :szLOB,                              :szStatus,                           :szResource,                      :szComments,                      :sItem,                      :szClose_Date
  102. SELECT LOB_NAME                               INTO   :szLOB_Name                               FROM   LOB                               WHERE LOB_TXT      = :szLOB_Tmp AND                                     PRODUCT_CODE = :szProduct
  103. SELECT LOB_NAME                              INTO   :szLOB_Name                              FROM   LOB                              WHERE LOB_TXT      = :szLOB_Tmp AND                                    PRODUCT_CODE = :szProduct
  104. CLOSE CLOSURE_CURS
  105. DECLARE OPEN_CURS CURSOR FOR              SELECT                   SI_TYPE,                   SI_NUMBER,                   PRIORITY,                   LOB,                   STATUS,                   PROGRAMMER,                   COMMENTS,                   ITEM,                   CLOSE_DATE              FROM TRACKER_INFO              WHERE (CLOSE_DATE   =   '01-01-0001'     AND                     SI_TYPE      LIKE :szType         AND                     SI_NUMBER    LIKE :szNumber       AND                     PRIORITY     LIKE :szPriority     AND                     LOB          LIKE :szLOB          AND                     STATUS       LIKE :szStatus       AND                     PRODUCT_CODE =    :szProduct)                     ORDER BY LOB, SI_TYPE, PRIORITY, SI_NUMBER
  106. OPEN OPEN_CURS
  107. FETCH OPEN_CURS                INTO  :szType,                             :szNumber,                           :szPriority,                         :szLOB,                              :szStatus,                           :szResource,                      :szComments,                      :sItem,                      :szClose_Date
  108. SELECT LOB_NAME                               INTO   :szLOB_Name                               FROM   LOB                               WHERE LOB_TXT      = :szLOB_Tmp AND                                     PRODUCT_CODE = :szProduct
  109. SELECT LOB_NAME                              INTO   :szLOB_Name                              FROM   LOB                              WHERE LOB_TXT      = :szLOB_Tmp AND                                    PRODUCT_CODE = :szProduct
  110. CLOSE OPEN_CURS
  111. DECLARE MEMO_CURS CURSOR FOR          SELECT               MEMO_ITEM,               NAME_TO,               MEMO_DATE,               SUBJECT          FROM TRACKER_MEMO          WHERE ITEM         = :sItem    AND                SI_TYPE      = :szType   AND                SI_NUMBER    = :szNumber AND                PRODUCT_CODE = :szProduct          ORDER BY MEMO_ITEM
  112. OPEN MEMO_CURS
  113. FETCH MEMO_CURS               INTO  :sMemo_Item,                     :szMemo_To,                     :szMemo_Date,                     :szMemo_Subject
  114. CLOSE MEMO_CURS
  115. SELECT                 SI_TYPE,                 SI_NUMBER,                 ITEM,                 NAME_TO,                 NAME_FROM,                 SUBJECT,                 MEMO_TEXT,                 MEMO_DATE,                 MEMO_ITEM,                 PRODUCT_CODE          INTO   :szType,                 :szNumber,                 :sItem,                 :szMemo_To,                 :szMemo_From,                 :szMemo_Subject,                 :szMemo_Text,                 :szMemo_Date,                 :sMemo_Item,                 :szProduct           FROM TRACKER_MEMO           WHERE ITEM         = :sItem     AND                 SI_TYPE      = :szType    AND                 SI_NUMBER    = :szNumber  AND                 PRODUCT_CODE = :szProduct AND                 MEMO_ITEM    = :sMemo_Item
  116. UPDATE TRACKER_MEMO             SET  SI_TYPE        =  :szType,                  SI_NUMBER      =  :szNumber,                  NAME_TO        =  :szMemo_To,                  NAME_FROM      =  :szMemo_From,                  SUBJECT        =  :szMemo_Subject,                  MEMO_TEXT      =  :szMemo_Text,                  MEMO_DATE      =  :szMemo_Date,                  PRODUCT_CODE   =  :szProduct          WHERE ITEM         = :sItem            AND                SI_TYPE      = :szType           AND                SI_NUMBER    = :szNumber         AND                MEMO_ITEM    = :sMemo_Item       AND                PRODUCT_CODE = :szProduct
  117. COMMIT
  118. DELETE FROM TRACKER_MEMO                WHERE ITEM         = :sItem            AND                      SI_TYPE      = :szType           AND                      SI_NUMBER    = :szNumber         AND                      MEMO_ITEM    = :sMemo_Item       AND                      PRODUCT_CODE = :szProduct
  119. COMMIT
  120. SELECT                 MEMO_DATE          INTO   :szMemo_Date           FROM TRACKER_MEMO           WHERE ITEM         = :sItem     AND                 SI_TYPE      = :szType    AND                 SI_NUMBER    = :szNumber  AND                 PRODUCT_CODE = :szProduct AND                 MEMO_ITEM    = :sMemo_Item
  121. szProduct
  122. Product
  123. szType
  124. szNumber
  125. szPriority
  126. szLOB
  127. szStatus
  128. szComments
  129. szECD_Date
  130. szASN_Date
  131. szClose_Date
  132. szLast_Update_Date
  133. szBegin_Date
  134. szEnd_Date
  135. szECD_Begin
  136. szASN_Begin
  137. szClose_Begin
  138. szECD_End
  139. szASN_End
  140. szClose_End
  141. szResource
  142. sItem
  143. szMemo_To
  144. szMemo_From
  145. szMemo_Subject
  146. szMemo_Text
  147. szMemo_Date
  148. sMemo_Item
  149. sMemoCounter
  150. siECD_Date
  151. siASN_Date
  152. siClose_Date
  153. siLast_Update_Date
  154. szData
  155. szType_Hld
  156. szNumber_Hld
  157. szPriority_Hld
  158. szLOB_Hld
  159. szLOB_Tmp
  160. szLOB_Name
  161. szStatus_Hld
  162. szComments_Hld
  163. szECD_Date_Hld
  164. szASN_Date_Hld
  165. szClose_Date_Hld
  166. szResource_Hld
  167. szClientProduct
  168. szBranch
  169. szZip
  170. szCountry
  171. szState
  172. szCity
  173. szAddress1
  174. szAddress2
  175. szFax
  176. szPhone
  177. szRep
  178. szAltContact
  179. szPrimContact
  180. szClientName
  181. szClientNameTmp
  182. szClientNbr
  183. szClientItem
  184. szVersion
  185. szClientNbrTemp
  186.