Mach ein ISO-Datum draus:

date(digits(d3) concat '-' concat digits(d2) concat '-' concat digits(d1)) as mydate

Die Anzeige (in STRSQL) gibt das Datum entweder im Job-Format oder als ISO aus (F13).
Im RPGLE sind H-Bestimmung sowie "set option" erforderlich.
Dies gilt nur, wenn das Datum ausserhalb der Range 1.1.1940 und 31.12.2039 ist.