MVSFORUMS.com

[Deepika]

Hi,
Please let me know the sort option or other utility to convert zoned decimal positive value to negative value.

[kolusu]

Deepika,

You need to provide us with details. Show us a sample input and desired output. Also explain what exactly you mean by convert as zoned decimals have a sign ovepunched on the last byte.

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu

[Deepika]

For eg: Amount field is 15.35 then internally in mainframe it is stored as
Positive Value is stored as : FFFFFFFFFFF
00000001535
Negative value is stored as : FFFFFFFFFFD
00000001535


We need the Sort utility function to convert the X'F' to X'D' ( Last half byte), hence the Zoned decimal amount field will be converted to Negative amount.

[kolusu]

Deepika,

Is your input field a packed decimal ? You say zoned decimal but your data shows a packed decimal data(comp-3) . only packed decimal fields have the sign in the last nibble X'F' & X'C' represent Positive values and X'D' represents negative value.

Just tell me the cobol declaration of the input field and desired output field.

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu

[Deepika]

Thanks for the quick response,Kolusu.
The COBOL Declaration for Input field is S9(18)V9(2) Comp-3.
The output should be in the same format but multipied with -1.
Please let me know if there is any sort option for the same.

[kolusu]

Deepika,

Assuming that you only wanted to convert positive values to negative values , the following jcl will give you the desired results. I assumed that your input field to be changed starts from position 1. S9(18)V9(2) Comp-3 occupies 11 bytes.

[Frank Yaeger]

Hmmm ... I took the values to be:

[kolusu]

[Frank Yaeger]