RE: controlar cpf's desde un RPG

Alex . Corretge Mon, 06 May 2002 07:22:20 -0700

Ah, te adjunto el prototipo para utlizar de una manera m�s c�moda dicha
API:

(See attached file: [EMAIL PROTECTED])(See attached file:
[email protected])

Con lo que tus programas haran
Eval CPF = @ExecCmd(tumandato)

siendo CPF de 7a

fins aviat....
�lex Corretg�




"Miquel Lerin" <[EMAIL PROTECTED]>@QUIJOTE.COMBIOS.ES con fecha 06/05/2002
15:55:10

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

=09

-----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=E1s utilizando ILE, otra manera es llamar a la API QCAPCMD que =
retorna
el codigo de error si es que ha ocurrido, y adem=E1s ejecuta el mandato =
en el
grupo de activaci=F3n desde donde se ha llamado, no como el QCMDEXC que
siempre se ejecuta como OPM.

fins aviat...
=C0lex Corretg=E9





"Miquel Lerin" <[EMAIL PROTECTED]>@QUIJOTE.COMBIOS.ES con fecha 06/05/2002
14:33:19

Por favor, responda a [EMAIL PROTECTED]

Tram=E8s per:    [EMAIL PROTECTED]


Destinataris:     <[EMAIL PROTECTED]>
C=F2pia:

Classificat:  |----------------|
              | ( ) Important  |
              | ( ) urgent     |
              | ( ) hist=F2ric   |
              | ( ) temporal   |
              | ( ) bretolada  |
              | ( ) particular |
              |----------------|
Assumpte: RE: controlar cpf's desde un RPG




=A0=A0=A0=A0=A0=A0=A0 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:

=A0=A0=A0=A0  I=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  SDS
=A0=A0=A0=A0  =
I=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  40=A0 46  IDMSG
=A0=A0=A0=A0  =
I=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  91 170 ERRMSG
=A0=A0=A0=A0  I*
=A0=A0=A0=A0  I=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  'CLRPFM =
(MILIB/MIARCH-C=A0=A0=A0=A0=A0=A0=A0=A0  MDTO01
=A0=A0=A0=A0  I=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  'IVO)'
=A0=A0=A0=A0  C*
=A0=A0=A0=A0  =
C=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  =
MOVELMDTO01=A0=A0=A0  MDATO
=A0=A0=A0=A0  =
C=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  CALL  =
'QCMDEXC'=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  30=A0=A0 POR MENOR
=A0=A0=A0=A0  =
C=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  =
PARM=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 MDATO=A0  80
=A0=A0=A0=A0  =
C=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  PARM =
80=A0=A0=A0=A0=A0=A0=A0 LONG=A0=A0  155
=A0=A0=A0=A0 C*=A0 SI  ERROR
=A0=A0=A0=A0  C=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  *IN30=A0=A0=A0=A0 IFEQ  =
*ON
=A0=A0=A0=A0  C*=A0=A0=A0=A0=A0En IDMSG y ERRMSG est=E1 =
el=A0identificador  de mensaje y su
=A0=A0=A0=A0  C*=A0=A0=A0=A0=A0texto correspondiente
=A0=A0=A0=A0  =
C=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  ENDIF
=A0=A0=A0=A0  C*
=A0=A0=A0=A0  =
C=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  =
SETON=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0  LR

No s=E9 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=E1s de NEWS/400.
=A9 Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja, env=EDa el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=3DAVE

_____________________________________________________
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
=?iso-8859-1?Q?[EMAIL PROTECTED]?=
Description: Binary data
[email protected]?=
Description: Binary data
RE: controlar cpf's desde un RPG

Responder a
