Cobol Foro - [Sintaxis] Equivalente al comando System de RM Cobol

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

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

- - [Sintaxis] Equivalente al comando System de RM Cobol (https://www.cobolforo.es/showthread.php?t=439)

apetro

20 de julio de 2016 23:19

Equivalente al comando System de RM Cobol

Buenos Dias
Estoy tratando de pasar algunos programas que tengo en RM85 a Netcobol

Desde un formulario llamo a un programa que utiliza 6 ficheros y ejecuta algunos comandos System.

Ese programa lo he compilado con Pgem sin errores y he obtenido un .obj al cual llamo desde el form.

Cuando compilo el form me da el siguiente error
adm.obj error LNK 2001 unresolved external symbol _SYSTEM
FATAL ERROR LNK1120

No he encontrado la forma de transformar el .obj en .exe para probar si funciona como lo hacia en RM.

Desde ya agradezco la ayuda que puedan brindarme.

Josber

21 de julio de 2016 07:58

Lo puedes hacer con Execute ó ExecuteSync, por ejemplo

Código COBOL:

        STRING "notepad.exe "
               FILE-TEXT
               DELIMITED BY SIZE INTO FICTEXT
        END-STRING
        INVOKE POW-SELF "Execute" USING FICTEXT POW-SWSHOWMAXIMIZED

La diferencia entre uno y otro es que ExecuteSync no te deja volver al programa hasta que no se ha completado y cerrado el comando, (o llamada) y Execute si deja.

POW-SWSHOWMAXIMIZED es para que lo ejecute a pantalla completa, lo puedes cambiar por POW-SWHIDE, POW-SWSHOWNORMAL y POW-SWSHOWMINIMIZED.

Un saludo.-

La franja horaria es GMT +2. Ahora son las 23:39.