MFRASHEED
Active User
Joined: 14 Jun 2005 Posts: 186 Location: USA
|
|
|
|
If you use CBL ARITH(EXTEND) in cobol program you can make use of extended digit positions from 18 to 31.
Code: |
ARITH
+--- ARITH option syntax ------------------------------------------------+
? ?
? +-COMPAT-+ ?
? >>--ARITH(---EXTEND---)--------------------------------------------->< ?
? ?
+------------------------------------------------------------------------+
Default is: ARITH(COMPAT)
Abbreviations are: AR(C), AR(E)
When you specify ARITH(EXTEND):
o The maximum number of digit positions that you can specify in the
PICTURE clause for packed-decimal, external-decimal, and
numeric-edited data items is raised from 18 to 31.
o The maximum number of digits that you can specify in a fixed-point
numeric literal is raised from 18 to 31. You can use numeric literals
with large precision anywhere that numeric literals are currently
allowed, including:
- Operands of PROCEDURE DIVISION statements
- VALUE clauses (for numeric data items with large-precision
PICTURE)
- Condition-name values (on numeric data items with large-precision
PICTURE)
o The maximum number of digits that you can specify in the arguments to
NUMVAL and NUMVAL-C is raised from 18 to 31.
o The maximum value of the integer argument to the FACTORIAL function is
29.
o Intermediate results in arithmetic statements use extended mode.
When you specify ARITH(COMPAT):
o The maximum number of digit positions in the PICTURE clause for
packed-decimal, external-decimal, and numeric-edited data items is 18.
o The maximum number of digits in a fixed-point numeric literal is 18.
o The maximum number of digits in the arguments to NUMVAL and NUMVAL-C
is 18.
o The maximum value of the integer argument to the FACTORIAL function is
28.
o Intermediate results in arithmetic statements use compatibility mode.
RELATED CONCEPTS
Appendix A, "Intermediate results and arithmetic precision" in
the Enterprise COBOL for z/OS V3.4 Programming Guide
|
And i think max length is 18 in Eztrieve. |
|