Cobol Foro - [Sintaxis] Ralentizar el evento

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

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

- - [Sintaxis] Ralentizar el evento (https://www.cobolforo.es/showthread.php?t=926)

Ralentizar el evento

Hola.
Intento enviar dos mail consecutivos mediante el dde-word
Hago una llamada al sistema y utilizo el programa Blat para enviar el correo.
A continuacion lo vuelvo a enviar a una segunda direccion de correo.

El problema que tengo es que lo hace tan rapidamente que solo sale uno de ellos, omitiendo el otro.
Quisiera que enviara el primero y pasen unos segundos para enviar el segundo .

Mediante el comando

Código COBOL:

         MOVE PARAMETROS-EMAIL TO DDE-WORD.
 
     INVOKE CmDDE2 "Execute" USING DDE-WORD POW-SWSHOWMAXIMIZED RETURNING ReturnValue.
* Start timer
     COMPUTE SW-TIMER = 1.
     
     MOVE POW-TRUE TO  "Active" OF CmTimer1.
          PERFORM UNTIL SW-TIMER = 0 END-PERFORM.     *>RETRASO LA ACCION 
                                                                             *>PERO SE QUEDA EN BUCLE
     MOVE POW-FALSE TO "Active" OF CmTimer1.
 
*cambio PARAMETROS-EMAIL 
MOVE PARAMETROS-EMAIL TO DDE-WORD.
 
     INVOKE CmDDE2 "Execute" USING DDE-WORD POW-SWSHOWMAXIMIZED RETURNING ReturnValue.
 
*

Código COBOL:

**************timer
 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 SW-TIMER     PIC 99  GLOBAL EXTERNAL.
 
 PROCEDURE       DIVISION.
     DISPLAY SW-TIMER .
     COMPUTE SW-TIMER = 0.

Lo intento ralentizar con el timer, pero el evento se queda en bucle .

Como podria darle tiempo a que salieran los dos correos?

Gracias.

Hola:

Por qué en vez de usar un control DDE, no usas el método "ExecuteSync" del formulario?

Código COBOL:

INVOKE pow-self "ExecuteSync" USING CommandLine [Show] RETURNING ReturnValue

Saludos.

Fito...

Breew, también puedes usar la API sleep: Sleep function | Microsoft Docs

Código COBOL:

     CALL "Sleep" WITH STDCALL USING BY VALUE 1000 *> en milisegundos, 1000 = 1 segundo

Hola Fito.

Ahora funciona correctamente.
¿ Que diferencia hay entre usar una y otra ?

Gracias

---------- Post added at 22:41 ---------- Previous post was at 22:30 ----------

Hola Kuk.

Me lo voy a mirar con cariño, ya que creo que es muy interesante para enviar/ocultar mensajes al usuario.

Con el timer, no me acabo de aclarar muy bien ;-)

Gracias

Hola:

En el Formulario tenemos dos métodos para llamar procesos externos, el "Execute" y el "ExecuteSync". El primero funciona igua que el del control DDE, llama y sigue el flujo de tu programa. En cambio el segundo llama y espera que termine el proceso llamado para seguir.

Saludos.

Fito...