Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

What is the max length of a decimal field in Eztrieve

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
rajanish

New User


Joined: 02 May 2006
Posts: 7
Location: Charlotte, NC, US

PostPosted: Wed Oct 11, 2006 11:12 pm    Post subject: What is the max length of a decimal field in Eztrieve
Reply with quote

We cant have a decimal field of length greater than 18 in COBOL, but can we have it in Eztrieve.
Back to top
View user's profile Send private message

MFRASHEED

Active User


Joined: 14 Jun 2005
Posts: 186
Location: USA

PostPosted: Wed Oct 11, 2006 11:50 pm    Post subject: Re: What is the max length of a decimal field in Eztrieve
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am
No new posts Writing on to GSAM variable length rohanthengal JCL & VSAM 6 Fri Mar 03, 2017 7:46 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us