Cobol Foro - [Sintaxis] Cancelar proceso en bucle desde otro Form

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Cancelar proceso en bucle desde otro Form (https://www.cobolforo.es/showthread.php?t=711)

Cancelar proceso en bucle desde otro Form

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...

Fito, en tu tratamiento principal haces:

Código COBOL:

 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:

Código COBOL:

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

Hola KUK:

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

Gracias.

Fito...