User tried to extract DDL of a procedure from Toad for DB2 v 4.7.2, it shown a part of SQL statement. DDL
A sample:
SET SCHEMA = 'O5Z';
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","SYSIBMADM","DBIMD5U";
CREATE PROCEDURE "DBIMD5U"."S_AUTH_PROC" ( )
SPECIFIC "S_AUTH_PROC"
LANGUAGE SQL
NOT DETERMINISTIC
EXTERNAL ACTION
MODIFIES SQL DATA
OLD SAVEPOINT LEVEL
BEGIN
select
CASE when a.vv > 0 then 2
when b.ne > 0 then 3
when c.ni > 0 then 4
when d.sn > 0 then 1
else 0 end case into ALLOW_RESTRICTED
from
(
select count(*) as vv from (select * FROM TABLE (SYSPROC.AUTH_LIST_GROUPS_FOR_AUTHID(session_user))
where group in ('EDW5U1R1'))) as;