On 13 Apr 2015 14:52:00 -0700, in bit.listserv.ibm-main you wrote: >>I read the APAR and Tom Ross's SHARE presentation and have the >>following question. >> >>05 FIELD-CSP PIC S999 PACKED-DECIMAL. >> >>If FIELD-CSP contains x'123f', for NUMPROC(PFD),ZD(MIG) will FIELD-CSP >>be NUMERIC in an IF NUMERIC test? So far as I can tell CSP and its >>descendants will generate this data for signed packed decimal fields. > >ZONEDATA only affects Zoned Decimal items, not Packed-decimal, thus the >attempt at making the compiler option name specific. > >In any case, NUMPROC(PFD) says that 'F' will not be used as a sign for >signed fields, in zoned decimal (Numeric DISPLAY) and in packed-decimal, >so your example would be NOT NUMERIC.
For installations that have CSP or its descendants, NUMPROC(MIG) is a useful performance enhancement because it gives better performance than NUMPROC(NOPFD). CSP and the last descendant I checked (VISUAL GEN I think) for some reason lost in time insist on forcing F zones for positive numbers in signed fields. While I would agree with any derisive comments made about this and the expensive and convoluted coding required for this, the fact remains that this is a problem for users of the IBM CSP family. Clark Morris > >Cheers, >TomR >> COBOL is the Language of the Future! << > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
