Am Besten du definierst vor IDENTFICATION DIVISION
process DATETIME

oder gibst dieses beim CRT-Befehl mit an.
Das Feld muss vom Typ X(8) sein (COPY DDx berücksichtigt das dann) und eine korrekte Uhrzeit im Format HH:MM:SS enthalten.