On 25 Sep 2014 10:45:43 -0700, in bit.listserv.ibm-main Tom Ross wrote: The one consideration that isn't mentioned is that if shops have files created or updated by CSP, Visual Gen or EGL (the latest incarnation and presumably still sold and supported by IBM), they have data in signed fields (both packed and unpacked) with F zones for positive numbers and D zones for negative numbers. I checked the EGL manual to verify this. While I suspect many here share my disdain for this and the contortions needed for it, it means that NUMPROC(PFD) probably is unwise for all shops with these products. If NUMPROC(MIG) would generate more efficient code than NUMPROC(NOPFD), then these shops would benefit from the return of NUMPROC(MIG).
Clark MOrris > >In your NUMPROC discussion you compared signed to unsigned, but NUMPROC is more >about signed data to signed data. If you get nonpreferred signs as input data >then you need to run with NUMPROC(NOPFD) to make sure you get correct results. >I gave a presentation at SHARE about one way to check if you can use >NUMPROC(PFD), please see my recent SHARE presentation, Coding for Performance. >The relevant parts are here: > >NUMPROC(NOPFD) > >- NUMPROC(PFD) is faster > >Performance considerations using NUMPROC: >- On the average, NUMPROC(PFD) was 1% faster than NUMPROC(NOPFD), with a range > of 21% faster to equivalent. > >Investigate your signed data in External Decimal and Packed-decimal >- How can you do that? It is not easy, but if you really want to: > If NUMERIC with NUMPROC(PFD) will tell you if you need NOPFD > > 1 Create a sniffer program from existing programs to access all of the data > 2 Use IF NUMERIC (CLASS TEST) for every data item in files and DBs > 3 If 100% NUMERIC, change to NUMPROC(PFD)! > > >*> Compile sniffer with NUMPROC(PFD) >EXEC SQL SELECT Ext-Dec Packed-Dec > INTO :X, :Y END-EXEC > >If X NUMERIC and Y NUMERIC Then > Display Use NUMPROC(PFD)! > Move 2 To Return-Code >Else > Display Sorry, use NUMPROC(NOPFD)! > Move 16 To Return-Code *> Or call CEE3ABD > Stop Run >End-If > >Cheers, >TomR >> COBOL is the Language of the Future! << > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN