0

I try to loop on resulting rows with the cursor. And use GOTO to ignore process for some rows.

CREATE OR REPLACE PROCEDURE Es_Release_Hold_Lot_Job_Data(p_group_id IN NUMBER, p_lot_numbers OUT VARCHAR2)
IS
    CURSOR tx_cur IS
        SELECT * FROM xx_vms.es_transaction_data WHERE group_id = p_group_id and status not in (2, 3) and transaction_type not in (10, 13, 14) FOR UPDATE;

v_mode_flag NUMBER;
v_alt_bom_designator VARCHAR2(30);
v_alt_routing_designator VARCHAR2(30);
v_user_id       NUMBER;
v_source_line_id NUMBER;
v_load_type NUMBER;
v_firm_planned_flag NUMBER;
v_start_quantity NUMBER;
v_tmp_count NUMBER:=0;
v_start_date DATE;
v_status_type NUMBER:=3;
BEGIN
    FOR TX IN tx_cur
        LOOP
            v_start_quantity := tx.quantity;
            v_start_date := tx.start_date;
            SELECT user_id INTO v_user_id
            FROM fnd_user
            WHERE user_name = TX.created_by_name;
            v_alt_bom_designator := null;
            v_alt_routing_designator := null;
            select count(1)
            into v_tmp_count
            from wip_discrete_jobs
            where primary_item_id = tx.inventory_item_id and lot_number = tx.lot_number and status_type = 6;
            IF(v_tmp_count != 0) THEN
                select start_quantity
                into v_start_quantity
                from wip_discrete_jobs
                where primary_item_id = tx.inventory_item_id and lot_number = tx.lot_number and status_type = 6;
            ELSE
                goto continue_label;
            END IF;
            v_load_type := 5;
            v_firm_planned_flag := 1;
            v_mode_flag := 1;
            v_source_line_id := TX.header_id;
            v_load_type := 6;
            v_firm_planned_flag := 2;
            select count(1)
            into v_tmp_count
            from wip_discrete_jobs
            where primary_item_id = tx.inventory_item_id and lot_number = tx.lot_number and status_type = 6;
            IF(v_tmp_count!=0) THEN
                select scheduled_start_date
                into v_start_date
                from wip_discrete_jobs
                where primary_item_id = tx.inventory_item_id and lot_number = tx.lot_number and status_type = 6;
            ELSE
                goto continue_label;
            END IF;
            --return list of lots are released hold automatically
            p_lot_numbers := p_lot_numbers || ',' || tx.lot_number;
            DELETE FROM wsm_lot_job_interface where header_id = tx.header_id;
            INSERT INTO WSM_LOT_JOB_INTERFACE
                (
                    ALLOW_EXPLOSION,
                    ALTERNATE_BOM_DESIGNATOR,
                    ALTERNATE_ROUTING_DESIGNATOR,
                    BOM_REFERENCE_ID,
                    COMPLETION_SUBINVENTORY,
                    CREATED_BY_NAME,
                    CREATION_DATE,
                    DESCRIPTION,
                    FIRM_PLANNED_FLAG,
                    FIRST_UNIT_START_DATE,
                    GROUP_ID,
                    HEADER_ID,
                    JOB_NAME,
                    LAST_UNIT_COMPLETION_DATE,
                    LAST_UPDATE_DATE,
                    LAST_UPDATED_BY_NAME,
                    LAST_UPDATED_BY,
                    LOAD_TYPE,
                    LOT_NUMBER,
                    MODE_FLAG,
                    NET_QUANTITY,
                    ORGANIZATION_ID,
                    PRIMARY_ITEM_ID,
                    PROCESS_PHASE,
                    PROCESS_STATUS,
                    ROUTING_REFERENCE_ID,
                    SOURCE_CODE,
                    SOURCE_LINE_ID,
                    START_QUANTITY,
                    STATUS_TYPE,
                    WIP_SUPPLY_TYPE,
                    ATTRIBUTE14,
                    ATTRIBUTE15
                    ,ATTRIBUTE1
                    ,ATTRIBUTE2
                    ,ATTRIBUTE3
                )
                VALUES
                (
                    'Y',                                -- ALLOW_EXPLOSION,
                    v_alt_bom_designator,                           -- ALTERNATE_BOM_DESIGNATOR
                    v_alt_routing_designator,                           -- ALTERNATE_ROUTING_DESIGNATOR
                    TX.bom_reference_id,                                    -- BOM_REFERENCE_ID
                    TX.SUBINVENTORY_CODE,                       -- COMPLETION_SUBINVENTORY,
                    TX.CREATED_BY_NAME,                         -- CREATED_BY_NAME,
                    SYSDATE,--CREATED_DATE,                         -- CREATION_DATE,
                    'VMS WIP Job',                          -- DESCRIPTION,
                    v_firm_planned_flag,     -- FIRM_PLANNED FLAG = 2 for update comp date                                  -- FIRM_PLANNED_FLAG,
                    v_start_date,--TX.start_date,                           -- FIRST_UNIT_START_DATE,
                    p_group_id,                                 -- GROUP_ID,
                    TX.header_id,                           -- HEADER_ID,
                    TX.lot_number,                          -- JOB_NAME,
                    TX.proj_out_date,                       -- LAST_UNIT_COMPLETION_DATE,
                    SYSDATE,--LAST_UPDATED_DATE,                            -- LAST_UPDATE_DATE,
                    TX.LAST_UPDATED_BY_NAME,                            -- LAST_UPDATED_BY_NAME,
                    v_user_id,                          -- LAST_UPDATED_BY_NAME,
                    v_load_type,    -- LOAD_TYPE 6 for update                               -- LOAD_TYPE,            5 = create a lot based job, 6 = Reschedule a lot based Job
                    TX.lot_number,                          -- LOT_NUMBER,
                    v_mode_flag,                                    -- MODE_FLAG,
                    TX.quantity,                            -- NET_QUANTITY,
                    42,                                 -- ORGANIZATION_ID,
                    TX.inventory_item_id,
                    2,                                  -- PROCESS_PHASE,  2=Validation
                    1,                                  -- PROCESS_STATUS, 1=Pending
                    TX.routing_reference_id,            -- ROUTING_REFERENCE_ID
                    TX.SOURCE_CODE,                             -- SOURCE_CODE,
                    v_source_line_id,                                   -- SOURCE_LINE_ID,
                    v_start_quantity,                           -- START_QUANTITY,
                    v_status_type,                                  -- STATUS_TYPE, 1= Unreleases, 3=Released, 6=Hold
                    7,                                  -- wip_supply_type = Based on Bill, WIP_SUPPLY_TYPE 1 = Push, 3 = Operation Pull
                    TO_CHAR(TX.group_id),
                    TO_CHAR(TX.header_id)
                    ,TX.po_number
                    ,TX.date_code
                    ,to_char(TX.initial_commit_date,'DD-MON-YY')
                );
            IF(v_mode_flag = 2) THEN
                DELETE FROM WSM_SPLIT_MERGE_TXN_INTERFACE
                WHERE
                HEADER_ID IN
                (
                    SELECT DISTINCT HEADER_ID
                    FROM WSM_STARTING_LOTS_INTERFACE
                    WHERE CONCAT(TO_CHAR(INVENTORY_ITEM_ID),LOT_NUMBER) IN
                           (
                                SELECT
                                        CONCAT(TO_CHAR(TO_NUMBER(C.INVENTORY_ITEM_ID)),A.LOT_NUMBER)
                                FROM
                                        XX_VMS.ES_TRANSACTION_CHILD_RECORDS A,
                                        XX_VMS.ES_TRANSACTION_DATA B,
                                        XX_VMS.ES_ITEM C
                                WHERE
                                        A.ES_TRANSACTION_ID = B.ID
                                AND     A.PART_NUMBER = C.PART_NUMBER
                                AND     B.GROUP_ID = p_group_id
                                AND     B.ID = TX.ID
                           )
                );

                DELETE FROM WSM_STARTING_LOTS_INTERFACE WHERE CONCAT(TO_CHAR(INVENTORY_ITEM_ID),LOT_NUMBER) IN
                       (
                            SELECT
                                    CONCAT(TO_CHAR(TO_NUMBER(C.INVENTORY_ITEM_ID)),A.LOT_NUMBER)
                            FROM
                                    XX_VMS.ES_TRANSACTION_CHILD_RECORDS A,
                                    XX_VMS.ES_TRANSACTION_DATA B,
                                    XX_VMS.ES_ITEM C
                            WHERE
                                    A.ES_TRANSACTION_ID = B.ID
                            AND     A.PART_NUMBER = C.PART_NUMBER
                            AND     B.GROUP_ID = p_group_id
                            AND     B.ID = TX.ID
                       );

                INSERT INTO WSM_STARTING_LOTS_INTERFACE
                (
                    CREATED_BY,
                    CREATION_DATE,
                    HEADER_ID,
                    INVENTORY_ITEM_ID,
                    LAST_UPDATE_DATE,
                    LAST_UPDATED_BY,
                    LOT_NUMBER,
                    ORGANIZATION_ID,
                    QUANTITY,
                    SUBINVENTORY_CODE
                )
                SELECT
                        F.USER_ID,
                        SYSDATE,--B.CREATED_DATE,
                        v_source_line_id,
                        C.INVENTORY_ITEM_ID,
                        B.LAST_UPDATED_DATE,
                        F.USER_ID,
                        A.LOT_NUMBER,
                        42,
                        A.QUANTITY,
                        A.SUBINVENTORY_CODE
                FROM
                        XX_VMS.ES_TRANSACTION_CHILD_RECORDS A,
                        XX_VMS.ES_TRANSACTION_DATA B,
                        XX_VMS.ES_ITEM C,
                        FND_USER F
                WHERE
                            A.ES_TRANSACTION_ID = B.ID
                    AND     A.PART_NUMBER = C.PART_NUMBER
                    AND     B.GROUP_ID = p_group_id
                    AND     F.USER_NAME=B.CREATED_BY_NAME
                    AND     B.ID = TX.ID;

            END IF;
            -- set status of current transaction to imported
            UPDATE xx_vms.es_transaction_data
            SET    status = 2                -- imported
            WHERE CURRENT OF tx_cur;
            <<continue_label>>
            NULL;
            EXCEPTION
                WHEN OTHERS
                THEN
                -- Something went wrong, set status to ERROR
                    DECLARE
                           err VARCHAR2(2048);
                    BEGIN
                           --DBMS_OUTPUT.PUT_LINE( SQLERRM );
                           err := SQLERRM;
                           INSERT INTO XX_VMS.ES_TRANSACTION_ERRORS(SQL_ERROR_MESSAGE,GROUP_ID,es_transaction_id)
                           VALUES(err,p_group_id,tx.id);

                           UPDATE xx_vms.es_transaction_data
                           SET     status = 4                -- Error
                           WHERE CURRENT OF tx_cur;
                    END;
            END;
        END LOOP;
END;

/

when execute this stored, DB throws the error:

Compilation errors for PROCEDURE APPS.ES_RELEASE_HOLD_LOT_JOB_DATA
#13#10Error: PLS-00103: Encountered the symbol "EXCEPTION" when expecting one of the following:
begin case declare end exit for goto if loop mod null pragma
raise return select update while with <an identifier>
<a double-quoted delimited-identifier> <a bind variable> <<
close current delete fetch lock insert open rollback
savepoint set sql execute commit forall merge pipe

Line: 219
Text: EXCEPTION
#13#10Error: PLS-00103: Encountered the symbol "LOOP" when expecting one of the following: ;

Line: 236
Text: END LOOP;

What's this error? How can I correct this? Note: when I delete the EXCEPTION clause, the procedure compiles.

1 Answer 1

1

You should follow BEGIN - EXCEPTION - END structure. You are missing a BEGIN keyword.

Put a BEGIN on the beginning of your code, like this:

BEGIN
   FOR TX IN tx_cur
   LOOP
      BEGIN <----- this is missing
         v_start_quantity := tx.quantity;
         v_start_date := tx.start_date;
0

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.