Rational Developer for System z, Versión 7.6.1

Compatibilidad: grupos y elementos repetitivos Enterprise COBOL

Este tema describe la compatibilidad de los grupos y elementos repetitivos de Enterprise COBOL for z/OS con estructuras XML.

La compatibilidad está soportada para la correlación de grupos y elementos de datos elementales COBOL con estructuras XML simples La Tabla 1 muestra ejemplos de elementos compatibles:

Tabla 1. Ejemplos de elementos compatibles
Grupo o elemento repetitivo Enterprise COBOL: Estructura XML compatible de ejemplo:
Grupo COBOL:
2 SimpleGroup
  3 DEPOSIT-REQUEST1 PIC X. 
<complexType name="groups_simplegroup">
   <sequence>
     <element name="deposit_request1">
       <annotation>
         <appinfo source="http://www.wsadie.com/appinfo">
           <initialValue kind="SPACE"/>
         </appinfo>
       </annotation>
       <simpleType>
         <restriction base="string">
           <maxLength value="1"/>
         </restriction>
       </simpleType>
     </element>
   </sequence>
</complexType>
Grupos COBOLNested:
2 NestedGroup.
  3 SimpleItem pic 9.
  3 NestingGroup1.
    5 DEPOSIT-REQUEST2 PIC X.
    5 Action-Code2 PIC 999.
<complexType name="groups_nestedgroup">
  <sequence>
    <element name="SimpleItem">
      <simpleType>
        <restriction base="short">
          <minInclusive value="0"/>
          <maxInclusive value="9"/>
        </restriction>
      </simpleType>
    </element>
    <element name="NestingGroup1" 
            type="cbl:groups_nestedgroup_nestinggroup1"/>
  </sequence>
</complexType>
<complexType name="groups_nestedgroup_nestinggroup1">
  <sequence>
    <element name="deposit_request2">
      <annotation>
        <appinfo source="http://www.wsadie.com/appinfo">
          <initialValue kind="SPACE"/>
        </appinfo>
      </annotation>
      <simpleType>
        <restriction base="string">
          <maxLength value="1"/>
        </restriction>
      </simpleType>
    </element>
    <element name="Action_Code2">
      <simpleType>
        <restriction base="short">
          <minInclusive value="0"/>
          <maxInclusive value="999"/>
        </restriction>
      </simpleType>
    </element>
  </sequence>
</complexType>
COBOL OCCURS - matriz de longitud fija (elemento básico):
2 SimpleArray occurs 7 times PIC A.
<element maxOccurs="7" minOccurs="7" name="SimpleArray">
  <annotation>
    <appinfo source="http://www.wsadie.com/appinfo">
      <initialValue kind="SPACE"/>
    </appinfo>
  </annotation>
  <simpleType>
    <restriction base="string">
      <maxLength value="1"/>
    </restriction>
  </simpleType>
</element>
COBOL OCCURS - matriz de longitud fija (elemento de grupo):
2 RepeatingGroup occurs 7 times.
  3 DEPOSIT-REQUEST3 PIC X.
<element maxOccurs="7" minOccurs="7" name="RepeatingGroup" 
      type="cbl:Groups_repeatinggroup"/>
<complexType name="Groups_repeatinggroup">
    <sequence>
      <sequence>
        <element name="deposit_request3">
          <annotation>
            <appinfo source="http://www.wsadie.com/appinfo">
              <initialValue kind="SPACE"/>
            </appinfo>
          </annotation>
          <simpleType>
            <restriction base="string">
              <maxLength value="1"/>
            </restriction>
          </simpleType>
        </element>
      </sequence>
    </sequence>
</complexType>
COBOL OCCURS DEPENDING ON - matriz de longitud variable (elemento básico):
2 Odo-Count PIC 9.
2 ODOSimpleArray occurs 0 to 5
      depending on Odo-Count pic 9.
<element maxOccurs="5" minOccurs="0" name="ODOSimpleArray">
  <annotation>
    <appinfo source="http://www.wsadie.com/appinfo">
      <dependingOn>depending-on model reference</dependingOn>
    </appinfo>
  </annotation>
  <simpleType>
    <restriction base="short">
      <minInclusive value="0"/>
      <maxInclusive value="9"/>
    </restriction>
  </simpleType>
</element>
COBOL OCCURS DEPENDING ON - matriz de longitud variable (elemento de grupo):
2 RepeatingGroupODO occurs
      0 to 7 times
      depending on Odo-Count1.
  3 DEPOSIT-REQUEST4 PIC X.
  3 Action-Code PIC 999.
<element maxOccurs="7" minOccurs="0" name="RepeatingGroupODO" 
      type="cbl:Groups_repeatinggroupodo">
  <annotation>
    <appinfo source="http://www.wsadie.com/appinfo">
       <dependingOn>depending-on model reference</dependingOn>
    </appinfo>
  </annotation>
</element>

<complexType name="Groups_repeatinggroupodo">
  <sequence>
    <sequence>
      <element name="deposit_request4">
        <annotation>
          <appinfo source="http://www.wsadie.com/appinfo">
            <initialValue kind="SPACE"/>
          </appinfo>
        </annotation>
        <simpleType>
          <restriction base="string">
            <maxLength value="1"/>
          </restriction>
        </simpleType>
      </element>
      <element name="Action_Code">
        <simpleType>
          <restriction base="short">
            <minInclusive value="0"/>
            <maxInclusive value="999"/>
          </restriction>
        </simpleType>
      </element>
    </sequence>
  </sequence>
</complexType>


Términos de uso | Comentarios

Este Information Center está basado en tecnología Eclipse. (http://www.eclipse.org)