Binyamin Dissen makes a very important point with <begin extract> Adjacent 01 levels have been used to allocate storage larger than the maximum allowed by COBOL. <end extract/>
I have recently been accused of being a pedant. Let me therefore act the part. These adjacent 01 levels are typically used to enlarge a COBOL table/array implicitly when one of adequate size cannot be declared explicitly. The issue is not, that is, so much a matter of storage size as it is one of subscript range. (Finally, of course, the two cannot be entirely disentangled.) This practice, which is widespread, has made it impossible for many shops to use even the higher levels of optimization that the pre-4.1 COBOL compilers make available John Gilmore, Ashland, MA 01721 - USA ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
