Cobol Foro - [Sintaxis] Ejecutar un programa RmCobol

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

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

- - [Sintaxis] Ejecutar un programa RmCobol (https://www.cobolforo.es/showthread.php?t=136)

Ejecutar un programa RmCobol

Buenas tardes.

Estoy intentando ejecutar un programa RmCobol desde PowerCobol.

empleo el siguiente comando:

Código COBOL:

        STRING "CMD /C START RUNCOBOL.EXE " DELIMITED BY SIZE
               "PRMCOBOL.COB "  DELIMITED BY SIZE
               INTO COMANDO.
 
        INVOKE POW-SELF "executesync" USING COMANDO POW-SWSHOWMAXIMIZED.

también empleo

Código COBOL:

        INVOKE CmddE1 "Execute" using COMANDO POW-SWSHOWMAXIMIZED.

El problema que tengo es que mientras se este ejecutando el Programa RmCobol no quiero que se ejecute más programas de PowerCobol ni de RmCobol.

Muchas gracias.

Es raro, porque Executesync, espera a que termine el programa llamado para devolver el control al programa llamador ... Has probado con CMD /K en vez de CMD /C, la diferencia entre uno y otro es que el primero ejecuta y finaliza y el segundo ejecuta y sigue.

Un saludo.-

Confirmo, que ExecuteSync ejecuta en Sincronizado - espera a que termine la ejecucion del llamado.

Acabo de encontrar la solución:

Código COBOL:

        MOVE SPACES TO COMANDO
        STRING "CMD /C RUNCOBOL.EXE " DELIMITED BY SIZE
               "PRMCOBOL.COB "  DELIMITED BY SIZE
               INTO COMANDO.
        
        INVOKE POW-SELF "executesync" USING COMANDO POW-SWHIDE
        
        INVOKE POW-SELF "CLOSEFORM".

Recato53, no entiendo que tiene que ver con tu pregunta inicial. POW-SWHIDE lo que hace es ejecutar en modo fantasma, no abre ventana (si no me equivoco)... Tu preguntabas por como ejecutar programa externo como en "CallForm" y no "OpenForm" de PowerCOBOL?! :yoquese:

Por cierto, usa los TAG-s, para COBOL hay un botoncito en el editor. ;)

Cita:

Citación del post de Recato53 (Mensaje 586)

Acabo de encontrar la solución:

Código COBOL:

        MOVE SPACES TO COMANDO
        STRING "CMD /C RUNCOBOL.EXE " DELIMITED BY SIZE
               "PRMCOBOL.COB "  DELIMITED BY SIZE
               INTO COMANDO.
        
        INVOKE POW-SELF "executesync" USING COMANDO POW-SWHIDE
        
        INVOKE POW-SELF "CLOSEFORM".

Con esta programación consigo ejecutar el programa en RmCobol y que no se pueda ejecutar nigún programa en PowerCobol. Ademas no parece la ventana NEGRA de MS/DOS.

Recato53, eeeso si! ;) Te aconsejo que añadas el codigo que te dejo abajo (mira los comentarios), para que el usuario vea que hay trabajao en curso y ademas no pueda hacer clock en el Form mientras que el programa RM esta trabajando:

Código COBOL:

*--> BLOQUEAMOS VENTANA, PUNTERO DE ESPERA
     MOVE POW-FALSE   TO "Enabled"      OF POW-SELF
     MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
     
     MOVE SPACES TO COMANDO
     
     STRING "CMD /C RUNCOBOL.EXE PRMCOBOL.COB" 
         DELIMITED BY SIZE INTO COMANDO.
       
     INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWHIDE
     
*--> DESBLOQUEAMOS VENTANA, PUNTERO POR DEFECTO
     MOVE POW-TRUE       TO "Enabled"      OF POW-SELF
     MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF
     
*----------------------------------------------------
     INVOKE POW-SELF "CloseForm".

Muy Bueno!!. Gracias a los Dos. !!

Cita:

Citación del post de Kuk (Mensaje 589)

Código COBOL:

*--> BLOQUEAMOS VENTANA, PUNTERO DE ESPERA
     MOVE POW-FALSE   TO "Enabled"      OF POW-SELF
     MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
     
     MOVE SPACES TO COMANDO
     
     STRING "CMD /C RUNCOBOL.EXE PRMCOBOL.COB" 
         DELIMITED BY SIZE INTO COMANDO.
       
     INVOKE POW-SELF "ExecuteSync" USING COMANDO POW-SWHIDE
     
*--> DESBLOQUEAMOS VENTANA, PUNTERO POR DEFECTO
     MOVE POW-TRUE       TO "Enabled"      OF POW-SELF
     MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF
     
*----------------------------------------------------
     INVOKE POW-SELF "CloseForm".

Después de ejecutar el Programa en RmCobol, cuando vuelve al formulario de PowerCobol, este se queda en la Barra de Herramientas y hay que pincharle para seguir trabajando con el resto de Formularios creados en PowerCobol. Com puedo solucionar este problema.

Muchas gracias.