DROP FUNCTION AF4SRCT/TBLIBL ;
 
CREATE FUNCTION AF4SRCT/TBLIBL()
                          RETURNS  TABLE
                          (LIB CHAR(10) ,
                           LIBTEXT CHAR(50)
                          )
       EXTERNAL NAME 'AF4SRCT/TBLIBL'
       LANGUAGE RPGLE NO SQL
       PARAMETER STYLE DB2SQL DISALLOW PARALLEL ;