1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83
|
CREATE PROCEDURE FSMS.STATUS_LIST_TEST ( IN I_language character(2),
IN I_parameter character(7),
out O_error_nr integer )
RESULT SETS 1
LANGUAGE SQL
-- WLM ENVIRONMENT DB2DWAPP
MODIFIES SQL DATA
COLLID FSMS
asutime no limit
RUN OPTIONS 'NOTEST(ALL,*,,VADTCPIP&137.122.105.233:*)'
------------------------------------------------------------------------
-- SQL Stored Procedure
------------------------------------------------------------------------
P1: BEGIN
DECLARE v_error INT DEFAULT 0;
DECLARE cursor1 CURSOR WITH RETURN FOR
SELECT DISTINCT M.sector_id,
case upper(I_parameter)
when 'SECTORALL' then
M.type_cd
-- M.fsp_id,
-- M.status_id,
-- M.english_Html
-- M.french_Html,
-- M.update_userid,
-- S.english_desc,
-- S.french_desc,
-- case upper(I_language)
-- when 'FR' then M.French_Html
-- else M.English_Html
-- end Descrip_txt,
--
-- case upper(I_language)
-- when 'FR' then S.French_desc
-- else S.English_desc
-- end Descrip_status
---
when 'SECTOR' then
M.sector_id
when 'FSPFSP' then
M.fsp_id
when 'TYPEFS' then
M.type_cd
when 'STATUS' then
S.french_desc
--- M.status_id
-- case upper(I_language)
-- when 'FR' then S.French_desc
-- else S.English_desc
-- end Descrip_status
end
FROM GAF.MFP_STATUS M
inner join GAF.STATUS S
on M.Status_ID = S.Status_ID
-- ORDER BY M.sector_id,
-- M.type_cd,
-- M.fsp_id
-- Descrip_status
WITH UR;
set O_error_nr = 0;
-- open cursor1
OPEN Cursor1;
END P1
-- --------------------------------------------------------------------
-- date sr# user
-- ----------- ---- -------- --------------------------------------
-- 2007-07-16
-- Initial creation of stored procedure
-- ---------------------------------------------- |
Partager