|
View previous topic :: View next topic
|
| Author |
Message |
saipv
New User
Joined: 15 Apr 2005
Posts: 8
|
|
|
|
PVPR-WGT PIC 9(05).
MAP-WGT PIC X(05).
FILLER REDEFINES MAP-WGT.
15 MAP-WGT-EDT PIC ZZZZZ.
MOVE PVPR-WGT TO MAP-WGT-EDT
INSPECT MAP-WGT-EDT REPLACING LEADING ZEROS BY SPACES
When the value of PVPR-WGT is 544.8 after the above statement, the value of MAP-WGT-EDT becomes 5448 but if PVPR-WGT is 54.48 then abend (decimal exception) why? |
|
| Back to top |
|
 |
DavidatK
Active Member
Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA
|
|
|
|
saipv,
I'm a little confused about your question.
with PVPR-WGT defined as a PIC 9(05), how does it have a value of 544.8?
Dave |
|
| Back to top |
|
|
prasadvrk
Active User
Joined: 31 May 2006
Posts: 200
Location: Netherlands
|
|
|
|
| Are you sure about the data type of PVPR-WGT , is it PIC 9(05). or S9(05).9. |
|
| Back to top |
|
|
|
|
