PI37323: NEW MESSAGES TO SUPPORT COBOL V5 ZONECHECK COMPILER OPTION

Obtain the fix for this APAR.

APAR status

• Closed as new function.

Error description

• Add messages IGZ0275S and IGZ0276W to the COBOL runtime message
  modules.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL Version 5 with     *
  *                 invalid data in zoned decimal (numeric USAGE *
  *                 DISPLAY) data items and want to use the new  *
  *                 ZONECHECK compiler option.                   *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: This is new function in the compiler    *
  *                      which requires new run time messages    *
  *                      to be added by this APAR.               *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply the provided PTF.                      *
  *                                                              *
  ****************************************************************
  This is to support a new feature for COBOL Version 5 and above
  where the compiler can test data items for valid contents.
  New options ZONECHECK(MSG) and ZONECHECK(ABD) are added.
  Two new messages are added to diagnose this condition at
  application run time.
  

Problem conclusion

Temporary fix

Comments

• Change the COBOL run-time library to support COBOL Version 5
  compiler options ZONECHECK(MSG) and ZONECHECK(ABD).
  If the data item is tested to be invalid and the program was
  compiled with the new ZONECHECK(ABD) compiler option, then
  run time message IGZ0275S will be issued and the program
  will terminate.
  If the data item is tested to be invalid and ZONECHECK(MSG) was
  used to compile the program, then run time message IGZ0276W will
  be issued and the program execution continues.
  
  +--------------------------------------------------------------+
  | Start of changes to Language Environment Run-Time Messages,  |
  | SA22-7566-12                                                 |
  
    Add the following new messages to Chapter 7 COBOL Run-time
    messages:
  
    IGZ0275S The contents of data item "data-name" at the time
    of reference by verb number "verb-number" on line
    "line-number" failed the NUMERIC class test generated by
    the ZONECHECK compiler option.
  
    Explanation: When the ZONECHECK(ABD) compiler option is in
    effect, this message is issued to indicate that a zoned
    decimal (numeric USAGE DISPLAY) data item had invalid
    contents at runtime.
  
    The compiler generated a NUMERIC class test, and this data
    item tested as not numeric.
  
    Programmer Response: Ensure that the source of the data for
    this data item is correct, and that the data has not been
    corrupted by other statements.
  
    System Action: The application was terminated.
  
    Symbolic feedback code: IGZ08J
  
  
    IGZ0276W The contents of data item "data-name" at the time
    of reference by verb number "verb-number" on line
    "line-number" failed the NUMERIC class test generated by
    the ZONECHECK compiler option.
  
    Explanation: When the ZONECHECK(MSG) compiler option is in
    effect, this message is issued to indicate that a zoned
    decimal (numeric USAGE DISPLAY) data item had invalid
    contents at runtime.
  
    The compiler generated a NUMERIC class test, and this data
    item tested as not numeric.
  
    Programmer Response: Ensure that the source of the data for
    this data item is correct, and that the data has not been
    corrupted by other statements.
  
    System Action: No system action was taken.
  
    Symbolic feedback code: IGZ08K
  
  | End of changes to Language Environment Run-Time Messages,    |
  | SA22-7566-12                                                 |
  +--------------------------------------------------------------+
  
  PUBS CLOSING CODE: DEVCHNG
  
  FIXCAT keyword: COB0501T/K COB0502T/K
  

APAR Information

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

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

  UI27132 UI27133 UI27134 UI27135 PI43452

Modules/Macros

•    IGZBALCT IGZCMGEN IGZCMGJA IGZCMGUE IGZEDCCT
  IGZIBMCT IGZIGZCT
  

Fix information

• Fixed component name

  LE COBOL LIB

• Fixed component ID

  568819802

Applicable component levels

• R78J PSY UI27133

     UP15/05/01 P F504

• R780 PSY UI27132

     UP15/04/30 P F504

• R79J PSY UI27135

     UP15/05/01 P F504

• R790 PSY UI27134

     UP15/04/30 P F504

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.