View previous topic :: View next topic
|
Author |
Message |
mohan sundaram
New User
Joined: 27 May 2012 Posts: 2 Location: india
|
|
|
|
Hi
i am coding rexx program which display few fields into screen.i try to display 10 COMP-3 fields .It is not coming proper format.Could you please help me?
my fields is
AMOUNT PIC S9(07)V99 COMP-3.
CODE
SAY 'Owning retail amount ===>'C2X(SUBSTR(RRECORD.I,107,5))
OUT PUT:
Owning retail amount ===>000000400C (actuall value 4.00)
NOTE: i am not getting period .Please help me |
|
Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
Native Rexx does not, I think, provide a built-in function to do what do want. Some third-party extensions such as OpenSoftware's REXXTOOLS package do, but you may not have them installed. Basically, you must that returned string, strip off leading zeroes, interpret the sign (C = positive, D = negative, F = unsigned, treated as positive in computations), and insert the decimal point (a radix point in a fixed-point number is always implied; you have to know where goes).
If no one else comes up with a good answer in the next few hours, I'll look at it again when I get to my office. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
search my posts for pack/unpack rexx examples
as far as the decimal point ...
COBOL knows because You declare things
REXX does not because it is a declareless language.
You will have to do Your own formatting for each variable! full stop |
|
Back to top |
|
|
mohan sundaram
New User
Joined: 27 May 2012 Posts: 2 Location: india
|
|
|
|
Thanks for reply.Please provide your email id .. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
Just curious - why do you need Enrico's email id to do search? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
Back to top |
|
|
|