Customer has requested that we modify procedure extraction to attempt to retrieve the source from the sysibm.sysroutines_src table if it does not exist in the sysibm.sysroutines table.  example : 

-- LOADMOD = 'DSNB10.DBBG.RUNLIB.LOAD(SQL70922)' 
-- DBRM    = 'DSNB10.DBBG.DBRMLIB.DATA(SQL70922)' 
-- CSOURCE = 'DSNB10.DBBG.SRCLIB.DATA(SQL70922)' 
CREATE PROCEDURE IVAN.TST_PROC_01 ()
    RESULT SETS 1
   LANGUAGE SQL
   FENCED
   COLLID TEST
   WLM ENVIRONMENT DBBGENVD
   RUN OPTIONS 'NOTEST(NONE,*,*,*)'
   EXTERNAL NAME LMISP603
P1: BEGIN
   -- Declare cursor
   DECLARE cursor1 CURSOR WITH RETURN FOR
   -- #######################################################################
   -- # Replace the SQL statement with your statement.
   -- #  Note: Be sure to end statements with the terminator character 
   -- #  (usually ';')
   -- # The example SQL statement SELECT NAME FROM SYSIBM.SYSTABLES
   -- # returns all table names from SYSIBM.SYSTABLES.
   -- ######################################################################
    SELECT NAME FROM SYSIBM.SYSTABLES;
      
   -- Cursor left open for client application
   OPEN cursor1;
END P1

If the sysibm.sysroutines.text column does not contain any statement source we should also check the sysibm.sysroutines_src.createstmt column.