IBM Support

PM09101: DFHWS2LS GENERATES COBOL COPYBOOKS WITH SYNTAX ERRORS WHEN ELEMENT LENGTH > 28 IF THE ELEMENT OCCURS > 99 TIMES

A fix is available

Subscribe

You can track all active APARs for this component.

 

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