--- rpl/src/formateur_fichiers.c	2013/03/16 20:11:29	1.56
+++ rpl/src/formateur_fichiers.c	2013/03/18 15:53:48	1.57
@@ -990,7 +990,7 @@ formateur_fichier(struct_processus *s_et
 --------------------------------------------------------------------------------
 */
 
-			if ((format_sortie != 'B') && (format_sortie != 'U'))
+			if ((format_sortie != 'B') && (format_sortie != 'N'))
 			{
 				(*s_etat_processus).erreur_execution =
 						d_ex_erreur_format_fichier;
@@ -1190,7 +1190,7 @@ formateur_fichier(struct_processus *s_et
 --------------------------------------------------------------------------------
 */
 
-			if ((format_sortie != 'C') && (format_sortie != 'U'))
+			if ((format_sortie != 'C') && (format_sortie != 'N'))
 			{
 				(*s_etat_processus).erreur_execution =
 						d_ex_erreur_format_fichier;
@@ -3057,6 +3057,12 @@ formateur_fichier(struct_processus *s_et
 --------------------------------------------------------------------------------
 */
 
+			if (format_sortie == 'N')
+			{
+				format_sortie = 'L';
+				longueur_champ = 8;
+			}
+
 			if (format_sortie != 'L')
 			{
 				(*s_etat_processus).erreur_execution =
@@ -3103,6 +3109,19 @@ formateur_fichier(struct_processus *s_et
 --------------------------------------------------------------------------------
 */
 
+			if (format_sortie == 'N')
+			{
+				format_sortie = 'S';
+				longueur_champ = -1;
+			}
+
+			if (format_sortie != 'S')
+			{
+				(*s_etat_processus).erreur_execution =
+						d_ex_erreur_format_fichier;
+				return(NULL);
+			}
+
 			longueur_reelle_chaine = longueur_chaine(s_etat_processus,
 					(unsigned char *) (*s_objet).objet);
 
@@ -3258,6 +3277,12 @@ formateur_fichier(struct_processus *s_et
 --------------------------------------------------------------------------------
 */
 
+			if (format_sortie == 'N')
+			{
+				format_sortie = 'C';
+				longueur = 8;
+			}
+
 			if (format_sortie != 'C')
 			{
 				(*s_etat_processus).erreur_execution =
@@ -3282,6 +3307,12 @@ formateur_fichier(struct_processus *s_et
 --------------------------------------------------------------------------------
 */
 
+			if (format_sortie == 'N')
+			{
+				format_sortie = 'I';
+				longueur = 8;
+			}
+
 			if ((format_sortie != 'I') && (format_sortie != 'R')
 					&& (format_sortie != 'C'))
 			{
@@ -3561,6 +3592,12 @@ formateur_fichier(struct_processus *s_et
 						position_1 = 10;
 						format_degenere = d_vrai;
 					}
+					else if (strcmp("NATIVE*(*)", format_chaine) == 0)
+					{
+						format_sortie = 'N';
+						position_1 = 7;
+						format_degenere = d_vrai;
+					}
 					else
 					{
 						free(chaine);
@@ -3701,6 +3738,12 @@ formateur_fichier(struct_processus *s_et
 --------------------------------------------------------------------------------
 */
 
+			if (format_sortie == 'N')
+			{
+				format_sortie = 'R';
+				longueur = 8;
+			}
+
 			if ((format_sortie != 'R') && (format_sortie != 'C'))
 			{
 				(*s_etat_processus).erreur_execution =