SETOLOC %%A = %%$CALCDATE %%$RDATE -1
SETOLOC %%AMON = %%$SUBSTR %%A 3 2
On December 1, 2000:
SETOLOC %%A = 001130
SETOLOC %%AMON = 11
%%$SUBSTR Function