A fix is available
APAR status
Closed as program error.
Error description
When running DFHWS2LS, if an element name *repeats* AND is longer than 28 bytes, CICS will truncate that element to 28 bytes (due to COBOL field length limitations of 30 bytes), since this will permit CICS to append a 2-byte sequence suffix to the field name. However, if that element repeats more than 99 times, syntax errors will be generated for those elements after #99 (since a 31-byte COBOL element name is invalid). Additional Symptom(s) Search Keyword(s): KIXREVSCB
Local fix
Manually modify the Language Structure (i.e., COBOL Copybook) that was generated, so that your field names are < 30 bytes long.
Problem summary
**************************************************************** * USERS AFFECTED: All CICS users. * **************************************************************** * PROBLEM DESCRIPTION: Invalid COBOL language structure is * * generated when WSDL contains more * * than 99 element names which are all * * identical for the first 28 characters. * **************************************************************** * RECOMMENDATION: * **************************************************************** DFHWS2LS is being run against a WSDL which contains more than 99 element names which are all identical for the first 28 characters. The first 99 element names all generate valid COBOL fieldnames of 30 characters long ( 28 identical characters and a 2 character unique numeric identifier 01- 99 ). However, the 100th and subsequent elements generate field names which are 31 characters long because a 3 character unique numeric identifier is used, a 31 byte field name is invalid for COBOL. The same problem occurs for PLI and C where the first 29 and 50 characters (respectively) of the element names are identical.
Problem conclusion
DFHWS2LS has been changed to handle more than 99 element names which are all identical up to where the language dependant truncation occurs. The first 99 element names will not change. When the 100th ( and subsequent ) element name(s) are processed, an additional byte will be removed from the end of the name to allow a 3 byte numeric substring to be added. When the 1000th ( and subsequent ) element name(s) are processed a further byte is is removed to allow a 4 byte numeric substring to be added. This allows up to 9999 identical elements to be processed.
Temporary fix
FIX AVAILABLE BY PTF ONLY
Comments
APAR Information
APAR number
PM09101
Reported component name
CICSTS V3 Z/OS
Reported component ID
5655M1500
Reported release
500
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-03-04
Closed date
2010-05-24
Last modified date
2010-06-03
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
PM12631 UK57187
Modules/Macros
DFJ@H176
Fix information
Fixed component name
CICSTS V3 Z/OS
Fixed component ID
5655M1500
Applicable component levels
R50D PSY UK57187
UP10/05/27 P F005
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.
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSGMGV","label":"CICS Transaction Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"3.2","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"3.2","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
03 June 2010