IBM Support

PM38347: DFHWS2LS ENHANCEMENT

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as new function.

Error description

  • Add COBOL 31 digit support for DFHWS2LS.
    COBOL compiler option ARITH(EXTEND).
    

Local fix

  • n/a
    

Problem summary

  • ****************************************************************
    * USERS AFFECTED: All CICS users.                              *
    ****************************************************************
    * PROBLEM DESCRIPTION: DFHWS2LS limits the number of digits    *
    *                      in a COBOL packed decimal field to 18.  *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    When using DFHWS2LS to generate a COBOL data structure from
    a WSDL document, the length of any packed decimal field
    (COMP-3) is restricted to 18 bytes. However, packed decimal
    fields may be up to 31 bytes long if the ARITH(EXTEND)
    compiler option is used.
    Additional keywords: xsd totalDigits value
    

Problem conclusion

Temporary fix

  • FIX AVAILABLE BY PTF ONLY
    

Comments

  • A new parameter WIDE-COMP3 has been added to DFHWS2LS.
    This parameter controls whether COBOL COMP-3 fields of
    length greater than 18 are permitted.
    
    If WIDE-COMP3=YES, DFHWS2LS will allow COBOL COMP-3 type
    fields with a length greater than 18, to a maximum of 31
    digits.
    
    If WIDE-COMP3=NO, DFHWS2LS will continue to restrict
    COBOL COMP-3 fields to a maximum length of 18 and
    warning message DFHPI9022W will be issued.
    
    The CICS Transaction Server for z/OS Version 3 Release 2
    Web Services Guide, SC34-6838-00, has been altered as
    follows:
    In Chapter 7. 'Creating the Web services infrastructure'
    in section 'DFHWS2LS: WSDL to high level language conversion'
    the following optional input parameter has been added to
    DFHWS2LS:
    
            +-WIDE-COMP3=NO--+
         >--+----------------+---------------------------><
            +-WIDE-COMP3=YES-+
    
    WIDE-COMP3 = {NO | YES }
    
       For COBOL only.
       Controls the maximum size of the packed decimal variable
       length in the COBOL language structure.
     NO
       This is the default.
       DFHWS2LS limits the packed decimal variable length to 18
       when generating the COBOL language structure type COMP-3.
       If the packed decimal size is greater than 18, message
       DFHPI9022W is issued which indicates that the specified
       type is being restricted to a total of 18 digits.
     YES
       DFHWS2LS supports the maximum size of 31 when generating
       the COBOL language structure type COMP-3.
    

APAR Information

  • APAR number

    PM38347

  • Reported component name

    CICSTS V3 Z/OS

  • Reported component ID

    5655M1500

  • Reported release

    500

  • Status

    CLOSED UR1

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2011-05-04

  • Closed date

    2011-07-14

  • Last modified date

    2011-08-01

  • APAR is sysrouted FROM one or more of the following:

  • APAR is sysrouted TO one or more of the following:

    PM39015 PM43520 PM43521 UK69797

Modules/Macros

  •    DFJ@H176 DFJ@H223
    

Publications Referenced
SC34683800    

Fix information

  • Fixed component name

    CICSTS V3 Z/OS

  • Fixed component ID

    5655M1500

Applicable component levels

  • R50D PSY UK69797

       UP11/07/24 P F107

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:
01 August 2011