Actually if you have gotten blanks into N2 which is defined as a packed field and then try to move that to N4 which is a display field won't you end up with and abend when it tries to unpack a field which isn't really in packed format?
Tom Kelman Commerce Bank of Kansas City (816) 760-7632 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Binyamin Dissen Sent: Wednesday, August 01, 2007 8:32 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: COBOL Group moves On Wed, 1 Aug 2007 16:45:30 +0530 Rashmi Nijaguni Mogali <[EMAIL PROTECTED]> wrote: :>I have a query regarding the following group move: :>01 GRP1. :> 05 N1 PIC S9(9) COMP-3 VALUE +0. :> 05 N2 PIC S9(9) COMP-3 VALUE +0. :>01 GRP2. :> 05 N3 PIC S9(9) COMP-3 VALUE +123. :>01 N4 PIC ZZZ,ZZZ,ZZ9. :>PROCEDURE DIVISION. :> INITIALIZE GRP1. :> MOVE GRP2 TO GRP1. All group moves are character. :> MOVE N2 TO N4. :> DISPLAY N4. :>What value is displayed and why? 404,040,404 (unless the compiler generates real nutty code). What do I win? -- Binyamin Dissen <[EMAIL PROTECTED]> http://www.dissensoftware.com ***************************************************************************** If you wish to communicate securely with Commerce Bank and its affiliates, you must log into your account under Online Services at http://www.commercebank.com or use the Commerce Bank Secure Email Message Center at https://securemail.commercebank.com NOTICE: This electronic mail message and any attached files are confidential. The information is exclusively for the use of the individual or entity intended as the recipient. If you are not the intended recipient, any use, copying, printing, reviewing, retention, disclosure, distribution or forwarding of the message or any attached file is not authorized and is strictly prohibited. If you have received this electronic mail message in error, please advise the sender by reply electronic mail immediately and permanently delete the original transmission, any attachments and any copies of this message from your computer system. ***************************************************************************** ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
