IV99637: EVENT SCHEMA FOR FLATTENED COBOL HAS DOUBLE PERIODS IN COPY BOOK.

IBM CICSEX-5.4.0-FP0003
IBM CICSEX-5.4.0-FP0004
IBM CICSEX-5.4.0-FP0005
IBM CICSEX-5.4.0-FP0006
IBM CICSEX-5.4.0-FP0007
IBM CICSEX-5.4.0-FP0008
IBM CICSEX-5.4.0-FP0009
IBM CICSEX-5.4.0-FP00010
IBM CICSEX-5.4.0-FP00011
IBM CICSEX-5.4.0-FP00012
IBM CICSEX-5.4.0-FP00013
IBM CICSEX-5.4.0-FP00014
IBM CICSEX-5.4.0-FP00015
IBM CICSEX-5.4.0-FP00016
IBM CICSEX-5.4.0-FP00017

APAR status

• Closed as program error.

Error description

• When creating an event using the flat CICS binary format, and
  then use export to create a copy book.  The resulting COBOL
  statements have double periods for numeric fields without
  precision. Here is an example:
    10 WS_RECORD_LENGTH PIC +9(5).
  .
  The COBOL compiler is only generating a warning for the double
  periods.
  .
  .
  .
  Additional Symptom(s) Search Keyword(s): KIXREVSVR
  

Local fix

Problem summary

• When an Event Specification with a business information item
  that has a numeric item with an automatic length and automatic
  precision is created and then exported, the resulting COBOL
  statements have double periods for numeric fields without
  precision.
  The code attempts to add a period and the correct number of '9's
  to the output picture string for the precision. The test for
  this was to compare the precision integer to zero - if the
  precision was not zero then the period was added and then loop
  for the length adding '9's to the picture string.  The code did
  not cater for the precision length -1 which is passed in when
  the precision is automatic.
  

Problem conclusion

• The code has been updated to loop appending '.' and '9's for
  precision size only when the precision integer is greater than
  zero instead of not equal to zero.
  .
  This fix will be made available in Version 5.4.0.3 of the CICS
  Explorer.
  .
  For installation instructions please see:
  Ordering maintenance for IBM CICS Explorer and CICS Explorer
  plug-ins
  http://www.ibm.com/support/docview.wss?uid=swg21380083
  

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:

Modules/Macros

•    EXPLORER
  

Fix information

• Fixed component name

  CICS EXPLORER V

• Fixed component ID

  5655Y0401

Applicable component levels