97 lines
2.3 KiB
Markdown
97 lines
2.3 KiB
Markdown
|
```sql
|
||
|
|
|
||
|
|
|
||
|
|
CREATE OR REPLACE TYPE obj_type AS object
|
||
|
|
( c1 INT,
|
||
|
|
c2 INT
|
||
|
|
);
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
CREATE OR REPLACE TYPE table_type AS TABLE OF obj_type;
|
||
|
|
|
||
|
|
|
||
|
|
CREATE OR REPLACE FUNCTION table_func (p_start int, p_end int)
|
||
|
|
RETURN table_type
|
||
|
|
IS
|
||
|
|
v_type TABLE_TYPE := table_type();
|
||
|
|
BEGIN
|
||
|
|
|
||
|
|
FOR i IN p_start..p_end LOOP
|
||
|
|
v_type.extend;
|
||
|
|
v_type(i) := obj_type(i,i);
|
||
|
|
END LOOP;
|
||
|
|
|
||
|
|
RETURN v_type;
|
||
|
|
END;
|
||
|
|
/
|
||
|
|
|
||
|
|
CREATE OR REPLACE FUNCTION pipe_table_func(p_start INT, p_end INT)
|
||
|
|
RETURN table_type1
|
||
|
|
PIPELINED
|
||
|
|
IS
|
||
|
|
v_type obj_type1;
|
||
|
|
BEGIN
|
||
|
|
FOR i IN p_start..p_end LOOP
|
||
|
|
v_type := obj_type1(i, i);
|
||
|
|
PIPE ROW(v_type);
|
||
|
|
END LOOP;
|
||
|
|
END;
|
||
|
|
/
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
CREATE OR REPLACE FUNCTION ucm.table_func (std_date varchar)
|
||
|
|
RETURN ucm.schdul_table_type
|
||
|
|
IS
|
||
|
|
v_type ucm.schdul_table_type := ucm.schdul_table_type();
|
||
|
|
|
||
|
|
i number;
|
||
|
|
|
||
|
|
v_obj ucm.schdul_type := ucm.schdul_type(null, null, null, null, null, null, null, null, null, null
|
||
|
|
, null, null, null, null, null, null, null, null, null, null
|
||
|
|
, null, null, null, null, null, null, null, null, null, null
|
||
|
|
, null, null, null, null, null, null, null, null, null, null
|
||
|
|
, null, null, null, null, null, null, null, null, null, null
|
||
|
|
, null, null, null, null, null, null, null);
|
||
|
|
v_obj_init ucm.schdul_type;
|
||
|
|
|
||
|
|
V_STAND_NO VARCHAR(10);
|
||
|
|
V_CCTV_YN VARCHAR(1);
|
||
|
|
|
||
|
|
CURSOR C_Stand_List IS
|
||
|
|
select ucm.FUN_PRE_ZERO_REMOVE(replace(a.stand_no, '00', '')) as stand_no
|
||
|
|
, decode(b.STAND_NO, null, 'N', 'Y') as cctv_yn
|
||
|
|
from ucm.SACP_STAND a, ucm.SACP_CCTVID_MAPPING b
|
||
|
|
where a.STAND_NO = b.STAND_NO (+)
|
||
|
|
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
|
||
|
|
FOR cRet IN C_ACDM_RCV LOOP
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
select 'A' as flt_se, b.STAND_NO , flt_sttus, trgt_id, clsgn, ac_reg_no, arr_no, if_dt, rwy_id, exp_stand_on_dt, actl_stand_on_dt, actl_arr_dt, acdm_sttus_cd
|
||
|
|
from uic.V_FLT_ARR_STAND b
|
||
|
|
where stand_no = cRet.stand_no;
|
||
|
|
|
||
|
|
|
||
|
|
EXCEPTION WHEN others THEN
|
||
|
|
|
||
|
|
|
||
|
|
end ;
|
||
|
|
|
||
|
|
END LOOP;
|
||
|
|
|
||
|
|
FOR i IN 1..20 LOOP
|
||
|
|
|
||
|
|
v_type.extend;
|
||
|
|
v_type(i) := v_obj;
|
||
|
|
END LOOP;
|
||
|
|
|
||
|
|
RETURN v_type;
|
||
|
|
END;
|
||
|
|
/
|
||
|
|
|
||
|
|
```
|