PH55932: INCORRECT RESULTS WHEN USING CONFIGURATION SECTION-REPOSITORY DEFINITION AND USING THE INTRINSIC FUNCTIONS TRIM AND LENGTH.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Version 6.3 introduced the Configuration Section-Repository
  definition for Intrinsic functions (the ?Function All
  Intrinsic?) to eliminate the need to specify the keyword
  "FUNCTION" on calls to the intrinsic functions. However, in
  COBOL V6.3 and V6.4, there is a problem in the processing of the
  LENGTH function combined with the TRIM function when using the
  Repository definition inside table entries (OCCURS clause).
  

Local fix

• BYPASS/CIRCUMVENTION:
  None
  
  RECOVERY ACTION:
  Apply PTF
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V6.4 users who add the new  *
  *                 REPOSITORY section for using intrinsic       *
  *                 functions without the keyword FUNCTION and   *
  *                 have programs with the LENGTH function with  *
  *                 a function invocation as the function        *
  *                 argument AND the function argument has       *
  *                 subscripting                                 *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect results due to bad generated  *
  *                      code for the subscripting               *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF and recompile         *
  ****************************************************************
  In order to support using the LENGTH function without the
  keyword function, the compiler has to look forward to see if we
  are processing the LENGTH function or the LENGTH OF register.
  The compiler was not resetting some information when it changed
  from processing LENGTH OF to processing function LENGTH.
  

Problem conclusion

• The compiler was changed to properly reset the internal
  subscripting environment when a left parenthesis is encountered
  after finding the keyword LENGTH
  

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:

  PH56911

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCEN$0 IGYCEN$1 IGYCEN$2 IGYCEN$3 IGYCEN$4
  IGYCEN$5 IGYCEN$8 IGYCEN$D IGYCEN$R IGYCFGEN IGYCFREE IGYCINIT
  IGYCJA$0 IGYCJA$1 IGYCJA$2 IGYCJA$3 IGYCJA$4 IGYCJA$5 IGYCJA$8
  IGYCJA$D IGYCJA$R IGYCJBLD IGYCJGEN IGYCLIBR IGYCLSTR IGYCLVL0
  IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL IGYCOB2  IGYCOSCN
  IGYCPGEN IGYCRCTL IGYCRDPR IGYCRDSC IGYCREAL IGYCRWT  IGYCSCAN
  IGYCSIMD IGYCUE$0 IGYCUE$1 IGYCUE$2 IGYCUE$3 IGYCUE$4 IGYCUE$5
  IGYCUE$8 IGYCUE$D IGYCUE$R IGYCXREF IGYDRV   IGYEQCWI IGYMSGE
  IGYMSGK  IGYMSGT  IGYQCBE  IGYQSPLT IGYZQEN6 IGYZQENU IGYZQJP6
  IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R640 PSY UI93309

     UP23/08/31 P F308

• R641 PSY UI93310

     UP23/08/31 P F308

• R642 PSY UI93311

     UP23/08/31 P F308

• R64H PSY UI93312

     UP23/08/31 P F308

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.