Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > NetCOBOL for Windows
NetCOBOL for Windows El IDE basado en Eclipse.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] Fujitsu PowerCOBOL V3L10 para Windows 7 x86/x64 Kuk PowerCOBOL V3L10 (Win32) 15 13 de abril de 2018 02:55
[Compilador] Fujitsu Cobol & Sqlite Joseg PowerCOBOL (ActiveX, v4 - v11) 12 7 de febrero de 2018 09:08
[Sintaxis] CALL a programas externos en Windows 8 Gusaiello AcuCobol 8 28 de diciembre de 2017 18:08
[Compilador] Fujitsu Cobol / Webservices Joseg PowerCOBOL (ActiveX, v4 - v11) 5 3 de marzo de 2016 12:28
[Compilador] Fujitsu COBOL v4.x (COBOL97) Kuk PowerCOBOL (ActiveX, v4 - v11) 6 9 de septiembre de 2015 01:12
Respuesta
 
Herramientas

  #1
Antiguo 27 de octubre de 2016, 12:45
IDENTIFICATION DIVISION
Joseg
Novato Senior
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad01.10.2019 09:37
PROCEDURE DIVISION
PostsPosts: 162
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 46
Mejores respuestasSoluiones: 9
Medallas recibidas: 1Medallas: Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ReputaciónReputación: 9
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado Fujitsu Cobol for Windows Call EXE

Alguém sabe como chamar um EXE (qualquer executável), num programa em Cobol.
O mesmo que se faz no Power: pow-self "execute" commandline


Grcias
Joseg no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 29 de octubre de 2016, 22:18
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 20:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ReputaciónReputación: 13
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Joseg,

Utilizei este código nos WebServices das Guias de transporte

Na Working Storage
Código COBOL:
  1.  01 ProcessInfo.
  2.    02 prcinf01   PIC 9(9) COMP-5.
  3.    02 prcinf02   PIC 9(9) COMP-5.
  4.    02 prcinf03   PIC 9(9) COMP-5.
  5.    02 prcinf04   PIC 9(9) COMP-5.
  6.  01 StartupInfo.
  7.    02 stainf01   PIC 9(9) COMP-5.
  8. *
  9.    02 stainf02   PIC 9(9) COMP-5.
  10.    02 stainf03   PIC 9(9) COMP-5.
  11.    02 stainf04   PIC 9(9) COMP-5.
  12. *
  13.    02 stainf05   PIC 9(9) COMP-5.
  14.    02 stainf06   PIC 9(9) COMP-5.
  15.    02 stainf07   PIC 9(9) COMP-5.
  16.    02 stainf08   PIC 9(9) COMP-5.
  17.    02 stainf09   PIC 9(9) COMP-5.
  18.    02 stainf10   PIC 9(9) COMP-5.
  19.    02 stainf11   PIC 9(9) COMP-5.
  20.    02 stainf12   PIC 9(9) COMP-5   VALUE 1.
  21.    02 stainf13   PIC 9(4) COMP-5   VALUE 0.
  22.    02 stainf14   PIC 9(4) COMP-5.
  23.    02 stainf15   PIC 9(9) COMP-5.
  24. *
  25.    02 stainf16   PIC 9(9) COMP-5.
  26.    02 stainf17   PIC 9(9) COMP-5.
  27.    02 stainf18   PIC 9(9) COMP-5.
  28.  01 appPath      PIC X(256) VALUE SPACE.
  29.  01 pathLeng     PIC S9(9) COMP-5.
  30.  01 cmdline      PIC X(256) VALUE SPACE.
  31.  01 cmdlinLeng   PIC S9(9) COMP-5.

E na Procedure:


Código COBOL:
  1.      CALL "CreateProcessA" WITH STDCALL LINKAGE
  2.                                    USING BY REFERENCE appPath
  3.                                          BY VALUE 0                    
  4.                                          BY VALUE 0
  5.                                          BY VALUE 0
  6.                                          BY VALUE 0
  7.                                          BY VALUE 0
  8.                                          BY VALUE 0
  9.                                          BY VALUE 0
  10.                                          BY REFERENCE StartupInfo
  11.                                          BY REFERENCE ProcessInfo
  12.                                    RETURNING WSRESULT.
  13. *
  14.      IF WSRESULT = 1 THEN
  15.         CALL "WaitForSingleObject" WITH STDCALL LINKAGE USING BY VALUE prcinf01 -1
  16.         CALL "GetExitCodeProcess" WITH STDCALL LINKAGE USING BY VALUE prcinf01 BY REFERENCE WSRESULT
  17.         CALL "CloseHandle" WITH STDCALL LINKAGE USING BY VALUE prcinf01
  18.         CALL "CloseHandle" WITH STDCALL LINKAGE USING BY VALUE prcinf02
  19.      ELSE
  20.         CALL "GetLastError" WITH STDCALL LINKAGE RETURNING WSRESULT
  21.         DISPLAY "Failed in execution " appPath(1:pathLeng)
  22.         DISPLAY "Return code is '" WSRESULT "'."
  23.         GO TO MAIN-99-EXIT
  24.      END-IF.

Vê se ajuda ou não.

Abraço,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk ( 8 de febrero de 2017)
Respuesta

Tags
call , exe , execute


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 12:17.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.