Re: MOVE COMP-3 TO DISPLAY.

In article <638tbgF26nicjU1@[EMAIL PROTECTED]
>, "Pete Dashwood"
<dashwood@[EMAIL PROTECTED]
> wrote:

> 01 ACOMP3 PIC 9999v9 COMP-3.
> 01 ADISPLAY PIC X(6).
>
>.... add two lines...
> 01 ADISPLAY-EDITED PIC z(4).9.
> 01 ADSTRING REDEFINES ADISPLAY-EDITED PIC X(6).
>....
> MOVE 1234.5 to ACOMP3.
>MOVE ACOMP3 TO ADISPLAY-EDITED.
>MOVE ADSTRING TO ADISPLAY.
>DISPLAY ADISPLAY.

Even simpler:

01 ADISPLAY.
   03 ADISPLAY-EDITED PIC Z(4).9.
...
MOVE 1234.5 TO ACOMP3.
MOVE ACOMP3 TO ADISPLAY-EDITED.
DISPLAY ADISPLAY.

To the OP: even though this may not look like it, it *does* satisfy your 
constraint that the definition of ADISPLAY remain unchanged, as all group 
items are PIC X(n) by default, where n is the aggregate length of the 
elementary items comprising the group. Since there is only one elementary
item 
(ADISPLAY-EDITED), and it's six characters long, the default picture of
the 
group item ADISPLAY is PIC X(6).

-- 
Regards,
        Doug Miller (alphageek at milmac dot com)

It's time to throw all their damned tea in the harbor again.