2 out of 3 types of Current Job Date will have wrong results in Year 2040 Merged

Current Job date will be wrong as of year 2040 .

I tested year 2040 readines of job dates, and found the following:

(Version V6R1)

D DT_INZJOB S D INZ(*JOB)
* shows wrong results
%DATE(UDATE) // shows wrong results

%DATE(*DATE) // shows right results

Either block using job dates now, or at least have a compiler option to block it, or fix the problem.

Sample program that shows the wrong results:

CL:

CHGJOB DATE(01012040)

CALL DAT001

*****
RPG DAT001:

D DT_INZJOB S D INZ(*JOB)
D DT_SDATE S D
D DT_UDATE S D
D DT_DSPLY S 25
/FREE

DT_DSPLY = 'DT INZJOB: '+ %CHAR(DT_INZJOB);
DSPLY DT_DSPLY;

DT_SDATE = %DATE(*DATE);
DT_DSPLY = 'DT *DATE: '+ %CHAR(DT_SDATE);
DSPLY DT_DSPLY;

DT_UDATE = %DATE(UDATE);
DT_DSPLY = 'DT UDATE: '+ %CHAR(DT_UDATE);
DSPLY DT_DSPLY;

*INLR=*ON;

By the way, for year 2072 and abve, the following will not work:
CHGJOB DATE(01012072)

It will produce an error message. So i was not able to test that part at all.