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.

Responder a