Muchas gracias Manuel!
Aclarado!
Saludos
---------- Forwarded message ---------
From: <[email protected]>
Date: vie., 2 ago. 2019 5:52
Subject: Resumen de Forum.help400, Vol 154, Envío 1
To: <[email protected]>
Envíe los mensajes para la lista Forum.help400 a
[email protected]
Para subscribirse o anular su subscripción a través de la WEB
http://listas.combios.es/cgi-bin/mailman/listinfo/forum.help400
O por correo electrónico, enviando un mensaje con el texto "help" en
el asunto (subject) o en el cuerpo a:
[email protected]
Puede contactar con el responsable de la lista escribiendo a:
[email protected]
Si responde a algún contenido de este mensaje, por favor, edite la
linea del asunto (subject) para que el texto sea mas especifico que:
"Re: Contents of Forum.help400 digest...". Además, por favor, incluya
en la respuesta sólo aquellas partes del mensaje a las que está
respondiendo.
Asuntos del día:
1. IF DEFINE RPGLE ([email protected])
2. Re: IF DEFINE RPGLE (Manuel Antonio Ramirez Raygada)
3. Re: IF DEFINE RPGLE (Alex Martínez)
----------------------------------------------------------------------
Message: 1
Date: Thu, 1 Aug 2019 09:17:36 -0400
From: [email protected]
Subject: IF DEFINE RPGLE
To: "forum.help400" <[email protected]>
Message-ID:
<CAEox1DVBjKKjaey2etnKc+VUo1wAhpixZ2E9Bx=9bjsc9n-...@mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
Hola
Alguien sabe para que se usa
Los comandos
/DEFINE
/IF
/ELSEIF
Según la documentación no me es muy claro. (condiciones de compilar ?)
Algun ejemplo?Un poco
Gracias
Saludos
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <
http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20190801/38dd3556/attachment-0001.html
>
------------------------------
Message: 2
Date: Thu, 1 Aug 2019 15:19:06 -0500
From: Manuel Antonio Ramirez Raygada <[email protected]>
Subject: Re: IF DEFINE RPGLE
To: "forum.help400" <[email protected]>
Message-ID:
<ca+iebquembdrbwhyyszt5cff0h4+yx-wodnetxjgxfocwdq...@mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
Buenas tardes Jose:
Los codigos de operacion DEFINE permiten duplicar caracteristicas de un
campo en otro
c *like define a_UNCACC k_UNCACC
c *like define a_UNCCUN k_UNCCUN
c *like define a_UNCRDY k_UNCRDY
c *like define a_UNCRDM k_UNCRDM
c *like define a_UNCRDD k_UNCRDD
c *like define d_ACMACC k_ACMACC
El campo especificado en el factor 2, duplicará las caracteristicas en el
campo especificado en el campo de resultado.
Los codigos de operacion IF y ELSEIF sirven para realizar validaciones.
*c if deasts=' ' and deapri>0*
c move deagln proref 16
c movel proref prdcta 4
c movel *blanks ctrcta 2
c eval ctrcta = %subst(proref:7:2)
*c if (prdcta='1414' or prdcta='1424') and c
fevede >= fecjob *c
eval Pcar06 = 'SI'
*c elseif (prdcta='1415' or prdcta='1425') and c
fevede < fecjob and ctrcta = '19' *
c eval Pcar06 = 'NO'
*c endif*
*c endif *
Espero que la explicacion sea de tu entera satisfaccion.
*Manuel A. Ramirez Raygada*
*Analista de Sistemas - AS400*
*UST GLOBAL PERU*
*LIMA - PERU*
El jue., 1 ago. 2019 a las 8:20, <[email protected]> escribió:
>
> Hola
> Alguien sabe para que se usa
> Los comandos
> /DEFINE
> /IF
> /ELSEIF
> Según la documentación no me es muy claro. (condiciones de compilar ?)
> Algun ejemplo?Un poco
> Gracias
> Saludos
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <
http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20190801/ec11f200/attachment.htm
>
------------------------------
Message: 3
Date: Fri, 2 Aug 2019 09:27:13 +0200
From: Alex Martínez <[email protected]>
Subject: Re: IF DEFINE RPGLE
To: "forum.help400" <[email protected]>
Message-ID:
<caecncbqz7tbqzmcllhvcpqfzz2tjhdztqo64ovx_vugkemk...@mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
Son directivas del compilador que permiten, por ejemplo, añadir o excluir
líneas de código durante la compilación
por ejemplo, para depurar un programa incluyes unas lineas de código que
sólo se ejecutan si al compilar el programa está lacondición definida
CRTBNDRPG DEFINE(depurar-botijo)
/if defined( depurar-botijo )
dsplog( 'valor de A : ' + %char( a )
/endif
El jue., 1 ago. 2019 a las 15:20, <[email protected]> escribió:
>
> Hola
> Alguien sabe para que se usa
> Los comandos
> /DEFINE
> /IF
> /ELSEIF
> Según la documentación no me es muy claro. (condiciones de compilar ?)
> Algun ejemplo?Un poco
> Gracias
> Saludos
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <
http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20190802/f2fd3785/attachment.htm
>
------------------------------
__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS.
&amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
Fin de Resumen de Forum.help400, Vol 154, Envío 1
*************************************************
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
