PH48666: WHEN THE ARGUMENT TO THE SIGN INTRINSIC FUNCTION IS A NUMERIC LITERAL, THE COMPILER ABENDS WITH ERROR IGYPG5201-U

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When the argument to the SIGN intrinsic function is a numeric
  literal, the compiler abends with error:
  
  CURRENT PHASE: IGYCPGEN
  CURRENT LINE NUMBER: 000017
  REGISTERS 0 - 15:
  2B399456 00000000 0008A948 00000000         0001EDD0 00000000
  00000000 0008A8F5
  00000000 00000000 00017A14 2B387B48         2B399324 2B399068
  AB387716 00011DC2
  
  LineID  Message code  Message text
  000017  IGYPG5125-U   The compilation was terminated due to a
  compiler error in phase id:  "IGYCPGEN".
  
  000017  IGYPG5201-U   Internal compiler error code "PTEXT-07"
  occurred.
  

Local fix

• Moving the numeric literal argument into an appropriate data
  item and using the data item as the argument to the SIGN
  intrinsic function will prevent the error and result in a clean
  compile.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.4 compiling      *
  *                 programs that contain an invocation of the   *
  *                 SIGN intrinsic function with a numeric       *
  *                 literal argument.                            *
  ****************************************************************
  * PROBLEM DESCRIPTION: Compiler abort with the following       *
  *                      message:                                *
  *                                                              *
  *                      IGYPG5125-U   The compilation was       *
  *                      terminated due to a compiler            *
  *                      error in phase id:  "IGYCPGEN".         *
  *                                                              *
  *                      IGYPG5201-U   Internal compiler error   *
  *                      code "PTEXT-07" occurred.               *
  ****************************************************************
  * RECOMMENDATION: Apply the IBM-provided PTF.                  *
  ****************************************************************
  An optimization in the compiler for handling literal
  arguments to the SIGN intrinsic function could result
  in a compiler abort.
  

Problem conclusion

• The compiler was updated to ensure that literal arguments for
  the SIGN intrinsic function are handled correctly.
  

Temporary fix

Comments

APAR Information

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

  PH47472

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

Modules/Macros

• IGY8RWTU IGYADXIT 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 IGYCJBLS IGYCJDM1 IGYCJDM2
  IGYCJDM3 IGYCJDM4 IGYCJDM5 IGYCJDM6 IGYCJDMB IGYCJDMR IGYCJGEN
  IGYCLIBR IGYCLSTR IGYCLVL0 IGYCLVL1 IGYCLVL2 IGYCLVL3 IGYCLVL8
  IGYCMALL IGYCOPI  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 IGYISMKD IGYMSGE  IGYMSGK  IGYMSGT  IGYMSGXT
  IGYQC    IGYQCB   IGYQCBE  IGYQCBG  IGYQSPLT IGYWACPT IGYWALOC
  IGYWAPLY IGYWC    IGYWCL   IGYWCLG  IGYWDDEF IGYWDOPT IGYWIVP1
  IGYWIVP2 IGYWRECV IGYWRWD  IGYWSMPE IGYWUOPT IGYWZFS  IGYZQEN6
  IGYZQENU IGYZQJP6 IGYZQJPN
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655EC600

Applicable component levels

• R640 PSY UP

     A

• R641 PSY UP

     A

• R642 PSY UI82932

     UP22/10/28 P F210

• R64H PSY UP

     A

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.