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 character The first 99 element names all generate valid COBOL fieldnames of 30 characters long ( 28 identical characters and a 2 characte 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 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
PM12631
Reported component name
CICS TS Z/OS V4
Reported component ID
5655S9700
Reported release
600
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2010-04-20
Closed date
2010-07-22
Last modified date
2010-08-02
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
UK59003
Modules/Macros
DFJ@H176
Fix information
Fixed component name
CICS TS Z/OS V4
Fixed component ID
5655S9700
Applicable component levels
R60D PSY UK59003
UP10/07/24 P F007
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":"4.1","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":"4.1","Edition":"","Line of Business":{"code":"","label":""}}]
Document Information
Modified date:
02 August 2010