Si ton compilateur les accepte, je te suggère de passer par les fonctions intrinsèques.
Par exemple (à adapter bien sûr ...) :


COMPUTE D-JOUR =
FUNCTION DATE-OF-INTEGER(
FUNCTION...