Re: controlar cpf's desde un RPG

Oscar Lauroba Mon, 06 May 2002 05:10:41 -0700

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

Re: controlar cpf's desde un RPG

Responder a