$$$$ VERTYTAB
* VERTYTAB  PROCEDUR  MAGN      05/04/21    21:15:05     5074           
'DEBPROC' VERTYTAB ;
 ARGU rxt/'TABLE'
      lxt/'LISTMOTS'
 entree*mot typr*mot
      lco/'MOT'    ;
*******************************************************************
*******************************************************************
* VERTYTAB rxt 'YAIR' 'FLOTTANT' ;
* on vérifie que 'YAIR' est bien une entrée de rxt et que c'est
* un FLOTTANT                            -/> erreur
*
* VERTYTAB lxt 'YAIR' 'MOT'      ;
* on vérifie que 'YAIR' est bien une entrée de lxt (LISTMOTS)
* 'MOT' n'est pas testé pour le moment   -/> erreur
*
* VERTYTAB 'ERREUR' 'ERREUR' 'message'    ;
* dans ce cas on imprime le message et retour
*
*******************************************************************
*******************************************************************
Si (Exist rxt) ;
 Si (non (exist rxt entree));
 Mess '*********************************************************' ;
 Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
 Mess '                                                         ' ;
 Mess 'L entree ' ENTREE ' n existe pas dans la table ' ;
 Mess '                                                         ' ;
 Mess '*********************************************************' ;
 erreur 21 ;
 quitter VERTYTAB;
 Finsi ;

Si (non (exist lco));
 Si(NON ('EGA' TYPR (TYPE rxt.entree))) ;
 Mess '***********************************************************' ;
 Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
 Mess '                                                         ' ;
  Mess ' On attend un ' TYPR ' pour l entree ' entree ' de la table';
 Mess '                                                         ' ;
 Mess '***********************************************************' ;
  erreur 21 ;
 Finsi ;
Sinon;
 Si((NON ('EGA' TYPR (TYPE rxt.entree)))
 et (NON ('EGA' lco  (TYPE rxt.entree))) ) ;
 Mess '***********************************************************' ;
 Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
 Mess '                                                         ' ;
  Mess ' On attend un ' TYPR ' ou un ' lco
                             ' pour l entree ' entree ' de la table';
 Mess '                                                         ' ;
 Mess '***********************************************************' ;
  erreur 21 ;
 Finsi ;

Finsi;

 quitter VERTYTAB;

Finsi ;

Si (Exist lxt)                                                    ;

 Si (non (exist lxt entree));
 Mess '*********************************************************' ;
 Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
 Mess '                                                         ' ;
 Mess 'Le mot ' ENTREE ' n existe pas dans la liste ' ;
 Mess '                                                         ' ;
 Mess 'Le contenu de la liste est ';
 list lxt ;
 Mess '                                                         ' ;
 Mess '*********************************************************' ;

 erreur 21 ;
 quitter VERTYTAB;
 Finsi ;

Finsi ;

Si (Exist lco);

 Mess '*********************************************************' ;
 Mess ' ERREUR   ERREUR   ERREUR   ERREUR   ERREUR   ERREUR     ' ;
 Mess '                                                         ' ;
 Mess lco                                             ;
 Mess '                                                         ' ;
 Mess '                                                         ' ;
 Mess '*********************************************************' ;

 erreur 21 ;
 quitter VERTYTAB;

Finsi ;

FINPROC ;