Declare the Set_Message procedure and add a exception -> message mapping table
Declare the Set_Message procedure and add a exception -> message mapping table

stcarrez/ada-asf,stcarrez/ada-asf,stcarrez/ada-asf