|
View previous topic :: View next topic
|
| Author |
Message |
avaneendra_linga
New User
Joined: 13 Dec 2006
Posts: 73
Location: Hyderabad
|
|
|
|
hi ,
IS THERE ANY COMMAND TO CONVERT SIGN FIELD IN COBOL INTO DISPLAYABLE VALUE IN REXX.?
MY FIELD IS S9(07) ...........
IN MY FILE IS VALUE IS LIKE 00000J
AND MY ACTUAL VALUE IS -1
...SO I NEED IN REXX LIKE -1 ....
THX IN ADVANCE... |
|
| Back to top |
|
 |
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
First, please use Proper case, not UPPER CASE.
How are you going to read the COBOL field from REXX? Are you going to read the data directly from REXX?
O. |
|
| Back to top |
|
|
avaneendra_linga
New User
Joined: 13 Dec 2006
Posts: 73
Location: Hyderabad
|
|
|
|
Hey sorry ofer71...
Yeah regardng problem.....i am readng a file in rexx ,in that one of the field is S9(04)...When i read that it is not coming in displayable format .
how to convert that into displayable field? |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
I got this off the internet. If z is the variable containing the Zoned Decimal number, then:
| Code: |
z = (2 * DATATYPE(z,'W') - 1)
|
|
|
| Back to top |
|
|
|
|
