PERFORM TEST AFTER UNTIL EFETIVAR
                                 OR ABORTAR
               EVALUATE TRUE
                   WHEN ALTERACAO
                        EXEC COBOLware Send
                             Message "Confirma alteração ?"
                             Option 2
                             Caption(1) "   ~Ok___"
                             Caption(2) "~Cancelar"
                             OPTION-CHAR;COMANDO
                        END-EXEC
                   WHEN EXCLUSAO
                        EXEC COBOLware Send
                             Message "Confirma exclusão ?"
                             Option 2
                             Caption(1) "   ~Ok___"
                             Caption(2) "~Cancelar"
                             OPTION-CHAR;COMANDO
                        END-EXEC
                   WHEN INCLUSAO
                        EXEC COBOLware Send
                             Message "Confirma inclusão ?"
                             Option 2
                             Caption(1) "   ~Ok___"
                             Caption(2) "~Cancelar"
                             OPTION-CHAR;COMANDO
                        END-EXEC
               END-EVALUATE
           END-PERFORM.