asked on
DECLARE
MY_ID NUMBER;
grant_requested VARCHAR2(3);
BEGIN
if :P370_DSP_BREQUESTED = 'DSPBIF' then -- Allow setting of grant_requested value only
FOR i IN 1..HTMLDB_APPLICATION.G_F01.COUNT LOOP
MY_ID := HTMLDB_APPLICATION.G_F01(i);
grant_requested := HTMLDB_APPLICATION.G_F02(i); -- grant_requested(YES or NO)
UPDATE TBL_GRANTS_REQUESTED
SET grant_requested_id = decode(grant_requested_id,
1, 'YES',
2, 'NO', grant_requested)
WHERE grant_requested_type_id = MY_ID;
COMMIT;
END LOOP;