IBM Mainframe Discussion List <[email protected]> wrote on 04/03/2013 09:09:31 PM:
> I searched for IBM Enterprise COBOL code movement and found nothing > but I know that it is done from having looked at the procedure > division maps. I can code a field as CONSTANT-ONE PIC 9 DISPLAY VALUE > 1. and if the field is never modified the compiler will substitute a > packed constant of 1 if the field is used arithmetically with packed > fields or calculate the subscript value at compile time if > CONSTANT-ONE is used as a subscript. This latter trait caught me by > surprise when I wrote a small program to test code generation. You may find that Level 77 items and level 01 structures can move around. You should not find items under an 01 item moving around. That would obviate the use of copybooks for interfaces. ----------------------------------------- The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
