Problem:

The WHEN-COMPILED is a special register that can be used as the subject of a MOVE to a 20 position field.

01  DISPLAY-COMPILE-TIMESTAMP      PIC X(20).

MOVE WHEN-COMPILED to DISPLAY-COMPILED-TIMESTAMP.

Resolution: