RainCode - XMLBooster

Element: COBOLCONFIG

This element describes the COBOL-specific configuration. Among other facilities, it allows for the definition of the mapping between XMLBooster types and host types, for instance by using:


<COBOLCONFIG USECLASSPREFIX="FALSE"

             NUMBERLINES="6">

   <INTEGERTYPE>PIC S9(6)V COMP</INTEGERTYPE>

</COBOLCONFIG>

This picture clauses generated as defined above can then be overridden on a field by field basis, by using a specific META tag:


    <FIELD NAME="Quan" TYPE="INTEGER" >

      <META NAME="COBOLPIC">PIC 9(3)</META>

    </FIELD>

Attributes

Name	Type	Optional
NUMBERLINES	INTEGER	Yes	By default, XMLBOOSTER’s COBOL code generator produces text without line numbers. If given a positive value this variable is used as width for the line numbering scheme. For instance, the sample program below has been generated with NUMBER-LINES=" 6", as lines are numbered using a numbering scheme with 6 digits.
MAXLINELENGTH	INTEGER	Yes	By default, XMLBOOSTER’s COBOL code generator assumes that there is no hard limit in terms of the line length. It will use newlines liberally, but it might sometimes lines longer than what a given COBOL compiler might accept. By setting this attribute, one can force XMLBooster to ensure that it never generates any line longer than a given limit.
USECLASSPREFIX	BOOLEAN	Yes	If set to TRUE, XMLBOOSTER will use the element name as prefix for all identifiers. For instance, the field named DAY in ENTRY will translated onto a COBOL variable named ENTRY-DAY. This attribute overrides PREFIX and POST-FIX as described above.
USEINITIALIZE	BOOLEAN	Yes	If set to TRUE, XMLBOOSTER will use the INITIALIZE statement to initialize the COBOL data structures, rather than initializing its fields one by one, according to their type.
MAXLEN	INTEGER	Yes	When a field denotes a character string type, the COBOL-level MAXLEN attribute can be used to indicate the string length to use unless overriden locally.
ARRAYSIZE	INTEGER	Yes	When a field contains an array of instances denoted by another element, the COBOL-level ARRAYSIZE attribute can be used to indicate the number of elements it contains if not overriden locally.
DATAPREFIX	STRING	Yes	If specified, DATAPREFIX is used as prefix for all field names (unless overridden explicitly using the OVERRIDE attribute) in the COBOL structures generated by XMLBOOSTER.
LABELPREFIX	STRING	Yes	If specified, LABELPREFIX is used as prefix for all labels in XMLBooster-generated code.
FORCEUPPER	BOOLEAN	Yes	If set to TRUE, this attributes causes all identifier generated by the XMLBOOSTER’s COBOL code generator to be made of uppercase characters only.

Content

Optional

Optional

Optional

Optional

Appears in

CONFIG; SYSTEM

Example

<CONFIG>
  <LICENCE>
    caTapRgSvLXXBVsfg0qU
    RgQpJPRAvlBK7nFhxR2p
    j1mR93bnkp6Hv7Og8BSN
    ZgK7rI4sTxkBHpatRQ3Z
    lYmpqUS5qG5KLcwsh1cP
    EUifF4sxnK
  </LICENCE>
  <JAVACONFIG PACKAGE="MetaXmlB"
              COLLECTIONCLASS="ArrayList"
              COLLECTIONSTART="ZERO">
    <IMPORT>
      /////////////////////////////////////
      // Automatically inserted import list
      /////////////////////////////////////
      import java.util.*;
    </IMPORT>
  </JAVACONFIG>
  <YAFLCONFIG>
    <IMPORT>
      FROM Meta IMPORT BaseFormula;
    </IMPORT>
  </YAFLCONFIG>
  <HTMLCONFIG TITLE="RainCode" STYLE="xmlb.css">
    <HTMLPAGE DOCELEMENT="INDEX" POSITION="HEADER">
    <BODY BGCOLOR="BLACK" VCOLOR="yellow" vlink="#FFFF00" alink="#FF0000" link="#FFFF00" TEXT="WHITE">
     <TABLE WIDTH="100%">
     <TD ALIGN="RIGHT">
     <IMG SRC="logo.gif"/>
     </TD>
     </TABLE>
    </HTMLPAGE>
    <HTMLPAGE DOCELEMENT="INDEXES" POSITION="HEADER">
    <BODY BGCOLOR="BLUE" VCOLOR="yellow" vlink="#FFFF00" alink="#FF0000" link="#FFFF00" TEXT="WHITE">
    </HTMLPAGE>
    <HTMLPAGE DOCELEMENT="LISTINDEX" POSITION="HEADER">
    <BODY BGCOLOR="GREEN" VCOLOR="yellow" vlink="#FFFF00" alink="#FF0000" link="#FFFF00" TEXT="WHITE">
    </HTMLPAGE>
    <HTMLPAGE DOCELEMENT="ELEMENT" POSITION="HEADER">
    <BODY BGCOLOR="GRAY" VCOLOR="yellow" vlink="#FFFF00" alink="#FF0000" link="#FFFF00" TEXT="WHITE">
     <TABLE WIDTH="100%">
     <TD ALIGN="RIGHT">
     <IMG SRC="logo.gif"/>
     </TD>
     </TABLE>
    </HTMLPAGE>
  </HTMLCONFIG>
  <DELPHICONFIG  COLLECTIONSTART="ZERO" />
  <COBOLCONFIG
    USECLASSPREFIX="TRUE"
    NUMBERLINES="6" />
  <CCONFIG MAXLEN="80">
  </CCONFIG>
</CONFIG>

DTD declaration

<!ELEMENT COBOLCONFIG
(INTEGERTYPE?, REALTYPE?, BOOLEANTYPE?, ENUMTYPE?)
>

<!ATTLIST COBOLCONFIG
     NUMBERLINES CDATA  #IMPLIED
     MAXLINELENGTH CDATA  #IMPLIED
     USECLASSPREFIX (YES|yes|Y|y|ON|On|on|TRUE|true|True|1|NO|no|N|n|OFF|Off|off|FALSE|false|False|0)  #IMPLIED
     USEINITIALIZE (YES|yes|Y|y|ON|On|on|TRUE|true|True|1|NO|no|N|n|OFF|Off|off|FALSE|false|False|0)  #IMPLIED
     MAXLEN CDATA  #IMPLIED
     ARRAYSIZE CDATA  #IMPLIED
     DATAPREFIX CDATA  #IMPLIED
     LABELPREFIX CDATA  #IMPLIED
     FORCEUPPER (YES|yes|Y|y|ON|On|on|TRUE|true|True|1|NO|no|N|n|OFF|Off|off|FALSE|false|False|0)  #IMPLIED
>