Procedure Habilitation TerminerInterpretation();
/****************************************************************/
Procedure EnvoyerErreur(MessageATraiter : Caractere, ? : Entier, ? : Entier, ? : Nul Ou Caractere)
/* Objet : Envoi un message d'erreur. */
/****************************************************************/
Debut
Ecran.Ecrire(MessageATraiter);
Fin Procedure
Principal
/*******/
Debut
...
Si Non DebuterInterpretation(EnvoyerErreur) Alors
Retourner 1;
Fin Si
Si Non Interpreter("${UPS_HOME}/upssdk/exemples/french/binaire.upl", "Contrainte=Oui") Alors
Retourner 1;
Fin Si
TerminerInterpretation();
...
Fin Principal
- | - | - | - | - | - | - | - | - |