You are here:
I specialize in IBM z/OS COBOL and MicroFocus OCDS and Server Express non-OOP. Design, coding and performance oriented questions. Also linking to IBM Assembler from COBOL. Because the rules change with version, please state language level, version and platform environment. See CICS for questions about CICS.
Over 35 years working with COBOL on multiple platforms and OS.
Graduate, New York School of Computer Technology.
Major Financial Institutions, State of NC (DHHS), Manufacturing, Financial services, Warehousing, Software developer and others.
| User | Date | K | C | P | Comments |
|---|---|---|---|---|---|
| jemz | 03/31/12 | 10 | 10 | 10 | Hello sir David, Okay i will try ..... |
| Aaron | 03/27/12 | 10 | 10 | 10 | thanks i got it. i see that ..... |
| jemz | 03/24/12 | 10 | 10 | 10 | Thank you sir for helping me,sir ..... |
| jemz | 03/18/12 | 10 | 10 | 10 | Sir david thank you for helping me ..... |
| Srilakshmi | 02/25/12 | 10 | 10 | 10 |
You must allow for a zero remainder which will give you zero as a digit value. Also the original was intended for a much larger range of values. COBOL subscript of 0 is not allowed so you need to add 1
I don't have a 4.1 manual, however Appendix B in the Language reference manual gives the limits. My 4.2 manual has the following: RECORD CONTAINS integer 1,048,575(Note 5). Note 5. Compiler limit
Please check you end of file logic. The File status 10 is EOF, are you sure your test for EOF and the move 1 to end-of-file-sw is setting the correct level 88 condition to TRUE? I recommend having
Gail; The following is from IBM Z/OS Enterprise COBOL Language Reference (V4.2): 10 At end condition. A sequential READ statement was attempted and no next logical record existed in the file because
You need to identify the reason for the error. Do you have the file defined correctly? If you are reading the file, does the format of the file read match the type of file defined. For instance, if

©2012 About.com, a part of The New York Times Company. All rights reserved.