PI70272: WHEN A PROGRAM CONTAINS AN 88 LEVEL DEFINITION WITHOUT THE CORRESPONDING 01 LEVEL, THE COMPILER RETURNS CC=0197

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When a program contains an 88 level definition without the
  corresponding 01 level, the compiler returns an invalid
  condition code.
  
  COB V5.1 Results
  ----------------
  CC=16 + Program Check and the Cross-Reference Report and the
  Data Division Map are missing from the compile output.  Also
  receives error
  IGYRC5108-U   COBOL compiler terminating:  Uncorrectable
  program interrupt condition
  
  COB V5.2 Results
  ----------------
  CC=0239 and the compiler message code below is missing.
  IGYDS1184-S   No conditional variable was defined for level-88
  item "GARANTIE-SANS-CORRESP-WU".  The level-88 item was
  discarded.
  
  COB V6.1 Results
  ----------------
  CC=0197 and the compiler message code below is missing.
  IGYDS1184-S   No conditional variable was defined for level-88
  item "GARANTIE-SANS-CORRESP-WU".  The level-88 item was
  discarded.
  
  The compiler will be corrected to return a valid condition code
  and messages.
  

Local fix

• Add the missing 01 level definition into the source before the
  88 level definition.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL V5.1 compiling     *
  *                 programs that contain a level 88 condition   *
  *                 name as the first element defined in a DATA  *
  *                 DIVISION section.                            *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect compiler output:  When a 88   *
  *                      level condition name is defined as the  *
  *                      first element in a DATA DIVISION        *
  *                      section and the 88 level is not         *
  *                      preceded by a conditional variable      *
  *                      definition, the compiler gives return   *
  *                      code 230 and the listing does not       *
  *                      contain the diagnostic messages         *
  *                      section at the bottom of the listing.   *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  The compiler failed with return code 230 and did not produce
  the diagnostic messages section in the listing if a program
  contained 88 level condition name as the first definition in a
  DATA DIVISION section.
  

Problem conclusion

• The compiler was modified to produce the diagnostic message
  section at the bottom of the listing and return the correct
  return code.
  

Temporary fix

Comments

APAR Information

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

  PI69303

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

  128AC7Ÿ

Modules/Macros

• IGYECNTL
  

Fix information

• Fixed component name

  ENT COBOL FOR Z

• Fixed component ID

  5655W3200

Applicable component levels

• R510 PSY UI41798

     UP16/10/26 P F610

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.