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