generate xml from cobol copybook

[Ram32]

HI Guys,

i have requirement below to generate xml file based on cobol copybook definition

input file :

02305040624C 0B02305YPROCTER & GAMBLE/CLAIROL
02305040624C 1C040624 000013485210320
04295040624C 0B04295YTOPCO/PACIFIC COAST PRODUCERS
04295040624C 1C040624 000032280210300
14915040624C 0B14915YCAMPBELL SALES CO.
14915040624C 1C040624 000754380210300
02305041324C 0B02305YPROCTER & GAMBLE/CLAIROL
02305041324C 1C041324 000011500210320
02135040624D 0B02135YNESTLE USA
02135040624D 1C040624 001593510210300
02135040624D 324092000159351002135NESTLE USA D 

cobol copy book 

01 COUPONS-INPUT-RECORD.
05 CI-SYSTEM-KEY.
10 CI-SYS-VENDOR PIC X(05).
10 CI-SYS-PROMO PIC X(06).
10 CI-SYS-PAY-TYPE PIC X(01).
10 CI-SYS-FILLER PIC X(01).
05 CI-REC-TYPE PIC X(01).
88 CI-HEADER-REC VALUE '0'.
88 CI-DETAIL-REC VALUE '1' '2'.
88 CI-PAYMENT-REC VALUE '3'.
88 CI-COMMENT-REC VALUE '9'.
05 CI-HEADER-INFO.
10 CI-CLAIM-TYPE PIC X(01).
10 CI-VENDOR PIC X(05).
10 CI-RELEASE-FLAG PIC X(01).
10 CI-HEADER-VNDR-NAME PIC X(30).
10 CI-HEADER-FILLER PIC X(29).
05 CI-DETAIL-INFO REDEFINES CI-HEADER-INFO.
10 CI-COUPON-DESC.
15 CI-DESC-TYPE PIC X(01).
88 CI-DESC-PROMO VALUE 'C'.
88 CI-DESC-FEE VALUE 'F'.
15 CI-PROMO PIC X(06).
15 CI-OCR PIC X(06).
10 CI-AMOUNT PIC X(09).
10 CI-GL-ACCOUNT PIC X(06).
10 CI-DETAIL-FILLER PIC X(38).
05 CI-PAYMENT-INFO REDEFINES CI-HEADER-INFO.
10 CI-PAYMENT-DATE PIC X(06).
for Rest PD = Entry Date
10 CI-PAYMENT-AMT PIC X(09).
10 CI-PAYMENT-VENDOR PIC X(05).
10 CI-PAYMENT-VNDR-NAME PIC X(30).
10 CI-PAYMENT-TYPE PIC X(01).
88 CI-PAYMENT-CHECK VALUE 'C'.
88 CI-PAYMENT-INVDED VALUE 'D'.
88 CI-PAYMENT-CRMEMO VALUE 'M'.
10 CI-PAYMENT-FILLER PIC X(15).
05 CI-COMMENT-INFO REDEFINES CI-HEADER-INFO.
10 CI-COMMENT-NBR PIC 9(01).
10 CI-COMMENT.
15 CI-COMMENT-1ST-15 PIC X(15).
88 SPECIAL-ACCOUNT-LIT VALUE 'SPECIAL ACCOUNT'.
15 CI-COMMENT-REMAINDER PIC X(45).
10 CI-COMMENT-FILLER PIC X(05).

need to generate xml please help me how to deal with above files

[Ram32]

need output xml format like below i manually converted first row of input file in xml

[Ram32]

<root><row><CISYSVENDOR>02305</CISYSVENDOR><CISYSPROMO>040624</CISYSPROMO><CISYSPAYTYPE>C</CISYSPAYTYPE><CISYSFILLER> </CISYSFILLER><CIRECTYPE>0</CIRECTYPE><CICLAIMTYPE>B</CICLAIMTYPE><CIVENDOR>02305</CIVENDOR><CIRELEASEFLAG>Y</CIRELEASEFLAG><CIHEADERVNDRNAME>PROCTER & GAMBLE/CLAIROL</CIHEADERVNDRNAME><CIHEADERFILLER></CIHEADERFILLER></row></root>