PK64792: DFHWS2LS CONVERTS NUMERIC DECIMAL TO COBOL DISPLAY FORMAT INSTEAD OF THE EXPECTED PACKED DECIMAL FOR 08/08/14 PTF PECHANGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• DFHWS2LS converts Numeric Decimal to COBOL 'DISPLAY' format
  instead of the expected 'Packed Decimal' format.  For example,
  .
  Information comments from DFHWS2LS log file
  Comments for field 'pckX92v4Xreq':
  This field represents the value of XML element
   '/PCK92V4COperation/pck_record_req/pck_92v4_req'.
  XML data type: 'decimal'.
  XML 'whiteSpace' facet value: 'collapse'.
  XML 'totalDigits' facet value: '6'.
  XML 'fractionDigits' facet value: '4'.
  XML 'minInclusive' facet value: '0'.
         15 pckX92v4Xreq                  PIC 9(2)V9(4) DISPLAY.
  .
  The value should turn out to be:   PIC 9(2)V9(4) COMP-3.
  .
  It appears that DFHWS2LS generates a zoned decimal field when
  it should be packed decimal. This is caused by the:
  .
  <xsd:minInclusive value="0"/>
  .
  (which indicates that the field won't be negative so can be
  unsigned) not being tested for in the code.
  .
  Additional Symptom(s) Search Keyword(s):
  KIXREVDAM
  

Local fix

• Not using:  <xsd:minInclusive value="0"/>  returns the expected
  results.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: DFHWS2LS incorrectly generates a Cobol  *
  *                      language structure of type DISPLAY      *
  *                      instead of type COMP-3.                 *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The Web Services Assistant DFHWS2LS is used to generate a COBOL
  language structure from some WSDL. This contains a schema
  fragment :
  <xsd:element name="Test1_Field" nillable="false">
     <xsd:simpleType>
        <xsd:restriction base="xsd:decimal">
           <xsd:totalDigits value="6"/>
           <xsd:fractionDigits value="4"/>
            <xsd:minInclusive value="0"/>
        </xsd:restriction>
     </xsd:simpleType>
  </xsd:element>
  As the minInclusive value="0" was specified, (meaning never
  negative), DFHWS2LS treated this element as an
  UNSIGNED_DECIMAL_TYPE. DFHWS2LS failed to recognize
  the UNSIGNED_DECIMAL_TYPE as a packed decimal data type.
  Instead, it treated it as zoned decimal and generated
  a Cobol language structure with a type of 'DISPLAY'.
  If the language structure is used as generated, if an attempt
  is made to store a value into the field, message DFHPI1010 is
  issued.
  
  Additional Keywords: msgDFHPI1010 conversion error
                       invalid_packed_dec
  

Problem conclusion

• UK15767 UK16031 UK16634 UK21605 UK25108 UK29476 UK30590
  MakeCobol.java has been changed so that
  UNSIGNED_DECIMAL_TYPE is treated as a packed decimal
  and generates a Cobol language structure of COMP-3.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

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

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

  PK70218 UK39017

Modules/Macros

•    DFJ@H176
  

Fix information

• Fixed component name

  CICSTS V3 Z/OS

• Fixed component ID

  5655M1500

Applicable component levels

• R40D PSY UK39017

     UP08/08/23 P F808

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.