DB2 z/OS does not yet have SQL PL for UDFs. However, you can solve pretty much any problem with SQL as it was invented. For example, your UDF can simply be written like this:
Code:
CREATE FUNCTION testbo( aBONAME VARCHAR(254) )
RETURNS VARCHAR(254)
LANGUAGE SQL
NOT DETERMINISTIC
NO EXTERNAL ACTION
READS SQL DATA
RETURN COALESCE (
( SELECT tablename
FROM amt_genericbo
WHERE boname = aBONAME ),
'NOT FOUND' )