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> 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.