Monitor

    // Etalez consciencieusement de la confiture                           
    // sur une tartine et jetez la en l'air                                 
    // 421 fois. Si elle ne retombe JAMAIS                                 
    // du mauvais coté, alors, vous êtes vernis,                           
    // - Précipitez-vous donc au Casino le plus proche ! -                  
    // et n'avez peut-être pas besoin de Monitor...                        
    // Sinon :                                                             
                                                                           
                                                                           
    monitor;                                                               
                                                                           
    open  test030p;                        // Bloc d'instruction(s)         
    write test030r;                           // à monitorer                  
    zn1w=etpanunedivisionparzerow/zn1w;    //                              
                                                                           
                                                                           
    on-error 1021;                          // un ou plusieurs "error-group"
    dsply 'clé en double';                                                 
                                                                           
    on-error *file;                            //                              
    dsply '*file';                                                         
                                                                           
    on-error *program;                  //                              
    dsply '*program';        

                                 
    endmon;                                                   
                                                               
                                                               
    // Dans un error-group, vous monitorez pour               
    //     une ou des erreurs particulieres ( séparées par ':' ), 
    //     *file,                                                
    //    *program,                                             
    //     *all (val par défaut).                              
                                                               
    // Pour trouvez le numéro d'une erreur particulière,      
    // faites survenir l'erreur et regardez dans la log.      
                                                               
    // Attn : l'indispensable gestion des erreurs             
    // demande autant de reflexion,                           
    // de jugeotte et de tests que                            
    // la partie active du programme...                        
    //  Ce qui n'est pas peut dire !                           
                                                               
    //  Et finalement, vos utilisateurs                        
    //  et vous êtes gagnant !