A ver si te sirve esto lo saque de algún ejemplo del as400 :
5761WDS V7R1M0 100416 LISTADO FUENTE SEU
06/11/15 18:46:42 CAMACHO PµG. 1
MIEMBRO . . . . . . . . . ARRE983R
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 HDECEDIT('0,') DATEDIT(*DMY.)
09/01/01
200
**********************************************************************
20/12/99
300 ** Realizado por: Fco.Jose Medina Barajas para EXCL.CAMACHO,S.L
** 06/06/01
400 ** Fecha. . . . : 21 DE MAYO DEL 2010
** 21/05/10
500
**********************************************************************
20/12/99
800 FQsys198 O F 198 PRINTER OFLIND(*INOF)
05/04/11
900 * Fichero Detalle de Modificacion
20/04/10
1500 * Busca em Maestro Articulo
21/05/10
1800 * Nueva Busqueda Precio Vigente
21/05/10
1801 D DS
05/04/11
1802 D pDataEntrada D
05/04/11
1803 *
05/04/11
1804 D SemanaNum S 2 0
05/04/11
1805 D miFechaISO S 10
05/04/11
1806 *
05/04/11
1807 c *ENTRY PLIST
05/04/11
1808 c PARM pfecha 8
05/04/11
1810 c PARM pSemana 2
05/04/11
1836 * Tengo un campo AAAAMMDD y se pasa a Formato ISO para convertir
a 05/04/11
1837 * CampoFecha.
05/04/11
1838 c eval miFechaISO = %subst(pfecha: 1: 4) +
'-' 05/04/11
1839 c + %subst(pfecha: 5: 2) + '-'
05/04/11
1840 c + %subst(pfecha: 7: 2)
05/04/11
1841 c eval pDataEntrada= %date(miFechaISO:*ISO)
05/04/11
1842 c/EXEC SQL
05/04/11
1843 + set :SemanaNum = Week_ISO(:pDataEntrada)
05/04/11
1844 c/END-EXEC
05/04/11
1845 c move SemanaNum pSemana
05/04/11
1846 *
----* 05/04/11
1847 c except LISLOG1
05/04/11
1848 *
----* 05/04/11
1849 C SETON
LR 05/04/11
4000 *
----* 20/04/10
4100 Oqsys198 E LISLOG1
20/04/10
4200 o pFecha + 1
05/04/11
4300 o pSemana + 1
05/04/11
* * * * F I N D E F U E N T E * * * *
_
De: [email protected]
[mailto:[email protected]] En nombre de Roberto Palomino
Enviado el: viernes, 06 de noviembre de 2015 18:40
Para: forum. help400
Asunto: Día de la semana rpgile
Buenas tardes Foreros, mi pregunta es si hay alguna función que me devuelva el
nro de día de la semana, a partir de una fecha. Si no la ubiera como le hago?.
Por ejemplo:
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en cuenta
que el día 01 fue el domingo pasado.
De antemano gracias
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
