diff --git a/src/system/sysjob.117 b/src/system/sysjob.118
similarity index 99%
rename from src/system/sysjob.117
rename to src/system/sysjob.118
index eff2f582..3255964f 100755
--- a/src/system/sysjob.117
+++ b/src/system/sysjob.118
@@ -1149,6 +1149,9 @@ VWSYS5:	LDB D,[MUR,,MEMBLT(TT)]
 	AOJA TT,VWSYS5
 	IDPB C,B	;TOTAL MEM AVAIL FOR USERS
 	HLRZ C,QDATE
+	LDB D,[110700,,C]
+	IDIVI D,100.	;YEAR MODULO 100
+	DBP E,[110700,,C]
 	IDPB C,B
 	MOVE C,SYSDBG
 	IDPB C,B