Do we have any Computation USAGE CLAUSE for ZONED DECIMAL?

blpraveen123 · New User Joined: 26 Apr 2007 Posts: 12 Location: Mysore

Hi,

Do we have any Computational CLAUSE for the Zoned Decimal like we use COMP-3 for Packed Decimal?
Do zoned decimal used in any program?

Raphael Bacay · Posted: Wed Jun 20, 2007 12:13 pm

I was able to see this from
www.simotime.com/spsnum01.htm

It might be useful for your question.

1. BINARY, On an IBM Mainframe a binary field is 2, 4 or 8 bytes in length. A binary field is defined in COBOL with the USAGE IS COMPUTATIONAL clause. This is usually abbreviated as COMP.

2. PACKED-DECIMAL, On an IBM Mainframe a a packed-decimal field uses one byte to store two digits except for the sign position that contains a single digit in the high-order nibble and the sign value in the low order nibble. A packed-decimal field is defined in COBOL with the USAGE IS COMPUTATIONAL-3 clause. This is usually abbreviated as COMP-3.

3. ZONED-DECIMAL, On an IBM Mainframe a zoned-decimal field contains the text value of a digit in each byte except in the sign position (this is usually the units position) which uses the high-order nibble to store the sign value.A zoned-decimal field is defined in COBOL with the USAGE IS DISPLAY clause. This USAGE clause is usually omitted since zoned-decimal is the default format for COBOL.

4. EDITED, typically used to prepare or convert numeric data that is stored in a variety of formats (i.e. the preceding three formats) into a format that is easily read by human beings or easily exported to a non-Mainframe or non-COBOL environment such as an excel spreadsheet running on a Windows platform.

blpraveen123 · New User Joined: 26 Apr 2007 Posts: 12 Location: Mysore

Thanks for reply

Craq Giegerich · Posted: Thu Jun 21, 2007 1:49 pm

prasadvrk · Posted: Thu Jun 21, 2007 2:00 pm