View previous topic :: View next topic
|
Author |
Message |
saipv
New User
Joined: 15 Apr 2005 Posts: 8
|
|
|
|
I am analyzing an existing program.
The fields are declared as follows:
PVPR74-WGT PIC 9(05).
MAP-WGT PIC X(05).
FILLER REDEFINES MAP-WGT.
15 MAP-WGT-EDT PIC ZZZZZ.
MOVE PVPR74-WGT(X32DETA1) TO MAP-WGT-EDT(XDETLNS)
INSPECT MAP-WGT-EDT(XDETLNS) REPLACING LEADING ZEROS BY SPACES
These are the problems that I found:
1) Just for testing I entered Character values for PVPR74-WGT
If the value of PVPR74-WGT is TT then after execution of the above step , the field MAP-WGT is converted to 33,
If it is PVPR74-WGT = V then MAP-WGT = 5 and if it is PVPR74-WGT = U then MAP-WGT = 4
2) If the value of PVPR74-WGT is 544.8 then its adjusted to 5448 but if 54.48 then abend (decimal exception) why?
Please help me out. |
|
Back to top |
|
|
DavidatK
Active Member
Joined: 22 Nov 2005 Posts: 700 Location: Troy, Michigan USA
|
|
|
|
saipv,
How did you move non numeric data to PVPR74-WGT. Please give the code you used.
We'll answer you're questions,
Dave |
|
Back to top |
|
|
|