Subject: | |
From: | |
Reply To: | |
Date: | Thu, 5 May 2005 12:14:24 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Rao:
Easy. Use the following
COMPUTE WS-C = FUNCTION NUMVAL (WS-A)
ON SIZE ERROR
xxxxx
xxxxx
NOT ON SIZE ERROR
xxxxx
xxxxx
END-COMPUTE.
You do not need the redefined statement.
The nice thing about this statement, is that it allows for negative, and
decimals numbers.
Olav.
Rao, Raghu wrote:
>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 *
>
>
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|