DFHSC2LS CICS XML Assistant - recognize min/max lengths specified in XSD <pattern> elements

Requesting DFHSC2LS enhancement to recognize min/max lengths specified in XSD <pattern> elements to reduce COBOL copybook lengths.

DFHSC2LS does not recognize min/max length specified in XSD <pattern> elements and generates COBOL copybooks with the DEFAULT-CHAR-MAXLENGTH value (255 if not explicitly specified). This results in unnecessary memory consumption.

An XSD we're using defines a <simpleType> with a <pattern> element that explicitly states min/max length of 3. This <simpleType> is referenced 75 times in the XSD. Based on the COBOL copybook generated using the DEFAULT-CHAR-MAXLENGTH value, 255, each invocation of the XMLTRANSFORM will waste 19K of memory.

To illustrate this, I attached a mock XSD defined with 2 <simpleType> elements. The first <simpleType> is defined with <minLength> and <maxLength> elements. The second is not. Both <simpleType> elements have a <pattern> element showing the min/max lengths.

Below the XSD I attached the generated copybook. The difference between the memory needed when the true max length is used and when the DEFAULT-CHAR-MAXLENGTH is used is 254 bytes per instance taking into consideration the PIC S9999 COMP-5 field for the length and the PIC X(255) for the value.


<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns="ntrs.com.samplexsd" xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="ntrs.com.samplexsd" elementFormDefault="qualified">
<xs:element name="ResponseMsg" type="LookupResponse"/>
<xs:complexType name="LookupResponse">
<xs:sequence>
<xs:element name="CurrCd1" type="CurrencyCode1"/>
<xs:element name="CurrCd2" type="CurrencyCode2"/>
</xs:sequence>
</xs:complexType>
<xs:simpleType name="CurrencyCode1">
<xs:restriction base="xs:string">
<xs:minLength value="3"/>
<xs:maxLength value="3"/>
<xs:pattern value="[A-Z]{3,3}"/>
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="CurrencyCode2">
<xs:restriction base="xs:string">
<xs:pattern value="[A-Z]{3,3}"/>
</xs:restriction>
</xs:simpleType>
</xs:schema>

03 ResponseMsg.
06 CurrCd1 PIC X(3).
06 CurrCd2-length PIC S9999 COMP-5 SYNC.
06 CurrCd2 PIC X(255).