CodeControle : Caractere Virtuel;
Principal /*******/ Variable /******/ E : EnteteEdifact; Debut ... Ecran.Ecrire(E.CodeControle); ... Fin Principal