/*--------------------------------------------------------------*/
 /*  PGM POUR CONTROLE D'AFFICHAGE                               */
 /*--------------------------------------------------------------*/
 PGM PARM(&PARM1 &PARM2 &PARM3)
 DCL VAR(&PARM1) TYPE(*CHAR) LEN(20)
 DCL VAR(&PARM2) TYPE(*CHAR) LEN(10)
 DCL VAR(&PARM3) TYPE(*CHAR) LEN(32)
 /*                                                              */
 /* PARM1 :   PARAMETRE 1                                        */
 /*        1   A   10   NOM DE COMMANDE                          */
 /*       11   A   20   NOM DU PARAMETRE                         */
 /*                                                              */
 /* PARM2 :   PARAMETRE 2                                        */
 /*        1   A    N   VALEUR DU PARAMETRE PASSE                */
 /*                                                              */
 /* PARM3 :   PARAMETRE                                          */
 /*        1   A   32   CODE RETOURS                             */
 /*                                                              */
 /*--------------------------------------------------------------*/
 /*                                                              */
 /* Controle de l'existence si erreur valeur de retours à *      */
 /*                                                              */
             CHKOBJ     OBJ(&PARM2) OBJTYPE(*FILE)
             MONMSG     MSGID(CPF0000) EXEC(DO)
             CHGVAR     VAR(&PARM3) VALUE('*')
             ENDDO
ENDPGM