PH56911: 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.3 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:

  PH55932

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

Modules/Macros

• IGY8RWTU IGYCASMB IGYCCBE  IGYCCCRT IGYCCICS IGYCCSRV IGYCDGEN
  IGYCDIAG IGYCDMAP IGYCDOPT 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 IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1
  IGYCLVL2 IGYCLVL3 IGYCLVL8 IGYCMALL 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

• R630 PSY UI93646

     UP23/09/28 P F309

• R631 PSY UI93647

     UP23/09/28 P F309

• R632 PSY UI93648

     UP23/09/28 P F309

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.