Creating function in Db2 (version 8) on mainframe

[chsubhasis]

I have a function that contains 'if'. 'for'. I want to create this function in Db2 (vesion 8) on mainframe. Please let me know the basic steps to do that. I have tried to execute it through SPOFY and QFM and got errors. It seems like there should be some specific way to create function in DB2 (V8) on mainframe (db2 z/os).

Please check the function below -

create function desc_func( v_rpt_id integer, v_desc_typ_cde varchar(1))
RETURNS VARCHAR(32672)
begin atomic
DECLARE v_desc VARCHAR(32672) default '';
for1: FOR tmp_row AS
(
SELECT
desc_seq_num,varchar(evnt_desc_txt) evnt_desc_txt
FROM
t_flt_sfty_desc DES,t_flt_sfty_rpt rptin1
WHERE DES.EVNT_DTE=rptin1.EVNT_DTE
AND DES.EVNT_SEQ_NUM=rptin1.EVNT_SEQ_NUM
AND DES.RPT_EVNT_ORD_NUM = rptin1.RPT_EVNT_ORD_NUM
AND DES.RPTEE_TYP_CDE = rptin1.RPTEE_TYP_CDE
AND DES.View_typ_cde = 'D'
AND desc_typ_cde = v_desc_typ_cde
AND rpt_id= v_rpt_id
ORDER BY
desc_seq_num
)
DO
IF desc_seq_num =1 THEN
SET v_desc = tmp_row.evnt_desc_txt;
ELSE
SET v_desc = v_desc ||tmp_row.evnt_desc_txt;
END IF;
END FOR for1;
return v_desc;
END