Exemple :

debug d'une valeur dans une procédure cataloguée

ou message d'exécution dans une procédure d'installation

Voici le source de la procédure

/*----------------------------------------------------------*/ 
/*                                                          */ 
/* Cette fonction envoie un message                          */ 
/*                                                          */ 
/*----------------------------------------------------------*/ 
CREATE PROCEDURE votrebib.PSNDMSG (IN Texte_Envoi CHAR(100))      
LANGUAGE SQL                                                   
SET OPTION OUTPUT = *PRINT                                     
/*---------------------------------------------------------*/  
/* Début de la procédure                                   */  
/*---------------------------------------------------------*/  
BEGIN                                                          
/* Déclaration des variables de traitement                 */  
DECLARE CHANGE_CMD VARCHAR(256);                               
DECLARE CMD_LENGTH DECIMAL(15, 5);                             
DECLARE VALEUR INTEGER;                                        
/* Formatage de la commande                                */  
SET CHANGE_CMD = 'SNDMSG MSG('''|| Texte_Envoi                 
           || ''') TOUSR(*REQUESTER)';                         
  SET CMD_LENGTH=LENGTH(CHANGE_CMD);                          
/* Exécution de la commande                                */
CALL QSYS.QCMDEXC (CHANGE_CMD,CMD_LENGTH);                  
RETURN;                                                     
/*---------------------------------------------------------*/
/* Fin de la procédure                                     */
/*---------------------------------------------------------*/
END                                                                                                                       

 Pour créer la procédure : 

1) copiez le code ci-dessous dans un fichier source

2) lancez un runsqlstm du membre source que vous avez généré

Attention ! utilisez la convention d'appellation SQL 

Pour utiliser la procédure : 

dans un environnement SQL

Call votrelib.psndmsg ('votre message')

Attention ! si vous utilisez la convention d'appelation *SYS remplacer le point par un /

Dans une procédure cataloguée, votre texte peut être une variable.