Rational Developer for System z, Versión 7.6.1

Tipos de datos XML derivados de tipos de datos Enterprse COBOL

Este tema describe el modo en que los generadores de conversores de COBOL a XML derivan los tipos de datos de esquema XML de los tipos de datos Enterprise COBOL para z/OS.

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)