PH41873: CLIENT IS GETTING INVALID MASK MESSAGE FOR PACKED DECIMAL FIELDS EASYTRIEVE CLASSIC FORCSIGN=EASYT IS IN USE.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Easytrieve Classic MASK problem
  
  -------------------
  PTF  pre-reqs: UI77020
  APAR pre-reqs: None
  -------------------
  
  Severity: high
  
  Users Affected:
     All IMU V5.1
  -------------------
  
  Problem Description
  -------------------
  Client is getting invalid MASK message for packed decimal fields
  when Easytrieve Classic FORCSIGN=EASYT is in use.
  
  
  Problem Summation
  -----------------
  IMU generates an invalid mask when 'IF &field NUMERIC/NOT
  NUMERIC' statements is used for packed decimal fields defined
  with no decimal places.
  
  The invalid mask is constructed in EASYT007 macro when
  FORCSIGN=EASYT option is in use.
  
  Note: COBOL does not support numeric test on packed fields while
  EASYTRIEVE Classic does.
  
  To solve the problem, IMU generates a GROUP field name for the
  field in use, with the field name as an elementary item with a
  picture. While the elementary field name is never used, the
  syntax is checked in FSCCL2 step to make sure the supplied
  picture is correct.
  
     Example of a failing definition:
  
     FIELDA  1  2 P
     IF FIELDA NOT NUMERIC
  
     generates
  
    FIELDA  PIC S#S9(3)  which is wrong.
  
  
  Problem Conclusion:
  ------------------
  IMU (EASYT007 macro) was changed to generate the proper picture.
  That is, the 'S' in front of '#'  is dropped.
  
  
  The following modules are in the APAR:
  ------------------
  FSOFT01.V5R1M0.SFSYFJCC
     EASYT007 - existing CCL1 byte code macro
  
  ------------------
  Special Installation Instructions
     There are no special instructions.
  
  Action:
  1. Install the prerequisite PTF.
  2. Install the APAR.
  3. Test the installed APAR on a failing program.
  

Local fix

Problem summary

•    IMU generates an invalid mask when 'IF &field NUMERIC/NOT
  NUMERIC' statements is used for packed decimal fields defined
  with no decimal places.
  
     The invalid mask is constructed in EASYT007 macro when
  FORCSIGN=EASYT option is in use.
  
     Note: COBOL does not support numeric test on packed fields
  while EASYTRIEVE Classic does.
  
     To solve the problem, IMU generates a GROUP field name for
  the field in use, with the field name as an elementary item with
  a picture. While the elementary field name is never used, the
  syntax is checked in FSCCL2 step to make sure the supplied
  picture is correct.
  
     Example of a failing definition:
  
     FIELDA  1  2 P
     IF FIELDA NOT NUMERIC
  
     generates
  
    FIELDA  PIC S#S9(3)  which is wrong.
  

Problem conclusion

• IMU (EASYT007 macro) was changed to generate the proper picture.
  That is, the 'S' in front of '#'  is dropped.
  

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:

  UI78400

Modules/Macros

• FSYET007
  

Fix information

• Fixed component name

  MIGRATION UTILI

• Fixed component ID

  5697N4400

Applicable component levels

• R510 PSY UI78400

     UP22/01/04 P F112

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.