*
      *         FICHIER CLIENT
      *
     A          R CLIENTF1                  TEXT('FICHIER CLIENT')
     A    !-----> NOCLI          6  0       COLHDG('N°' 'CLIENT')
     A    !       NOMCLI        30          COLHDG('NOM CLIENT')
     A    !       ADR1          35          COLHDG('ADRESSE')
     A    !       ADR2          30          COLHDG('ADRESSE')
     A    !       DEPCLI         2S 0       COLHDG('DEPART')
     A    !       BDIS           3S 0       COLHDG('B DIST')
     A    !       DATCRT          L
      *   !
      *   !     FICHIER ENTETE de CDE
      *   !
     A    !     R CDEENTF1                  TEXT('FICHIER COMMANDES')
     A    !  !--> NOCDE          6  0       COLHDG('N°' 'CDE')
     A    !-----> NOCLI          6  0       COLHDG('N°' 'CLIENT')
     A       !    DATCDE          L         COLHDG('DATE CDE')
     A       !    DATLIV          L         COLHDG('DATE LIV')
      *      !
      *      !  FICHIER LIGNES de CDE
      *      !
     A       !  R CDEDETF1                  TEXT('FICHIER L COMMANDES')
     A       !--> NOCDE          6  0       COLHDG('N°' 'CDE')
     A            NOLIG          3  0       COLHDG('N°' 'LIGNE')
     A      !---> CODART        10          COLHDG('CODE ARTICLE')
     A      !     QTECDE         7  2       COLHDG('QTE CDE')
      *     !
      *     !   FICHIER ARTICLE
      *     !
     A      !   R ARTICLF1                  TEXT('FICHIER ARTICLES')
     A      !---> CODART        10          COLHDG('CODE ARTICLE')
     A            LIBART        25          COLHDG('LIB ARTICLE')