Hola José Ignacio :

He probado lo que dices pero me sigue saliendo el error :
“No puede resolverse la referencia al objeto LLAMA2ILE. Tipo y Subtipo X'0...
Se ha producido una excepción no supervisada en la línea 46”

PROCEDURE DIVISION.
INICIO.
    MOVE 'A' TO PAR1.
    MOVE 'B' TO PAR2.
    CALL LINKAGE TYPE IS PROGRAMA 'LLAMA2ILE'.
    DISPLAY 'A=' PAR1.
    DISPLAY 'B=' PAR2.
    STOP RUN.

Saludos,
Javier


From: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] On Behalf Of José Ignacio 
Lázaro
Sent: miércoles, 24 de enero de 2018 15:43
To: forum.help400 <forum.help400@listas.combios.es>
Subject: Re: Error en ILE COBOL al llamar a otro ILE COBOL

Las llamadas a procedimientos se hacen con call linkage procedure
Un saludo.
José Ignacio.

El 24/1/2018 11:52 a. m., "Javier Baca" 
<javier.b...@bcndepot.com<mailto:javier.b...@bcndepot.com>> escribió:
Buenos días :

Estamos intentando meternos en ILE/COBOL y tenemos problemas con algo tan 
básico como llamar a otro ILE COBOL.
Os explicamos brevemente en qué consiste nuestra prueba :
El programa LLAMA1ILE llama a LLAMA2ILE.
Creamos cada programa en un módulo separado y creamos programa LLAMA.
Pero, al ejecutar LLAMA, da el siguiente error :
No puede resolverse la referencia al objeto LLAMA2ILE. Tipo y Subtipo
  X'0201' Autorización X'0000'.
Error de función. MCH3401 no supervisado por LLAMA en la sentencia
  0000000021, instrucción X'0000'.
Mensaje 'MCH3401' en programa 'LLAMA' de la biblioteca 'JAVI' (C D F G).

LLAMA1ILE :
…
CALL 'LLAMA2ILE'.
STOP RUN.

Creo módulo con :
CRTCBLMOD MODULE(JAVI/LLAMA1ILE)
          SRCFILE(JAVI/QRPGSRC)
          SRCMBR(LLAMA1ILE)
          DBGVIEW(*LIST)

LLAMA2ILE :
PROCEDURE DIVISION.
INICIO.
    MOVE '1' TO WP1.
    MOVE '2' TO WP2.
    EXIT PROGRAM.

Creamos módulo con :
CRTCBLMOD MODULE(JAVI/LLAMA2ILE)
          SRCFILE(JAVI/QRPGSRC)
          SRCMBR(LLAMA2ILE)
          DBGVIEW(*LIST)

LLAMA :
Creamos programa con :
CRTPGM PGM(JAVI/LLAMA)
       MODULE(JAVI/LLAMA1ILE JAVI/LLAMA2ILE)

¿Alguien nos podría ayudar por favor?

Saludos y gracias por anticipado,

Javier


____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a