--
-- suppression de la procédure
--   puis enregistrement de cette dernière dans SYSPROCS
--
--   langage RPGLE (voir le pgm DSPLIBL)
--   NOT DETERMINISTIC, deux appel sucessifs retournent des valeurs <>
--   EXTERNAL NAME = nom réel du pgm
--   PARAMETER STYLE GENERAL, on ne recoit pas d'infos SQL en plus.
--                            ni des indicateurs concernant les val. nulles.
--
 
DROP PROCEDURE AF4TOOL/DSPLIBL;
 
CREATE PROCEDURE AF4TOOL/DSPLIBL LANGUAGE RPGLE NOT DETERMINISTIC
 CONTAINS SQL EXTERNAL NAME AF4TOOL/DSPLIBL PARAMETER STYLE GENERAL ;
 
 
--
--  PS :
--  ce script doit être lancé par RUNSQLSTM (un spool contient les messages)
--