AS/400 - Diferencia de fechas

Necesito una función que me retorne la diferencia entre 2 fechas en número de meses.

Hola, tengo unas rutinas para calculos de fechas, pero podrias ser mas especifico, el resultado debe ser cantidad de dias, o meses?? o si pudieras ponerme un ejemplo creo podria ayudarte.

Saludos

Que versión de RPG estas utilizando?

RPG IV trae ya unas funciones integradas para el calculo de fecha, como ejemplo: eval X = %Diff(fecha1:fecha2:*Months), con lo cual te tae la diferencia de las fechas expresada en meses

Saludos