Gracies.-----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Enviado el: lunes, 06 de mayo de 2002 16:32 Para: [EMAIL PROTECTED] Asunto: RE: controlar cpf's desde un RPG 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 _____________________________________________________ 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
