PROCEDURE Create_Customer_Info_Msg(
   customer_name_ IN VARCHAR2,
   customer_address_ IN VARCHAR2)
IS
   msg_ VARCHAR2(32000);
BEGIN
   msg_ := Message_SYS.Construct('CUSTOMER_DATA');
   Message_SYS.Add_Attribute(msg_, 'CUSTOMER_NAME', customer_name_);
   Message_SYS.Add_Attribute(msg_, 'CUSTOMER_ADDRESS', customer_address_);   
END Create_Customer_Info_Msg;