      * ===================================== *                           
      * Fichier Physique de destination pour  *                           
      * l'extraction d'un MSGF                *                           
      * ===================================== *                           
     A          R PFREC                                                   
      *
     A            CPT            7S 0       COLHDG('Compteur de ligne')
     A            LIB           10          COLHDG('Bibliothque')     
     A            MNU           10          COLHDG('Fichier Message')  
     A            MSGID          7          COLHDG('Id Message')       
     A            MSGSEV         2S 0       COLHDG('Gravit')          
     A            MSGFIRST     132          COLHDG('Texte Msg 1er niv')
     A            MSGSECND    3000          COLHDG('texte Message')    