MOVE COMP-3 TO DISPLAY.

COBOL Crew,

This code is broken because the non-integer move to alphanumeric is
illegal.
--------------------
01 ACOMP3 PIC 9999v9 COMP-3.
01 ADISPLAY PIC X(6).

MOVE 1234.5 to ACOMP3.
MOVE ACOMP3 TO ADISPLAY.
DISPLAY ADISPLAY.
-------------------

What are some options for me to change this code such that the output
of the "DISPLAY ADISPLAY" statement is "1234.5" with the constraint
that ACOMP3 and ADISPLAY must remain defined as they are?

I could come  up with some brute force way to do this, but I figure
one of you guys has to have a graceful way to do this.

--
Michael Potter