IBM Support

PK93194: DFHWS2LS PASSES A SIGNED PACKED DECIMAL FOR PIC 9(5)V9(5) COMP-3AND IT SHOULD BE UNSIGNED.

A fix is available

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • DFHWS2LS passes a signed packed decimal when it should be
    unsigned.
    
    The WSDL:
    
    <xsd:element name="packedDecimalField" nillable="true">
    .<xsd:simpleType>
    ..<xsd:restriction base="xsd:decimal">
    ...<xsd:totalDigits value="10"/>
    ...<xsd:fractionDigits value="5"/>
    ...<xsd:minInclusive value="0"/>
    ..</xsd:restriction>
    .</xsd:simpleType>
    </xsd:element>
    
    The generated COBOL copy book
     10 packedDecimalField            PIC 9(5)V9(5) COMP-3.
    
    The data passed is signed:  12340C rather than 12340F
    
    If you compile a COBOL program containing a working
    storage field defined with PIC 9(5)V9(5) COMP-3 and move
    12340 to it, what gets moved is :-
    
    X'01234000000F'
    
    If you generate a WSBIND using DFHWS2LS containing a
    field defined this way and send this from the remote
    requester as value 12340 your application will receive:
    
    X'01234000000C'.
    
    Additional Symptom(s) Search Keyword(s):
    KIXREVDAM
    

Local fix

Problem summary

  • ****************************************************************
    * USERS AFFECTED: All CICS users.                              *
    ****************************************************************
    * PROBLEM DESCRIPTION: A Web Services Cobol provider           *
    *                      application deployed using the          *
    *                      Web Services assistant received         *
    *                      a positive packed decimal value         *
    *                      instead of an unsigned packed           *
    *                      decimal field.                          *
    ****************************************************************
    * RECOMMENDATION:                                              *
    ****************************************************************
    DFHWS2LS generates the following COBOL copybook field:
    
     10 an-unsigned-packed-field-name  PIC 9(5)V9(5) COMP-3.
    
    This is unsigned (it would start PIC S9 if it were signed).
    COMP-3 means packed decimal.
    Unsigned packed decimal COBOL fields are represented with a
    sign of F, positive signed packed decimal COBOL fields
    have a sign of C. So the packed decimal of 01234.56789
    should be: X'00123456789F'.
    However, the COBOL application receives X'00123456789C'.
    

Problem conclusion

  • DFHPICC has been changed so that unsigned packed decimal
    fields end with a sign of F.
    

Temporary fix

  • FIX AVAILABLE BY PTF ONLY
    

Comments

APAR Information

  • APAR number

    PK93194

  • 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

    2009-08-05

  • Closed date

    2009-08-11

  • Last modified date

    2009-09-02

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

    PK85786

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

    UK49178

Modules/Macros

  • DESPICC  DESPICV  DFHPICC
    

Fix information

  • Fixed component name

    CICS TS Z/OS V4

  • Fixed component ID

    5655S9700

Applicable component levels

  • R600 PSY UK49178

       UP09/08/15 P F908

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 September 2009