View previous topic :: View next topic
|
Author |
Message |
kalyan.v
New User
Joined: 04 Feb 2008 Posts: 65 Location: Hyd
|
|
|
|
Hi,
In one of our cobol requirement, I have cobol move as below
Code: |
MOVE FIELD-1 TO FIELD-2 |
FIELD-1 is the input copybook field with declaration X(03) and FIELD-2 is the output copybook field with declaration S9(03),I notice the mapping is not happening properly and output value is populating incorrectly.
Example 1:when we move input value 10 the output value is taking as +100 instead of +10.
Example 2:when we move input value 1 the output value is taking as '+1 0' instead of +1 . Can some one help me on this.
Note : Input will always have numeric value and input copybook fields FIELD-1 FIELD-2 declarations not to be changed. |
|
Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006 Posts: 1592 Location: Andromeda Galaxy
|
|
|
|
Use FUNCTION NUMVAL |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Use UNSTRING ... DELIMITED BY SPACE
Ensure that zero as your input does not appear as blank.
NUMVAL will work, but is a bit of a sledgehammer. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Sledgehammer because it uses a run-time routine which understands all editing possibilities for the data (which has none in this case) and which returns the value as a floating-point number which then has to go through several conversions to become the PIC 999. Check the generated code.
The UNSTRING doesn't do so much. If keen, there are lots of other ways to do it. |
|
Back to top |
|
|
rohanthengal
Active User
Joined: 19 Mar 2009 Posts: 206 Location: Globe, India
|
|
|
|
yes, FUNCTION NUMVAL looks fine |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
After all, clinet pays for CPU so may as well use as much as you can... |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
Back to top |
|
|
|