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