A fix is available
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:
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