一个DB2的存储过程，大虾们能简单帮忙写写么？谢谢了。

说明：
这个存储过程将调用一系列存储过程去更新一个表


要求：
1.定义
Schema : ppp
Procedure : ppp_updt_wwide_wwpc (....)
Parameters :
INPUT ii_part_num VARCHAR(15) NOT NULL
INPUT ii_wwide_prod_code VARCHAR(15) NOT NULL
INPUT ii_mod_by_notes_id VARCHAR(12) NOT NULL
INPUT ii_eng_chg_id CHAR(8) NOT NULL
OUTPUT oo_error_code INTEGER,
OUTPUT oo_error_dscr VARCHAR(300)


2.用参数ii_part_num去调用一系列存储过程，任何一个存储过程有问题都更新oo_error_code 和oo_error_dscr（错误内容）
call ppp.dp_updt_wwide_fnshd_good (iipart_num,iiwwide_prod_code,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL, NULL,NULL,NULL,NULL,NULL,NULL,NULL, NULL, iimod_by_notes_id , iieng_chg_id, oo_error_code,oo_error_dscr )
call ppp.dp_st_mars_part_info (iipart_num,oo_error_code,?)"
call ppp.dp_st_singpr_fnshd_prt_inf (iipart_num,v_unspsc_code, oo_error_code,oo_error_dscr)"
call ppp.dp_st_cambrdg_fnshd_prt_inf (iipart_num,v_unspsc_code, oo_error_code,oo_error_dscr)"
call ppp.dp_st_dublin_extrct (iipart_num, v_unspsc_code, oo_error_code ,oo_error_dscr)"
call ppp.dp_st_sap_extrct_part (iipart_num,7, iimod_by_notes_id,oo_error_code ,oo_error_dscr)"
call ppp.dp_st_ecc_extrct_part (iipart_num,7, iimod_by_notes_id ,oo_error_code, oo_error_dscr)

3.没问题的话00_error_code = 00 and 00_error_dscr = "Successful