Also eine Zahl im RPG in eine Struktur zu stellen ist doch wohlnicht das Problem:

IMYDATE DS
I 1 40MYYEAR
I I '-' 5 5
I 6 7 20MYMON
I I '-' 8 8
I 9 10 MYDAY

Nun nur noch das Datum in diese Struktur zerlegen und hinterher wieder mit Einzelbefehlen zusammenbauen:

MyNumDate = MYYEAR * 10000 + MYMON * 100 + MYDAY

Diese Berechnung überlasse ich nun dir.