PH33293: FIRST DIGIT IS ZERO WHEN BINARY MOVED TO ALPHA FIELD

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• CASE TS004597935: First digit is zero when Binary moved to alpha
  field
  
  Date opened:  2020-12-01
  
  PTF Pre-reqs:   UI73401
  APAR Pre-reqs:  none
  
  Severity: High
  --------
  
  Users Affected:
  -------------
  All IMU V4.1
  
  Problem Description
  -------------------
  Client reported that receiving alphanumeric field contains
  zero in the high order byte when a binary (BL2) is assigned
  to an alpha field.
  
   Example:
   TESTBL2  W  2 B VALUE X'7FFF'
   TESTALF  2  5 A
  
   TESTALF = TESTBL2
  
   Results in:  '02767'
  
   It should be: 32767'
  
  
  Problem Summation
  -----------------
  The process of assigning binary fields to alpha fields is
  artificially controlled by IMU.
  When assigning BL2 or BL4 to an alpha field, IMU limits the
  number of digits moved into alpha field as follows:
    1. Four(4) digits for BL2
  
    2. Nine(9) digits for BL4
       thus causing one (1) byte truncation.
  
  The work-around is to change the alpha field to a display
  numeric field.  i.e., TESTALF  2  5 N
  
  Note: Assigning binary field to a display numeric field works
        properly.
  
  
  Problem Conclusion:
  ------------------
  IMU was changed to increase capacity of intermediate value to:
  a) Five(5) bytes for BL2 fields
  
  b) Ten(10) bytes for BL4 fields.
  
  The adjustment is applied when binary fields are assigned to
  Alpha fields. The adjustment is not applied when binary fields
  are assigned to DISPLAY numeric fields.
  
  
  Changed modules:
  ---------------
  FSOFT01.V4R1M0.SFSYFJCC
     EASYT007 - CCL1 byte code module
  
  
  Special Installation Instructions:
  ---------------------------------
  There is no impact on existing Easytrieve Plus programs that do
  not contain errors related to this APAR.
  
  
  Action:
  ------
  1. Apply PTF UI73401.
  
  2. Apply this APAR.
  
  3. Translate and run the failing Easytrieve Plus programs.
  
  ----------------------------------------------------------------
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMU V4.1                                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: Client reported that receiving          *
  *                      alphanumeric field contains zero in the *
  *                      high order byte when a binary (BL2) is  *
  *                      assigned to an alpha field.             *
  *                                                              *
  *                       Example:                               *
  *                       TESTBL2  W  2 B VALUE X'7FFF'          *
  *                       TESTALF  2  5 A                        *
  *                                                              *
  *                       TESTALF = TESTBL2                      *
  *                                                              *
  *                       Results in:  '02767'                   *
  *                                                              *
  *                       It should be: 32767'                   *
  ****************************************************************
  The process of assigning binary fields to alpha fields is
  artificially controlled by IMU.
  When assigning BL2 or BL4 to an alpha field, IMU limits the
  number of digits moved into alpha field as follows:
    1. Four(4) digits for BL2
  
    2. Nine(9) digits for BL4
       thus causing one (1) byte truncation.
  
  The work-around is to change the alpha field to a display
  numeric field.  i.e., TESTALF  2  5 N
  
  Note: Assigning binary field to a display numeric field works
        properly.
  

Problem conclusion

• IMU was changed to increase capacity of intermediate value to:
  a) Five(5) bytes for BL2 fields
  
  b) Ten(10) bytes for BL4 fields.
  
  The adjustment is applied when binary fields are assigned to
  Alpha fields. The adjustment is not applied when binary fields
  are assigned to DISPLAY numeric fields.
  

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:

  UI73875 PH36895

Modules/Macros

• FSYET007
  

Fix information

• Fixed component name

  MIGRATION UTILI

• Fixed component ID

  5697N4400

Applicable component levels

• R410 PSY UI73875

     UP21/02/16 P F102

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.