som_infotech
New User
Joined: 25 Feb 2006
Posts: 38
Location: chennai-india
|
|
|
|
Hi,
I have the below field in numeric field,
01 VarA PIC S9(7)V99 COMP-3.
I have negative values as -133.90.
So to report it I used the below logic in EZ,,
| Code: |
Input file
NO-PRIOR 425 5 P
Output file
O-NO-PRIOR 72 9 N MASK('ZZZZZZ9.99-')
working storage
WS-NO-PRI W 9 N MASK('ZZZZZZ9.99-').
Procedure
WS-NO-PRI = NO-PRIOR
O-OR-PRIOR = WS-NO-PRI |
But I am not getting the negative values in the report.
whts the reason |
|
