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=LEAVE
