How to Schedully running PL/SQL?

Question

Hi everyone,
i'm a novice in pl/sql, i'm still learning on the script. I have a database which storing the inventory for waste product. I need to keep track the new waste and update the balance everyday exactly at 11pm. My problem is sometimes the job will fail and i need to recover the database manually.
1) how to make it automatically schedule run the pl/sql script without enter which date need to recover.
2) how to calculate the waste which receive on particular date.
Thanks.
here is my table attributes:
1)ID
2)wasteID
3)receive
4)ship_out
5)opening
6)date
7)waste_type
8)groupID
9)wasteName
Jeat.
Edited by: user11182731 on May 25, 2009 10:22 PM

Answer 1

Justin Cave wrote:
Yes, you can use DBMS_JOB.SUBMIT to submit a job that will call a particular stored procedure on a particular schedule, i.e. call Inventory_Recovery every day at a particular time.
Hi Justin, where to place the rdbms_job.submit code? Since i didn't have any stored procedure
How to create a stored procedure? Any reference??
It seems like you should be able to perform whatever computations you need in a view rather than trying to maintain a summary table that just aggregates your data.
Yeah, i do have a procedure for calculate the waste inventory balance which is corresponded to the procedure inventory_recovery, here the eg code:
PROCEDURE Inventory_Calculation (dInDate DATE, vInsertFlag VARCHAR2) IS
     rDayBeforeInvRec      Wste_Waste_Inventory%ROWTYPE;
     rInDateInvRec      Wste_Waste_Inventory%ROWTYPE;
     fInDateReceiveQty      FLOAT;
     fInDateShipoutQty      FLOAT;
     fInDateOnHandQty       FLOAT;
     fInDateOpeningQty      FLOAT;
     nComponentId     NUMBER(25);
     vCompDept     VARCHAR2(20);
     vCompName     VARCHAR2(80);
     vWasteType     VARCHAR2(2);
     nGroupId                     NUMBER(25);
     vComponentName     VARCHAR2(80);
     CURSOR Day_Before_Fail_Inv_Bal IS
          SELECT * FROM wste_waste_inventory
               WHERE wwin_date = dInDate -1;
          CURSOR InDate_Rec_Exist IS
               SELECT * FROM wste_waste_inventory
               WHERE wwin_date = dInDate
               AND wwin_wwco_id = nComponentId
               AND wwin_comp_dept = vCompDept
               AND wwin_waste_type = vWasteType
               AND wwin_wwgr_id = nGroupId
               AND wwin_component_name = vComponentName;
     BEGIN
          OPEN Day_Before_Fail_Inv_Bal;
               LOOP
                        FETCH Day_Before_Fail_Inv_Bal INTO rDayBeforeInvRec;
               nComponentId     := rDayBeforeInvRec.wwin_wwco_id;
               vCompDept     := rDayBeforeInvRec.wwin_comp_dept;
               vCompName     := rDayBeforeInvRec.wwin_comp_name;
               vWasteType     := rDayBeforeInvRec.wwin_waste_type;
               nGroupId        := rDayBeforeInvRec.wwin_wwgr_id;
               vComponentName     := rDayBeforeInvRec.wwin_component_name;
               OPEN InDate_Rec_Exist;
                        FETCH InDate_Rec_Exist INTO rInDateInvRec;
               IF InDate_Rec_Exist%FOUND THEN
               fInDateOpeningQty      := rDayBeforeInvRec.wwin_onhand;
                         fInDateOnHandQty      := rDayBeforeInvRec.wwin_onhand - rInDateInvRec.wwin_ship_out + rInDateInvRec.wwin_receive;
                       UPDATE wste_waste_inventory SET
                    WWIN_OPENING = fInDateOpeningQty,
                    WWIN_ONHAND  = fInDateOnHandQty                              
                    WHERE wwin_date = dInDate
                    AND wwin_wwco_id = nComponentId
                    AND wwin_comp_dept = vCompDept
                    AND wwin_waste_type = vWasteType
                    AND wwin_wwgr_id = nGroupId
                    AND wwin_component_name = vComponentName;                              
               ELSE          
                    fInDateOpeningQty      := rDayBeforeInvRec.wwin_onhand;
                    fInDateOnHandQty      := rDayBeforeInvRec.wwin_onhand;
                    INSERT INTO wste_waste_inventory (
                         WWIN_ID,
                         WWIN_WWCO_ID,
                         WWIN_RECEIVE,
                         WWIN_SHIP_OUT,
                         WWIN_ONHAND,
                         WWIN_OPENING,
                         WWIN_DATE,
                         WWIN_COMP_DEPT,
                         WWIN_COMP_NAME,
                         WWIN_WASTE_TYPE,
                         WWIN_WWGR_ID,
                         WWIN_COMPONENT_NAME )
                    VALUES (
                         SAPP_SEQ.nextval,
                         nComponentId,
                         0,
                         0,
                         fInDateOpeningQty,
                         fInDateOnHandQty,
                         TO_DATE(dInDate, 'DD-MON-YY'),
                         vCompDept,
                         vCompName,
                         vWasteType,
                         nGroupId,
                         vComponentName );     
                    END IF;               
                               CLOSE InDate_Rec_Exist;
                    EXIT WHEN Day_Before_Fail_Inv_Bal%NOTFOUND;
               END LOOP;
          CLOSE Day_Before_Fail_Inv_Bal;
     COMMIT;          
END Inventory_Calculation;