Rational Developer for System z, Versión 7.6.1

Tipos XML derivados de COBOL

La Tabla 1 muestra cómo los generadores de conversores XML derivan tipos XML de tipos COBOL.

Tabla 1. Derivación de tipos COBOL a XML
Tipo COBOL Propiedades COBOLUsageValue+ COBOL ModelType Tipo XSD correspondiente
Tipo alfabético COBOL

05 Fname PIC A(20).)

 
<xsd:simpleType>
   <restriction base="xsd:string">
      <length value="n"/>
   </restriction>
</simpleType>
Tipo alfanumérico COBOL  
<xsd:simpleType>
   <restriction base="xsd:string">
      <length value="n"/>
   </restriction>
</simpleType>
Tipo numérico COBOL

display, binary, comp, comp-4, comp-5 ->display/binary

Display/binary +decimal
<xsd:simpleType>
<xsd:restriction base="xsd:decimal">
   <xsd:minInclusive value="xx.x"/>
   <xsd:maxInclusive value="yy.y"/>
</xsd:restriction>
</xsd:simpleType>
Display/binary +~decimal + number of nines <= 4 + sign
<xsd:simpleType>
<xsd:restriction base="xsd:short">
   <xsd:minInclusive value="xx"/>
   <xsd:maxInclusive value="yy"/>
</xsd:restriction>
</xsd:simpleType>
Display/binary +~decimal + 4 <number of nines <= 9+ sign
<xsd:simpleType>
<xsd:restriction base="xsd:int">
   <xsd:minInclusive value="xx"/>
   <xsd:maxInclusive value="yy"/>
</xsd:restriction>
</xsd:simpleType>
Tipo numérico COBOL

Display, binary, comp, comp-4, comp-5 ->display/binary

Display/binary +~decimal + 9 <number of nines +sign
<xsd:simpleType>
<xsd:restriction base="xsd:long">
   <xsd:minInclusive value="xx"/>
   <xsd:maxInclusive value="yy"/>
</xsd:restriction>
</xsd:simpleType>
Display/binary +~decimal + number of nines <= 4 + no sign
<xsd:simpleType>
<xsd:restriction base="xsd:short">
   <xsd:minInclusive value="xx"/>
   <xsd:maxInclusive value="yy"/>
</xsd:restriction>
</xsd:simpleType>
Display/binary +~decimal + 4 <number of nines <= 9+ no sign
<xsd:simpleType>
<xsd:restriction base="xsd:int">
   <xsd:minInclusive value="xx"/>
   <xsd:maxInclusive value="yy"/>
</xsd:restriction>
</xsd:simpleType>
Display/binary +~decimal + 9 <number of nines + nosign
<xsd:simpleType>
<xsd:restriction base="xsd:long">
   <xsd:minInclusive value="xx"/>
   <xsd:maxInclusive value="yy"/>
</xsd:restriction>
</xsd:simpleType>
packed-decimal, comp-3 -> packedDecimal packedDecimal
Si se especifica el separador decimal:
<xsd:simpleType>
<xsd:restriction base="xsd:decimal">
   <xsd:minInclusive value="xx.x"/>
   <xsd:maxInclusive value="yy.y"/>
</xsd:restriction>
</xsd:simpleType>
Si no se especifica el separador decimal:
<xsd:simpleType>
   <xsd:restriction base="xsd:short">
     <xsd:minInclusive value="xxx"/>
     <xsd:maxInclusive value="yyy"/>
   </xsd:restriction>
</xsd:simpleType>
comp-1 -> float float
<xsd:simpleType>
<xsd:restriction base="xsd:float">
   <xsd:minInclusive value="xx.x"/>
   <xsd:maxInclusive value="yy.y"/>
</xsd:restriction>
</xsd:simpleType>
comp-2 -> double double
xsd:simpleType>
<xsd:restriction base="xsd:double">
   <xsd:minInclusive value="xx.x"/>
   <xsd:maxInclusive value="yy.y"/>
</xsd:restriction>
</xsd:simpleType>
Tipo alfanumérico editado COBOL  
<xsd:simpleType>
   <restriction base="string">
      <length value="n"/>
   </restriction>
</simpleType>
Tipo numérico editado COBOL  
<xsd:simpleType>
   <restriction base="string">
      <length value="n"/>
   </restriction>
</simpleType>
Tipo DBCS COBOL DBCS
<xsd:simpleType>
   <restriction base="string">
      <length value="n"/>
   </restriction>
</simpleType>
Tipo de coma flotante externo COBOL  
<xsd:simpleType>
   <restriction base="string">
      <length value="n"/>
   </restriction>
</simpleType>
Tipo Nacional (Unicode) COBOL Datos almacenados en formato Unicode  
Tipo de dirección COBOL - no soportado -  
Tipo de referencia de objeto COBOL - no soportado -  

COBOL
Nivel 88

05 TXN-Resp-Code PIC X(3)
    88 Business-Code
      value "AAA" THRU "XXX"
    88 Business-Error
      value "XYX" THRU "ZYX"
    88 Completed-Code
      value "COM"

 
<xsd:element name="TXN_Resp_Code">
   <xsd:annotation>
      <xsd:appinfo>
<level88>Business_Code value "AAA" THRU "XXX"
      </level88>
<level88>Business_Error value "XYX" THRU "ZYX"
      </level88>
<level88>Completed_Code value "COM"</level88>
<level88></level88>
<level88></level88>
         </xsd:appinfo>
     </xsd:annotation>
   <xsd:simpleType>
   <xsd:restriction base="xsd:string">
      <xsd:length value="3"/>
   </xsd:restriction>
   </xsd:simpleType>
</xsd:element>

Términos de uso | Comentarios

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