| Re : dynamic [message #87359] |
Wed, 22 December 2004 18:40 |
jhsharma
Messages: 58
Registered: June 2004
|
Member |
|
|
hi guru
i am giving the procedure with single item which is checking the threshold limits. But i want the same procedure for the multiple item in that block each to perform the same task. how do i make the item name dynamically to make the single procedure to check all the items in that block
PROCEDURE VALUE_CHECK_MESH_MINUS (cur_item VARCHAR2,RECNUM NUMBER )IS
cur_block VARCHAR2(80) := :SYSTEM.CURSOR_BLOCK;
rvar number;
svarmin number;
svarmax number;
NPASS_ITEM VARCHAR2(80);
NAME VARCHAR2(80);
SPEC_NAME VARCHAR2(80);
BEGIN
if GET_ITEM_PROPERTY(cur_item,ITEM_NAME) = 'ASH' THEN
SVARMIN :=NVL(:SPEC_DATA.ASH,0);
SVARMAX :=NVL(:SPEC_DATA.ASH_M,0);
RVAR := NVL(:result_data.ash,0);
IF (:SPEC_DATA.ASH IS NULL AND :SPEC_DATA.ASH_M IS NULL ) OR
(:SPEC_DATA.ASH IS NOT NULL AND :SPEC_DATA.ASH_M IS NOT NULL ) THEN
IF NOT (RVAR BETWEEN SVARMIN AND SVARMAX) THEN
SET_ITEM_INSTANCE_PROPERTY( cur_item, recnum,VISUAL_ATTRIBUTE,'GREEN_DATA');
END IF;
ELSIF (:SPEC_DATA.ASH IS NOT NULL AND :SPEC_DATA.ASH_M IS NULL) THEN
IF NOT (RVAR >= SVARMIN) THEN
SET_ITEM_INSTANCE_PROPERTY( cur_item, recnum,VISUAL_ATTRIBUTE,'GREEN_DATA');
END IF;
ELSIF (:SPEC_DATA.ASH IS NULL AND :SPEC_DATA.ASH_M IS NOT NULL) THEN
IF NOT (RVAR <= SVARMAX) THEN
SET_ITEM_INSTANCE_PROPERTY( cur_item, recnum,VISUAL_ATTRIBUTE,'GREEN_DATA');
END IF;
END IF;
END IF;
END;
I have two blocks my current block is different than the spec_Data block. cur_item is having that block.
like ash item there are a number of items to be checked with the single procedure.
I am using oracle 8 and d2k
regards
jai
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
