>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. 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
