| Categoría : Programación
Autor : Oswaldo
Título : Primer dia del mes y ultimo dia del
mes
Descripción del truco:
De forma estructurada, asignamos 2 variables que contengan
la fecha inicial del mes y la fecha final del mes (fechas
validas) del mes anterior
/*-------------------------------------------------------------------------
* Definicion de campos de trabajo
*-------------------------------------------------------------------------
D ds
D WAnoInicial 4s 0
D WMesInicial 2s 0
D WDiaInicial 2s 0
D WFechaInicial 1 8s 0 inz(0)
D ds
D WAnoFinal 4s 0
D WMesFinal 2s 0
D WDiaFinal 2s 0
D WFechaFinal 1 8s 0 inz(0) /free
WFechaInicial=%int(%char((%date(*datei) - % months(1)):*iso0));
WFechaFinal =%int(%char((%date(*datei) - %months(1)):*iso0));
//primer dia del mes y el ultimo
WDiaInicial=1;
WDiaFinal=31;
//dia final del mes
dow ('1');
test(de) *iso WFechaFinal;
if (%error);
WDiaFinal-=1;
iter;
endif;
leave;
enddo;
/end-free Fecha 02-09-2004
Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.Envianoslo
y si resulta seleccionado te enviaremos un vale de Amazon
por valor de 50$
|
