Hola José Ignacio :
Ya me funciona, no lo ponía bien, lo he puesto así :
CALL LINKAGE TYPE IS PROCEDURE 'LLAMA2ILE'.
Muchas gracias!!
Saludos,
Javier
From: Javier Baca
Sent: jueves, 25 de enero de 2018 12:58
To: forum.help400@listas.combios.es
Subject: FW: Error en ILE COBOL al llamar a otro ILE COBOL
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>
[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<mailto: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.
