PM02897: NUMERIC TEST ON PACKED UNSIGNED FIELD IS FAILING.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Description:
  
  This APAR was created after the PMR was closed per customer's
  request after a workaround was provided.
  
  Per PMR 33881,077,649 - COBOL PROCESS NUMPROC (PFD/NOPFD) does
  not evaluate the same in numeric test Date reported: 09/15/2009
  Severeity: High
  
  Users Affected:
   All IMU users of MU V3.2
  
  Problem Description:
   Numeric test on packed unsigned field is failing.
  
  Problem Summation
   To improve performance, IMU V3.2 was shipped with default
   PROCESS NUMPROC(PFD)in the EZPARAMS file. The previous versions
   and releases did not contain NUMPROC option in the EZPARAMS,
   thus COBOL was defaulting to whatever
   installation default was for COBOL (in most cases
   NUMPROC(NOPFD).
  
   PFD numeric test is failing when a signed field contains an F
   for sign.
  
  Problem Conclusion:
   Date 12/05/2009. Conclusion.
   As per COBOL manual and compiler behavior, NUMPROC(PFD) COBOL
   option enforces the rule that respects the
   picture definition. i.e., if picture is signed, a C or D is
   expected, if picture is unsigned, an F is expected
   otherwise it fails the test.
  
   NUMPROC(NOPFD) or NUMPROC(MIG) passes numeric test regardless
   of picture definition, that is for signed
   picture, C, D and F are valid signs. For unsigned picture, F is
   valid sign only.
  
   Easyt007 macro currently moves usigned numeric fields into a
   signed work field for the numeric test.
   The move is into a group item, thus preserving the sign.
   Cosequently, when NUMPROC(PFD) is in effect,
   numeric test fails if the unsigned number truly contains an F
   because the test is done on the newly
   defined signed field.
  
  Solution:
   IMU (Easyt007 macro) was changed to make test on the real
   unsigned field when NUMPROC(PFD) is coded.
   The change does not affect NUMPROC(NOPFD/MIG) as both work on
   signed and unsigned fields.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: ALL IBM MIGRATION UTILITY V320 USERS.        *
  ****************************************************************
  * PROBLEM DESCRIPTION: NUMERIC TEST ON PACKED UNSIGNED FIELD   *
  *                      IS FAILING.                             *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  TO IMPROVE PERFORMANCE, IMU V3.2 WAS
  SHIPPED WITH DEFAULT
  PROCESS NUMPROC(PFD)IN THE EZPARAMS
  FILE. THE PREVIOUS VERSION AND RELEASES
  DID NOT CONTAIN NUMPROC OPTION IN THE
  EZPARAMS, THUS COBOL WAS DEFAULTING TO
  WHATEVER INSTALLATION DEFAULT WAS FOR
  COBOL (IN MOST CASES NUMPROC(NOPFD).
  
  PFD NUMERIC TEST IS FAILING WHEN A
  SIGNED FIELD CONTAINS AN F FOR SIGN.
  

Problem conclusion

• ****************************************************************
  * FIX DESCRIPTION:     AS PER COBOL MANUAL AND COMPILER        *
  *                      BEHAVIOR, NUMPROC(PFD) COBOL OPTION     *
  *                      ENFORCES THE RULE THAT RESPECTS THE     *
  *                      PICTURE DEFINITION. I.E., IF PICTURE IS *
  *                      SIGNED, A C OR D IS EXPECTED, IF        *
  *                      PICTURE IS UNSIGNED, AN F IS EXPECTED   *
  *                      OTHERWISE IT FAILS THE TEST.            *
  *                                                              *
  *                      NUMPROC(NOPFD) OR NUMPROC(MIG) PASSES   *
  *                      NUMERIC TEST REGARDLESS OF PICTURE      *
  *                      DEFINITION, THAT IS FOR SIGNED          *
  *                      PICTURE, C, D AND F ARE VALID SIGNS.    *
  *                      FOR UNSIGNED PICTURE, F IS VALID SIGN   *
  *                      ONLY.                                   *
  *                                                              *
  *                      EASYT007 MACRO CURRENTLY MOVES USIGNED  *
  *                      NUMERIC FIELDS INTO A SIGNED WORK       *
  *                      FIELD FOR THE NUMERIC TEST.  THE MOVE   *
  *                      IS INTO A GROUP ITEM, THUS PRESERVING   *
  *                      THE SIGN.  COSEQUENTLY, WHEN            *
  *                      NUMPROC(PFD) IS IN EFFECT, NUMERIC      *
  *                      TEST FAILS IF THE UNSIGNED NUMBER       *
  *                      TRULY CONTAINS AN F BECAUSE THE TEST    *
  *                      IS DONE ON THE NEWLY DEFINED SIGNED     *
  *                      FIELD.                                  *
  *                                                              *
  *                                                              *
  *                      IMU (EASYT007 MACRO) WAS CHANGED TO     *
  *                      MAKE TEST ON THE REAL UNSIGNED FIELD    *
  *                      WHEN NUMPROC(PFD) IS CODED.  THE CHANGE *
  *                      DOES NOT AFFECT NUMPROC(NOPFD/MIG) AS   *
  *                      BOTH WORK ON SIGNED AND UNSIGNED        *
  *                      FIELDS.                                 *
  *                                                              *
  ****************************************************************
  * PRODUCT ELEMENTS AFFECTED BY THIS FIX:                       *
  ****************************************************************
  * NEW ELEMENTS ADDED:                                          *
  *     NONE.                                                    *
  *                                                              *
  ****************************************************************
  * EXISTING ELEMENTS MODIFIED:                                  *
  *                                                              *
  *     FSYASSEM, FSYCCBOL, FSYESORD, FSYETRAN, FSYET007,        *
  *     FSYGRATQ, FSYGTDCB, FSYMIG20, FSYPRSRV, FSYXCOBO         *
  *                                                              *
  ****************************************************************
  * EXISTING ELEMENTS DELETED:                                   *
  *     NONE.                                                    *
  *                                                              *
  ****************************************************************
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Modules/Macros

•    FSYASSEM FSYCCBOL FSYESORD FSYETRAN FSYET007
  FSYGRATQ FSYGTDCB FSYMIG20 FSYPRSRV FSYXCOBO
  

Fix information

• Fixed component name

  MIGRATION UTILI

• Fixed component ID

  5697N4400

Applicable component levels

• R320 PSY UK56786

     UP10/05/12 P F005

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.