Cobol To Xml

Cobol To Xml

The CobolToXml package will convert Cobol Data files to/from Xml. It was written as a replacement to the Dat2Xml / Xml2Dat programs in the cb2xml package.

The project supports several Cobol dialects + number of other options. CobolToCsv depends on the following projects:

• cb2xml - Converts a Cobol Copybook to Xml.
• JRecord - Read/Write Cobol data files using a Cobol Copybook in Java. It also supplies the Csv file handling.

This project will take a Cobol-Copybook and Cobol-Data-File

Cobol-Copybook:

 9 000900        03  DTAR020-KCODE-STORE-KEY.
10 001000            05 DTAR020-KEYCODE-NO      PIC X(08).
11 001100            05 DTAR020-STORE-NO        PIC S9(03)   COMP-3.
12 001200        03  DTAR020-DATE               PIC S9(07)   COMP-3.
13 001300        03  DTAR020-DEPT-NO            PIC S9(03)   COMP-3.
14 001400        03  DTAR020-QTY-SOLD           PIC S9(9)    COMP-3.
15 001500        03  DTAR020-SALE-PRICE         PIC S9(9)V99 COMP-3.

Cobol-Data-File:

And the script to convert the Cobol Data file to an Xml file:

   ../Cobol2Xml.bat/sh   -cobol DTAR020.cbl
                         -font cp037         -fileOrganisation FixedWidth ^
                         -input in/DTAR020.bin   ^
                         -output out/DTAR020_A.xml
 

And the Xml output

 1 <?xml version="1.0" encoding="UTF-8"?>
 2 <CobolData>
 3         <Line>
 4                 <DTAR020-KCODE-STORE-KEY>
 5                         <DTAR020-KEYCODE-NO>69684558</DTAR020-KEYCODE-NO>
 6                         <DTAR020-STORE-NO>20</DTAR020-STORE-NO>
 7                 </DTAR020-KCODE-STORE-KEY>
 8                 <DTAR020-DATE>40118</DTAR020-DATE>
 9                 <DTAR020-DEPT-NO>280</DTAR020-DEPT-NO>
10                 <DTAR020-QTY-SOLD>1</DTAR020-QTY-SOLD>
11                 <DTAR020-SALE-PRICE>19.00</DTAR020-SALE-PRICE>
12         </Line>
13         <Line>
14                 <DTAR020-KCODE-STORE-KEY>
15                         <DTAR020-KEYCODE-NO>69684558</DTAR020-KEYCODE-NO>
16                         <DTAR020-STORE-NO>20</DTAR020-STORE-NO>
17                 </DTAR020-KCODE-STORE-KEY>
18                 <DTAR020-DATE>40118</DTAR020-DATE>
19                 <DTAR020-DEPT-NO>280</DTAR020-DEPT-NO>
20                 <DTAR020-QTY-SOLD>-1</DTAR020-QTY-SOLD>
21                 <DTAR020-SALE-PRICE>-19.00</DTAR020-SALE-PRICE>
22         </Line>
23         <Line>
24                 <DTAR020-KCODE-STORE-KEY>
25                         <DTAR020-KEYCODE-NO>69684558</DTAR020-KEYCODE-NO>
26                         <DTAR020-STORE-NO>20</DTAR020-STORE-NO>
27                 </DTAR020-KCODE-STORE-KEY>
28                 <DTAR020-DATE>40118</DTAR020-DATE>
29                 <DTAR020-DEPT-NO>280</DTAR020-DEPT-NO>
30                 <DTAR020-QTY-SOLD>1</DTAR020-QTY-SOLD>
31                 <DTAR020-SALE-PRICE>5.01</DTAR020-SALE-PRICE>
32         </Line>
33         <Line>

CobolToCsv at SourceForge

Download Page

Forums