CALL en OPENCOBOLIDE 4.7.6 da error (no encuentra)

[JCantero]

@Lavronacín, pues dentro del subprograma _1 haces un call a subprograma-1-1.

Que problema te surge ?

[Lavronacín]

Pues, el mismo mensaje de "No encuentañra punto de entrada". Tanto subprograma_1 como subprograma_1_1 han sido compilados como módulos (dll)

[JCantero]

@Lavronacín, te pongo un ejemplo que funciona.

Atencion, el nombre del programa debe de estar bien escrito para identificarlo. Me refiero al "program-id. mundo2". "END PROGRAM mundo2." lo puedes suprimir.

Prueba y me dices si algo no te funciona. O pasa un ejemplo.

Programa inicial:

      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. mundo1.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 indice pic 9.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY "Hello world 1"
            ACCEPT indice.
            call 'mundo2'.
            STOP RUN.
       END PROGRAM mundo1.
 

Programa llamado:

      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. mundo2.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 indice pic 9.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            DISPLAY "Hello world 2"
            ACCEPT indice.
            
            STOP RUN.
       END PROGRAM mundo2.

[JCantero]

@Lavronacín, otra cosa.....

Los programas llamados tienen que estar como modulos. O sea como .dll

El programa inicial como ejecutable. O sea como .exe

[Lavronacín]

Así mismo están
Y el mensaje sale "No encuentra punto de entrada". ¿Desde un .DLL se puede llamar a otro .DLL?

[JCantero]

@Lavronacín, si pero solo desde el entorno de trabajo.

Si lo pones en producción y lo ejecutas desde la linea de comandos el primer programa debe de ser .exe, el resto modulos .dll

Te funciona el ejemplo que te he enviado ?

Si no te funciona tu programa pon aqui lo que no te funciona para que veamos el problema.

[Lavronacín]

Estimado, buen día.
Disculpa que no pude responder antes. Mira: te pongo fuentes de ejemplo de lo que deseo implementar:
Nota: El programa principal lo compilo como ejecutable, los otros como DLL. Y tanto el Exe como los DLL están en la misma carpeta.
Programa Principal:
---------------------

      ******************************************************************
      * Author: Lavronacin
      * Date: 31/07/2023
      * Purpose: Verificar llamadas de subprogramas
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRGEjem01.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77  Aceptar_Opcion    Pic X(01) Value Spaces.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            Display " " Blank Screen Line 01 column 01.
            Display "Soy el programa principal PRGEjem01"
                    Line 09 column 05
            Display "Voy a llamar a PRGEjem01_01" 
                     line 10 column 05.
            Accept Aceptar_Opcion line 10 column 79.
            Call "bin\PRGEjem01_01".
            STOP RUN.
       END PROGRAM PRGEjem01.

Subprograma de nivel 1 que quiero ejecutar:
---------------------------

******************************************************************
      * Author: Lavronacin
      * Date: 31/07/2023
      * Purpose: Verificar llamadas de subprogramas
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRGEjem01_01.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77  Aceptar_Opcion    Pic X(01) Value Spaces.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            Display "Soy el programa PRGEjem01_01"
                    Line 12 column 10
            Display "Voy a llamar a PRGEjem01_A" 
                     line 13 column 10.
            Display " Y voy a llamar a PRGEjem01_B" 
                     line 14 column 10.
            Accept Aceptar_Opcion line 14 column 79.
            Call "PRGEjem01_A".
            Call "PRGEjem01_B"
            STOP RUN.
       END PROGRAM PRGEjem01_01.

Subprograma de nivel 2 que quiero ejecutar:
----------------------------------------------

******************************************************************
      * Author: Lavronacin
      * Date: 31/07/2023
      * Purpose: Verificar llamadas de subprogramas
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRGEjem01_A.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77  Aceptar_Opcion    Pic X(01) Value Spaces.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            Display "Soy el programa PRGEjem01_A"
                    Line 16 column 10
            Display "me llamó PRGEjem01_01" 
                     line 17 column 10.
            Accept Aceptar_Opcion line 17 column 79.
            STOP RUN.
       END PROGRAM PRGEjem01_A.

Otro subprograma de nivel 2 que quiero ejecutar:
-----------------------------------------------------

******************
      * Author: Lavronacin
      * Date: 31/07/2023
      * Purpose: Verificar llamadas de subprogramas
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRGEjem01_B.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77  Aceptar_Opcion    Pic X(01) Value Spaces.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
            Display "Soy el programa PRGEjem01_B"
                    Line 19 column 10
            Display "me llamó PRGEjem01_01" 
                     line 20 column 10.
            Accept Aceptar_Opcion line 20 column 79.
            STOP RUN.
       END PROGRAM PRGEjem01_B.

[JCantero]

@Lavronacín, asi no

Call "bin\PRGEjem01_01".

asi si

Call "PRGEjem01_01".

y verifica que esta compilado como modulo y existe el .DLL