A                                      REF(REPERTP1)
     A          R TITRE                     TEXT('LIGNE TITRE DE L''ETAT ANO')
     A                                      SKIPB(5) SPACEA(2)
     A                                    12'EDITE LE :'
     A                                    +1DATE EDTCDE(Y)
     A                                    40'LISTE DES PRODUITS EN ANOMALIE'
     A                                    74'DESTINATAIRE : XXXXX'
     A                                   105'PAGE'
     A                                    +1PAGNBR EDTCDE(Z)
     A          R ASTER                     TEXT('LIGNE ASTERISQUES') SPACEA(1)
     A                                    10'**********************************-
     A                                      ***********************************-
     A                                      ***********************************-
     A                                      *******'
     A          R TCOLONNE                  TEXT('LIGNE ENTETE DE COLONNE')
     A                                      SPACEA(1)
     A                                    10'*'
     A                                    14'CODE PRODUIT'
     A                                    33'*'
     A                                    37'TYPE MOUVEMENT'
     A                                    56'*'
     A                                    59'QTE MOUVEMENT'
     A                                    80'*'
     A                                    90'MESSAGE D''ANOMALIE'
     A                                   120'*'
     A          R PRODE                     TEXT('ANO D''ENTREE')
     A                                      SPACEA(1)
     A                                    10'*'
     A            CODPROD   R             18
     A                                    33'*'
     A                                    44'E'
     A                                    56'*'
     A            QTEMVT    R             63
     A                                    80'*'
     A                                    84'ENTREE SUR PRODUIT INEXISTANT'
     A                                   120'*'
     A          R PRODS                     TEXT('ANO / SORTIE') SPACEA(1)
     A                                    10'*'
     A            CODPROD   R             18
     A                                    33'*'
     A                                    44'S'
     A                                    56'*'
     A            QTEMVT    R             63
     A                                    80'*'

     A                                    84'SORTIE SUR PRODUIT INEXISTANT'
     A                                   120'*'
     A          R PRODANO                   TEXT('LIGNE TOTAL PRODUITS EN ANO')
                                            SPACEB(3)
     A                                    13'NOMBRE DE PRODUITS EN ANOMALIE'
     A            TOTPRODANOR             54
     A          R ENREGANO                  TEXT('LIGNE TOTAL ENREG EN ANO')
     A                                      SPACEB(2)
     A                                    13'NOMBRE D''ENREGISTREMENTS EN ANOMA-
     A                                      LIE'
     A            TOTENRANO R             51
                R ERROR                     TEXT('ERREUR SUR REECRITURE')
                                            SPACEA(1)
                  CODPROD   R             18
                                          44'ERREUR SUR TENTATIVE M.A.J'
                R INTERA                    TEXT('LIGNE INTERMEDIAIRE')
                                            SPACEA(1)
                                          10'*'
                                          33'*'
                                          56'*'
                                          80'*'
                                         120'*'