AS/400 - Cálculo con fechas en RPGLE

Buenas Tardes a todos:
De casualidad alguno de ustedes ha hecho cálculos con fechas en RPGLE, tengo entendido que si se puede, en coso de que si, pudieras mandarme un ejemplo para analizarlo por favor.
Gracias y Saludos!
David Barrón

*--------------------------------------------------------------*
* Descripción: Suma/Resta Dias a una fecha. *
* Parametros.: signo (+/-) *
* Dias (2 digitos) *
* Fecha(ddmmaaaa) *
*---------------------------------------------------------------
FECINI S D DATFMT(*EUR)
*---------------------------------------------------------------
*ENTRY PLIST
PARM signo 1
parm dias 4
PARM FECWRK 8
*
MOVE dias diasn 4 0
MOVE FECWRK FECHAS 8 0
MOVE FEChas FECINI
*
signo ifeq '+'
c ADDDUR diasn:*D FECINI
c endif
c signo ifeq '-'
C subDUR diasn:*D FECINI
c endif
*
C MOVE FECINI FEChas
C MOVE FEChas FECWRK
C MOVE *ON *INLR
C RETURN

** Es esto lo que quieres ??, Un saludo

Gracias!
Ya encontré un ejemplo en un libro, checalo igual y te sirve después:

D DueDate S D INZ(D'2006-06-07')
D Tuday S D

Convierte la fecha diaria a la fecha campo tipo dato
*JOBRUN MOVE *DATE ToDay
Calcula en número de Días Transcurridos
ToDay SunDur DueDate PastDue:*DAYS 3 0
If PastDue>30
ENDIF

Saludos desde Mty N. L. México
David Barrón