Re: MOVE COMP-3 TO DISPLAY.

On Wed, 5 Mar 2008 16:00:26 -0800 (PST), pottmi <pottmi@[EMAIL PROTECTED]
>
wrote:

>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.
>-------------------

Most compilers I've used allow simple displays of the packed data. I'm
trying to remember the syntax of the compiler that required a
conversion in the display.   Something like DISPLAY ACOMP3 WITH
CONVERSION.    

I routinely add some fields such as:
D01  DISPLAY-FIELDS.                            
D    05  DISPLAY-NDX         PIC 9(05).         
D    05  DISPLAY-SORT        PIC Z(05).         
D    05  DISPLAY-AMT1        PIC ++,+++,+++.99. 
D    05  DISPLAY-AMT2        PIC ++,+++,+++.99. 

Before I display most numbers, I move it here to see it better.
D    MOVE AMOUNT-INDEX     TO DISPLAY-NDX
D    MOVE MY-AMOUNT (AMOUNT-INDEX)      TO DISPLAY-AMT1
D    DISPLAY 'DEBUG 01 - MY-AMOUNT (' DISPLAY-INDEX ')="'
D        DISPLAY-AMT1 '"'.