29 lines
1.1 KiB
Plaintext
29 lines
1.1 KiB
Plaintext
drop function if exists mmt_staging2.fn_FTDRY_RUN;
|
|
CREATE OR REPLACE FUNCTION mmt_staging2.fn_FTDRY_RUN()
|
|
RETURNS void AS $$
|
|
declare
|
|
f record;
|
|
w_file_syspk int;
|
|
status text;
|
|
begin
|
|
for f in select distinct a.file_syspk
|
|
from mmt_staging1.mmt_staging_generic_table a
|
|
where file_format = 'FTDRY' order by file_syspk
|
|
loop
|
|
select f.file_syspk into w_file_syspk;
|
|
perform mmt_staging2.fn_FTDRY_TRS_Block(20,1,'FTDRY','FTDRY_TRS',w_file_syspk);
|
|
select e.status from mmt_staging2.mmt_DB_Run_Status e where file_syspk = w_file_syspk and sheet_mnemonic ='FTDRY_TRS' into status;
|
|
if status = 'success' then
|
|
perform mmt_staging2.fn_FTDRY_TRS_ODS(w_file_syspk);
|
|
end if;
|
|
perform mmt_staging2.fn_FTDRY_SUM_Block (20,1,'FTDRY','FTDRY_SUM',w_file_syspk);
|
|
select e.status from mmt_staging2.mmt_DB_Run_Status e where file_syspk = w_file_syspk and sheet_mnemonic ='FTDRY_SUM' into status;
|
|
if status = 'success' then
|
|
perform mmt_staging2.fn_FTDRY_SUM_ODS(w_file_syspk);
|
|
perform mmt_staging2.fn_test_output_FTDRY(w_file_syspk);
|
|
end if;
|
|
end loop;
|
|
end;
|
|
$$ LANGUAGE plpgsql;
|
|
|
|
--select mmt_staging2.fn_FTDRY_RUN() |