Error trapping in RUNSQLSTM

[rob@xxxxxxxxx]

I have a source member that I want to use in RUNSQLSTM that looks like:
DROP FUNCTION ROUTINES/STRIPEMAIL;

CREATE FUNCTION ROUTINES/STRIPEMAIL (CHAR (512))
RETURNS CHAR (100)
DETERMINISTIC
NO SQL
RETURNS NULL ON NULL INPUT
NO EXTERNAL ACTION ALLOW PARALLEL
SIMPLE CALL
EXTERNAL NAME 'ROUTINES/SRVEMAIL(STRIPEMAIL)';

However the function may or may not already exist.  If it does not exist 
the RUNSQLSTM aborts.  How does one do error trapping in RUNSQLSTM?  Keep 
in mind the following:
DSPMSGD RANGE(SQL0084) MSGF(QSQLMSG)

Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)