MessageErreur : Nul Ou Caractere Lecture Public;
FileDAttente
/**********/
MaFile(1);
/****************************************************************/
Procedure P()
/* Objet : Procedure quelconque. */
/****************************************************************/
Debut
...
Fin Procedure
Principal
/*******/
Variable
/******/
MonTravail : Nul Ou Travail;
Debut
...
MonTravail=P()||MaFile;
...
Si MonTravail.Etat==TravailEnErreur Alors
/* Il y a eu une erreur. */
Ecran.Ecrire(MonTravail.MessageErreur);
Fin Si
...
Fin Principal
- | - | - | - | - | - | - | - | - |