Procedure Error (oracle 10.2.0.3.0)

Question

Hi All,
I have created a procedure. but it's giving error while executin .please look into this.
create or replace PROCEDURE PR_LOAD_SMS
  IS
  BEGIN
     EXECUTE IMMEDIATE 'TRUNCATE TABLE DSS.FORT_HZM';
     EXECUTE IMMEDIATE '
     INSERT INTO DSS.FORT_HZM (CO_ID,FU_CODE,FU_DESC,SCODE,S_DES,AT_DT,SDN,CODELANG)
     SELECT
       CONTR_SERVICES.CO_ID                                         CO_ID,
       FU_PROFILE.FUCODE                                            FU_CODE,
       FU_PROFILE.FU_DESC                                           FU_DESC,
       CONTR_SERVICES.SCODE                                        SCODE,
       MPUSNTAB.DES                                                 S_DES,
       TO_DATE(SUBSTR(CONTR_SERVICES.CS_STAT_CHNG,-7,6),'YYMMDD') ACT_DT,
       CONTRACT_PHONENR.NUM                                         SDN,
       CCONTACT_ALL.CCLANGUAGE                                      CODELANG
     FROM
       SCS.CONTR_SERVICES        CONTR_SERVICES,
       SCS.FU_PROFILE            FU_PROFILE,
       SCS.MPUSNTAB              MPUSNTAB,
       DSS.CONTRACT_PHONENR       CONTRACT_PHONENR,
       SCS.CONTRACT_ALL          CONTRACT_ALL,
       SCS.CCONTACT_ALL          CCONTACT_ALL,
       SCS.FULKSN                FULKSN
     WHERE
       FULKSN.FUCODE = FU_PROFILE.FUCODE
       AND FULKSN.SCODE = CONTR_SERVICES.SCODE
       AND MPUSNTAB.SCODE = CONTR_SERVICES.SCODE
       AND CCONTACT_ALL.customer_id = CONTRACT_ALL.customer_id
       AND CONTRACT_ALL.co_id = CONTRACT_PHONENR.co_id
       AND CONTRACT_ALL.co_id = CONTR_SERVICES.co_id
       AND CONTRACT_PHONENR.co_id = CONTR_SERVICES.co_id
       AND CCONTACT_ALL.CCBILL = 'X'
       AND CONTR_SERVICES.CS_STAT_CHNG LIKE ('%a')
       AND FU_PROFILE.HZ_FLAG IS NOT NULL;
       AND SUBSTR (NVL (CONTR_SERVICES.CS_STAT_CHNG, 'a'), -1, 1) != 'd'
       AND CONTR_SERVICES.SCODE <> 4520 ;
     COMMIT;
  END PR_LOAD_SMS;Error:
LINE/COL ERROR
13/58    PLS-00103: Encountered the symbol "YYMMDD" when expecting one of
         the following:
         * & = - + ; < / > at in is mod remainder not rem return
         returning <an exponent (**)> <> or != or ~= >= <= <> and or
         like LIKE2_ LIKE4_ LIKEC_ between into using || multiset bulk
         member SUBMULTISET_Thank you

Answer 1

Hello,
Seems like lot of syntax error and why you want to execute as dynamic sql and not just simple straight forward insert statement. I tried to modified but verify see if it helps you anyway or just post exact insert stmt that you want to execute as dynamic sql.
CREATE OR REPLACE PROCEDURE PR_LOAD_SMS
IS
BEGIN
   EXECUTE IMMEDIATE 'TRUNCATE TABLE DSS.FORT_HZM';
   INSERT INTO DSS.FORT_HZM (CO_ID,
                             FU_CODE,
                             FU_DESC,
                             SCODE,
                             S_DES,
                             AT_DT,
                             SDN,
                             CODELANG)
      SELECT   CONTR_SERVICES.CO_ID CO_ID,
               FU_PROFILE.FUCODE FU_CODE,
               FU_PROFILE.FU_DESC FU_DESC,
               CONTR_SERVICES.SCODE SCODE,
               MPUSNTAB.DES S_DES,
               TO_DATE (
                  SUBSTR (CONTR_SERVICES.CS_STAT_CHNG, -7, 6),
                  '                                                         YYMMDD
                  ACT_DT,
               CONTRACT_PHONENR.NUM SDN,
               CCONTACT_ALL.CCLANGUAGE CODELANG
        FROM   SCS.CONTR_SERVICES CONTR_SERVICES,
               SCS.FU_PROFILE FU_PROFILE,
               SCS.MPUSNTAB MPUSNTAB,
               DSS.CONTRACT_PHONENR CONTRACT_PHONENR,
               SCS.CONTRACT_ALL CONTRACT_ALL,
               SCS.CCONTACT_ALL CCONTACT_ALL,
               SCS.FULKSN FULKSN
       WHERE       FULKSN.FUCODE = FU_PROFILE.FUCODE
               AND FULKSN.SCODE = CONTR_SERVICES.SCODE
               AND MPUSNTAB.SCODE = CONTR_SERVICES.SCODE
               AND CCONTACT_ALL.customer_id = CONTRACT_ALL.customer_id
               AND CONTRACT_ALL.co_id = CONTRACT_PHONENR.co_id
               AND CONTRACT_ALL.co_id = CONTR_SERVICES.co_id
               AND CONTRACT_PHONENR.co_id = CONTR_SERVICES.co_id
               AND CCONTACT_ALL.CCBILL =
                     '                                  X'
               AND CONTR_SERVICES.CS_STAT_CHNG LIKE ('%a')
               AND FU_PROFILE.HZ_FLAG IS NOT NULL
               AND SUBSTR (NVL (CONTR_SERVICES.CS_STAT_CHNG, 'a'), -1, 1) !=
                     'd'
               AND CONTR_SERVICES.SCODE = 4520;
   COMMIT;
END PR_LOAD_SMS;Regards
Edited by: OrionNet on Apr 17, 2009 12:39 AM