Miguel, podrias pasar los parametros de la API QCAPCMD
gracias > -----Mensaje original----- > De: Miquel Lerin [SMTP:[EMAIL PROTECTED]] > Enviado el: Lunes, 06 de Mayo de 2002 10:55 a.m. > Para: [EMAIL PROTECTED] > Asunto: RE: controlar cpf's desde un RPG > > Gracias Alex, lo voy a probar. La solucion que he adoptado es mediante la >subrutina > *PSSR, la cual se ejecuta automaticamente cuando se produce un error dentro >del pgm. > > > > -----Mensaje original----- > De: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED]] > Enviado el: lunes, 06 de mayo de 2002 15:47 > Para: [EMAIL PROTECTED] > Asunto: RE: controlar cpf's desde un RPG > > > > Si est�s utilizando ILE, otra manera es llamar a la API QCAPCMD que retorna > el codigo de error si es que ha ocurrido, y adem�s ejecuta el mandato en el > grupo de activaci�n desde donde se ha llamado, no como el QCMDEXC que > siempre se ejecuta como OPM. > > fins aviat... > �lex Corretg� > > > > > > "Miquel Lerin" <[EMAIL PROTECTED]>@QUIJOTE.COMBIOS.ES con fecha 06/05/2002 > 14:33:19 > > Por favor, responda a [EMAIL PROTECTED] > > Tram�s per: [EMAIL PROTECTED] > > > Destinataris: <[EMAIL PROTECTED]> > C�pia: > > Classificat: |----------------| > | ( ) Important | > | ( ) urgent | > | ( ) hist�ric | > | ( ) temporal | > | ( ) bretolada | > | ( ) particular | > |----------------| > Assumpte: RE: controlar cpf's desde un RPG > > > > > Gracias Oscar, perdona que no me haya autocontestado. Ya lo tengo > arreglado. Lo hago a traves de la subrutina *PSSR. > > -----Mensaje original----- > De: Oscar Lauroba [mailto:[EMAIL PROTECTED]] > Enviado el: lunes, 06 de mayo de 2002 14:35 > Para: [EMAIL PROTECTED] > Asunto: Re: controlar cpf's desde un RPG > > > Si lo que quieres es simplemente controlar que no de error el programa > RPG, puedes > hacer lo siguiente: > > En este ejemplo se quiere limpiar un archivo que no existe: > > I SDS > I 40 46 IDMSG > I 91 170 ERRMSG > I* > I 'CLRPFM (MILIB/MIARCH-C MDTO01 > I 'IVO)' > C* > C MOVELMDTO01 MDATO > C CALL 'QCMDEXC' 30 POR MENOR > C PARM MDATO 80 > C PARM 80 LONG 155 > C* SI ERROR > C *IN30 IFEQ *ON > C* En IDMSG y ERRMSG est� el identificador de mensaje y su > C* texto correspondiente > C ENDIF > C* > C SETON LR > > No s� si es lo que buscabas, pero espero que te sirva. > Un saludo, Oscar. > > > ----- Original Message ----- > From: "Miquel Lerin" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Friday, May 03, 2002 11:54 AM > Subject: controlar cpf's desde un RPG > > > > > > > > Buenos dias foreros, alguien me podria explicar como puedo controlar un > > cpf desde rpg. > > > > > > Me explico. Estoy ejecutando mandatos del OS/400 desde un programa > > escrito en RPG y necesitaria > > controlar las diferentes anomalias que me puede dar la ejecucion de un > > mandato. > > > > > > > > Gracias. > > > > > > > > > > > > _____________________________________________________ > Forum.HELP400 es un servicio m�s de NEWS/400. > � Publicaciones Help400, S.L. - Todos los derechos reservados > http://www.help400.es > _____________________________________________________ > > Para darte de baja, env�a el mensaje resultante de pulsar > mailto:[EMAIL PROTECTED]?body=AVE > > _____________________________________________________> > Forum.HELP400 es un servicio m�s de NEWS/400. > � Publicaciones Help400, S.L. - Todos los derechos reservados > http://www.help400.es > _____________________________________________________ > > Para darte de baja, env�a el mensaje resultante de pulsar > mailto:[EMAIL PROTECTED]?body=AVE La informacion contenida en este correo es para uso exclusivo de los destinatarios del mismo. Esta prohibido a las personas o entidades que no sean los destinatarios de este correo, realizar cualquier tipo de modificacion, copia o distribucion del mismo. Si Usted recibe este correo por error, tenga bien notificar al emisor y eliminarlo. _____________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]?body=LEAVE
