EVALUATE TRUE
      *CONTROLE DISPO
                                 WHEN W-WW00-BB8 = '1'
                                   AND W-FA-MTRVNE > WS02-MCDO6
                                   AND W-WW00-SQ10 = '1'
      *MISE A '0' DU XTOPMAJ (SQ10)
                                   PERFORM F95NQ THRU F95NQ-FN
                                   GO TO F75-FN
                                 WHEN W-WW00-BB8 = '1'
                                   AND W-FA-MTRVNE > WS02-MCDO6
                                   AND W-WW00-SQ10 = '0'
      *REECRITURE DU SQ10
                                   PERFORM F91SW
                                   GO TO F75-FN
                                 WHEN W-WW00-LOR NOT = '1'
                                   OR W-FA-MTRVNE <= WT22-MCDO6
                                   CONTINUE
                                 WHEN W-WW00-SQ10 = '1'
      *MISE A '0' DU XTOPMAJ (SQ10)
                                   PERFORM F95NQ THRU F95NQ-FN
                                   GO TO F75-FN
                                 WHEN W-WW00-SQ10 = '0'
      *REECRITURE DU SQ10
                                   PERFORM F91SW
                                   GO TO F75-FN
                                 WHEN OTHER
                                   CONTINUE
                               END-EVALUATE