17,140
社区成员




PROCEDURE update_table_C
(
ARRAY_USE IN SYUGYO_DETAIL_TIME_ARRAY )
IS
BEGIN
UPDATE TABLE_C
SET TIME1 = ARRAY_USE(1) ,
TIME2 = ARRAY_USE(2) ,
WHERE TABLE_C.XX='123'
END update_table_C;
PROCEDURE update_table
(
)
IS
type SYUGYO_DETAIL_TIME_ARRAY is table of NUMBER index by binary_integer;
ARRAY_USE SYUGYO_DETAIL_TIME_ARRAY;
/* カーソル 就業明細(日)*/
CURSOR CUR01
IS
SELECT A.*
FROM TABLE_A A
BEGIN
BEGIN
FOR TABLE_A IN CUR01
LOOP
ARRAY_USE(1) := TABLE_A.TIME1;
ARRAY_USE(2) := TABLE_A.TIME2;
END LOOP;
IF CUR02_COUNT >= 1 THEN
FOR I IN 1..10
LOOP
IF T_TIMEITEM_NOS(I) IS NOT NULL THEN
update_table_C(ARRAY_USE);
END IF;
END LOOP;
END IF;
END LOOP;
COMMIT;
END;
END update_table;