rexxtry
call bsf.cls

dtc=bsf.loadClass("org.oorexx.datergf.DTC")
dt=.bsf~new("org.oorexx.datergf.DateRGF", 2036,1,1)

say "dt:" dt~toString "dt~getGregorianChange:" dt~getGregorianChange~toString
say "Julian:" dt~easter(2022,dtc~Julian)~toString "Gregorian:" dt~easter(2022,dtc~Gregorian)~toString
say "Julian:" dt~easter(2032,dtc~Julian)~toString "Gregorian:" dt~easter(2032,dtc~Gregorian)~toString
say

d1=dt
say "d1:" d1~toString
d2=d1~easter(d1~get(DTC~YEAR_FIELD), DTC~JULIAN)
say "d2:" d2~toString "(julian easter)"

d3=d2~jdn2date(d2~get(dtc~JDN), d2, DTC~GREGORIAN)
say "d3:" d3~toString "(julian easter in Gregorian)"
