Thanks for everyone's quick reply..  I had no intentions of sticking to
REDEFINES. The COMPUTE and NUMVAL trick did it.. I also would not be needing
ROUNDING because my input character value will always be a positive integer
representing the length of previously accepted another input field. So its
value can range from 0 thru 99. 

Thanks. 
Raghu Rao


>  -----Original Message-----
> From:         Rao, Raghu  
> Sent: Thursday, May 05, 2005 12:05 PM
> To:   [log in to unmask]
> Subject:      COBOL : Redefines question
> 
> Hi, 
> 
> In cobol, is there any way that I get the redefined value from character
> value into a proper numeric value ? 
> 
> For Ex: 
> *************
> 01 WS-A           PIC X(04).
> 01 WS-B redefines WS-A   pic 9(04). 
> 02 WS-C           pic 9(04).
> ....
> MOVE 3 TO WS-A.
> MOVE WS-B TO WS-C.
> ...
> DISPLAY " A:" WS-A ":"
> DISPLAY " B:" WS-B ":"
> DISPLAY " C:" WS-C ":"
> 
> Results are 
> A:3   :
> B:3   :
> C:3000:
> 
> 
> I want the results to be:
> --------------------------------
> A:3   :
> B:0003:
> C:3:
> 
> Thanks. 
> Raghu Rao
> 

Confidentiality Notice:
The information contained in this electronic message is intended for the exclusive use of the individual or entity named above and may contain privileged or confidential information. 
If the reader of this message is not the intended recipient or the employee or agent responsible to deliver it to the intended recipient, you are hereby notified that dissemination, distribution or copying of this information is prohibited. 
If you have received this communication in error, please notify the sender immediately by telephone and destroy the copies you received.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *