PH00680: WEBSERVICES ASSISTANTS NEED WARNING MESSAGE IF A COBOL STRUCTURE IS GENERATED CONTAINING LEVEL 50 OR HIGHER FIELDS.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• CICS TS 5.4 needs to be changed so that the web services
  assistants can issue a warning message if a Cobol structure is
  generated containing level 50 or higher fields.  This scenario
  has been encountered when our code is being used as part of the
  z/OS Connect EE Build Toolkit.
  .
  Additional Symptom(s) Search Keyword(s): KIXREVSVR
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All CICS users.                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: The DFHJS2LS, DFHSC2LS and DFHWS2LS web *
  *                      services assistants produce COBOL       *
  *                      structures with invalid general purpose *
  *                      level-numbers.                          *
  ****************************************************************
  When running DFHJS2LS, DFHSC2LS or DFHWS2LS to produce a COBOL
  structure, ParmChecker.java sets levelIncrementSize to 3 for
  mapping levels higher than 2.0 (or to 5 for lower levels).
  MakeCobol.java then uses this as a multiplier when calculating
  general purpose level-numbers to be used in the COBOL structure.
  There is no checking that this produces valid general purpose
  level-numbers and their values can exceed the COBOL limit of 49.
  

Problem conclusion

• CICS is changed to output message DFHPI9739E and terminate the
  CICS web services assistant with Condition Code 0012 if it would
  produce a COBOL structure with an invalid level-number.
  
  The CICS TS v5.4 Knowledge Center will be updated to include the
  following description of message DFHPI9739:
  
  DFHPI9739 E   Using a level increment of "levelInc" gives an
                invalid COBOL level-number of "levelNumber".
  
  Explanation
  When creating a COBOL data structure a field was detected that
  has a general purpose level-number greater than the limit of 49
  allowed by COBOL.
  
  System action
  The assistant ends.
  
  User response
  If the level increment is greater than 1 use the
  SERVICE="LEVELINC=n" parameter to reduce it to the value
  specified as n and re-run the assistant.
  
  Module
  DFHJS2LS, DFHSC2LS, DFHWS2LS
  
  Destination
  SYSPRINT
  

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:

  UI58963 UI58964

Modules/Macros

• DFHMEPIC DFHMEPIE DFHMEPIK DFJ@H176
  

Fix information

• Fixed component name

  CICS TS Z/OS V5

• Fixed component ID

  5655Y0400

Applicable component levels

• R100 PSY UI58963

     UP18/10/11 P F810

• R10D PSY UI58964

     UP18/11/01 P F810

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.