Cancelar proceso en bucle desde otro Form

[Fito]

Hola Amigos:

Una consulta. Cuando se realiza un proceso quisiera que me aparezca una ventana con un mensaje indicando que se está realizando un proceso y que ésta tenga un botón cancelar y asi poder cortar el proceso que se está realizando.

Alguien sabe cómo prodría hacer eso?

Gracias.
Saludos.

Fito...

[Kuk]

Fito, en tu tratamiento principal haces:


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EXT-CANCELAR IS EXTERNAL PIC X(1).
PROCEDURE DIVISION.

MOVE POW-FALSE TO "Enabled" OF POW-SELF

MOVE "N" TO EXT-CANCELAR

INVOKE POW-SELF "OpenForm" USING "FORM-ESPERE"

PERFORM UNTIL ... OR EXT-CANCELAR = "S"
...

INVOKE POW-SELF "ThruEvents"
END-PERFORM

INVOKE POW-SELF "CloseForm" USING "FORM-ESPERE"

MOVE POW-TRUE TO "Enabled" OF POW-SELF


En tu Form de "Espera", en el botón de cancelar el tratamiento haces:

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EXT-CANCELAR IS EXTERNAL PIC X(1).
PROCEDURE DIVISION.

MOVE "S" TO EXT-CANCELAR

[Fito]

Hola KUK:

No sabía que desde un formulario podás cerrar otro, simpre se aprenden cosas. Funciona muy bien.

Gracias.

Fito...