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?