Sounds like your Cobol structure is not recognized. The message seems to pertain to the leading number (LEVEL) not being present on the first line of your structure.
Would you mind showing the first few lines of your record structure?
Regards
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Thanks so much for readme! This are some first fews line from my Cobol code
IDENTIFICATION DIVISION.
PROGRAM-ID. " PROYECTO DE VIDEO CLUB ".
*-------------------------------------------
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CLIENTE ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
RECORD KEY IS CLI-RUT,
ALTERNATE RECORD KEY IS CLI-NOMBRE WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-DIRECCION WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FONO-CASA WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FONO-OFICINA WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FAX WITH DUPLICATES,
FILE STATUS IS FS-CLIENTE.
SELECT PELICULA ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
RECORD KEY IS PEL-CODIGO,
ALTERNATE RECORD KEY IS PEL-TITULO WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-ACTORES WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-EDAD-MINIMA WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-STOCK-TOTAL WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-STOCK-DISPONIBLE WITH DUPLICATES,
FILE STATUS IS FS-PELICULA.
SELECT PRESTAMO ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
* clave compuesta:
* PRE-RUT-CLIENTE
* PRE-COD-PELICULA
* PRE-FECHA-PRESTAMO
RECORD KEY IS CLAVE-PRESTAMO,
ALTERNATE RECORD KEY IS PRE-ESTADO WITH DUPLICATES,
ALTERNATE RECORD KEY IS PRE-FECHA-ENTREGA WITH DUPLICATES,
ALTERNATE RECORD KEY IS PRE-FECHA-DEVOLUCION WITH DUPLICATES,
FILE STATUS IS FS-PRESTAMO.
*-------------------------------------------
DATA DIVISION.
FILE SECTION.
A couple of problems
1) cb2xml will not work with indexed files; you will need to copy the file
to a sequential file
2) cb2xml does not work with cobol programs, you will need to extract the
copybook (see below). Make sure there are not Tabs in the file as well
when i am trying to convert it using CB2xml then it gives me following exception:
expecting: number88, number not88, alphanumeric literal, numeric literal, all, high values, is, low values, nulls, quotes, spaces, zeros
I am using cb2xml_094 code base.
Above bold line contains error. if i removed "X" from that line then xml parsing is done successfully.
But I want to parse the file including "X" so,
please let me know the fixed for it.
Thanks in advance.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hello I am getting the same errors as well. Is there any solution to this? Here is the copybook i am using: [00001]********* 00010000 [00002] * INPUT REQUEST FOR SERVICE A048/A049 * 00020000 [00003] * * 00030000 [00004] * THE FOLLOWING ARE REQUIRED FIELDS * 00040000 [00005] * 1. GROUP * 00050000 [00006] * 2. SUBGROUP * 00060000 [00007] * 3. MEMBER * 00070000 [00008] * 4. CURRENT LOCATION * 00080000 [00009] RP0603 ADD TABLE OF PHONE, FAX, EMAIL TO RESP * 00081000 [00010]********* 00090000 [00011] PB0306============================================================== 00091000 [00012] PB0306 * 00092000 [00013] PB0306 * 00093000 [00014] PB0306 M O D I F I C A T I O N H I S T O R Y * 00094000 [00015] PB0306 --------------------------------------- * 00095000 [00016] PB0306 * 00096000 [00017] PB0306 USERID DATE DESCRIPTION * 00097000 [00018] PB0306 ------- -------- -------------------------------------- 00098000 [00019] PB0306 P548PHB 03/01/06 PTS 0504459 - DEFECT 104 - RETURN * 00099000 [00020] PB0306 PRIMARY NUMBER IN 1ST OCCURENCE OF * 00099100 [00021] PB0306 PHONE, & EXTRA ALTERNATE IDENTIFIER * 00099200 [00022] RP1107 P548R5 09/07/07 PTS 0701043 - RMO IND/RMO EMAIL ADDR * 00099306 [00023] RP1107 PHONE/FAX NEW 35 BYTE CHAR FIELD * 00099406 [00024] PK0213 P09768 01/02/13 NEW VERSION * 00099407 [00025]==============================================================* 00099506 [00026] 05 A048-DATA. 00100000 [00027] 10 A048-GROUP PIC X(03). 00110000 [00028] 10 A048-SUB-GROUP PIC X(15). 00120000 [00029] RP0402 10 A048-MEMBER PIC X(20). 00130000 [00030] 10 A048-MORE-PHYSPRCT PIC 9(09). 00140000
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hi!
I´m using cb2xml, but when I run the program like this:
…\cb2xml_094\bin>cb2xml test.txt>test.xml
shows this
*** using start column =6, end column=72
*** fatal parse error ***
expecting: number88, number not88
what is number88?
Thanks for your time!!
Sounds like your Cobol structure is not recognized. The message seems to pertain to the leading number (LEVEL) not being present on the first line of your structure.
Would you mind showing the first few lines of your record structure?
Regards
Thanks so much for readme! This are some first fews line from my Cobol code
IDENTIFICATION DIVISION.
PROGRAM-ID. " PROYECTO DE VIDEO CLUB ".
*-------------------------------------------
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CLIENTE ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
RECORD KEY IS CLI-RUT,
ALTERNATE RECORD KEY IS CLI-NOMBRE WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-DIRECCION WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FONO-CASA WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FONO-OFICINA WITH DUPLICATES,
ALTERNATE RECORD KEY IS CLI-FAX WITH DUPLICATES,
FILE STATUS IS FS-CLIENTE.
SELECT PELICULA ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
RECORD KEY IS PEL-CODIGO,
ALTERNATE RECORD KEY IS PEL-TITULO WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-ACTORES WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-EDAD-MINIMA WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-STOCK-TOTAL WITH DUPLICATES,
ALTERNATE RECORD KEY IS PEL-STOCK-DISPONIBLE WITH DUPLICATES,
FILE STATUS IS FS-PELICULA.
SELECT PRESTAMO ASSIGN TO RANDOM,
ORGANIZATION IS INDEXED,
ACCESS MODE IS DYNAMIC,
* clave compuesta:
* PRE-RUT-CLIENTE
* PRE-COD-PELICULA
* PRE-FECHA-PRESTAMO
RECORD KEY IS CLAVE-PRESTAMO,
ALTERNATE RECORD KEY IS PRE-ESTADO WITH DUPLICATES,
ALTERNATE RECORD KEY IS PRE-FECHA-ENTREGA WITH DUPLICATES,
ALTERNATE RECORD KEY IS PRE-FECHA-DEVOLUCION WITH DUPLICATES,
FILE STATUS IS FS-PRESTAMO.
*-------------------------------------------
DATA DIVISION.
FILE SECTION.
FD CLIENTE LABEL RECORDS ARE STANDARD.
01 REG-CLIENTE.
05 CLI-RUT.
10 DIG-01 PIC 9.
10 DIG-02 PIC 9.
10 DIG-03 PIC 9.
10 DIG-04 PIC 9.
10 DIG-05 PIC 9.
10 DIG-06 PIC 9.
10 DIG-07 PIC 9.
10 DIG-08 PIC 9.
10 DIG-09 PIC X.
10 DIG-10 PIC X.
05 CLI-NOMBRE PIC X(35).
05 CLI-DIRECCION PIC X(35).
05 CLI-FONO-CASA PIC X(10).
05 CLI-FONO-OFICINA PIC X(10).
05 CLI-FAX PIC X(10).
FD PELICULA LABEL RECORDS ARE STANDARD.
01 REG-PELICULA.
05 PEL-CODIGO PIC X(5).
05 PEL-TITULO PIC X(30).
05 PEL-ACTORES PIC X(40).
05 PEL-EDAD-MINIMA PIC 9(2).
05 PEL-STOCK-TOTAL PIC 9(2).
05 PEL-STOCK-DISPONIBLE PIC 9(2).
FD PRESTAMO LABEL RECORDS ARE STANDARD.
01 REG-PRESTAMO.
05 CLAVE-PRESTAMO.
10 PRE-RUT-CLIENTE.
15 DIG-11 PIC 9.
15 DIG-12 PIC 9.
15 DIG-13 PIC 9.
15 DIG-14 PIC 9.
15 DIG-15 PIC 9.
15 DIG-16 PIC 9.
15 DIG-17 PIC 9.
15 DIG-18 PIC 9.
15 DIG-19 PIC X.
15 DIG-20 PIC X.
10 PRE-COD-PELICULA PIC X(5).
10 PRE-FECHA-PRESTAMO.
15 DIAP-DIG1 PIC 9.
15 DIAP-DIG2 PIC 9.
15 SIGNOP1 PIC X.
15 MESP-DIG1 PIC 9.
15 MESP-DIG2 PIC 9.
15 SIGNOP2 PIC X.
15 AYOP-DIG1 PIC 9.
15 AYOP-DIG2 PIC 9.
15 AYOP-DIG3 PIC 9.
15 AYOP-DIG4 PIC 9.
05 PRE-FECHA-ENTREGA.
10 DIAE-DIG1 PIC 9.
10 DIAE-DIG2 PIC 9.
10 SIGNOE1 PIC X.
10 MESE-DIG1 PIC 9.
10 MESE-DIG2 PIC 9.
10 SIGNOE2 PIC X.
10 AYOE-DIG1 PIC 9.
10 AYOE-DIG2 PIC 9.
10 AYOE-DIG3 PIC 9.
10 AYOE-DIG4 PIC 9.
05 PRE-FECHA-DEVOLUCION.
10 DIAD-DIG1 PIC 9.
10 DIAD-DIG2 PIC 9.
10 SIGNOD1 PIC X.
10 MESD-DIG1 PIC 9.
10 MESD-DIG2 PIC 9.
10 SIGNOD2 PIC X.
10 AYOD-DIG1 PIC 9.
10 AYOD-DIG2 PIC 9.
10 AYOD-DIG3 PIC 9.
10 AYOD-DIG4 PIC 9.
05 PRE-ESTADO PIC 9(1).
*
WORKING-STORAGE SECTION.
If you find words in Spanish, is because I'm from Chile
Thank you very much for your time
Bye!
A couple of problems
1) cb2xml will not work with indexed files; you will need to copy the file
to a sequential file
2) cb2xml does not work with cobol programs, you will need to extract the
copybook (see below). Make sure there are not Tabs in the file as well
i.e. try feeding the following to cb2xml
01 REG-CLIENTE.
05 CLI-RUT.
10 DIG-01 PIC 9.
10 DIG-02 PIC 9.
10 DIG-03 PIC 9.
10 DIG-04 PIC 9.
10 DIG-05 PIC 9.
10 DIG-06 PIC 9.
10 DIG-07 PIC 9.
10 DIG-08 PIC 9.
10 DIG-09 PIC X.
10 DIG-10 PIC X.
05 CLI-NOMBRE PIC X(35).
05 CLI-DIRECCION PIC X(35).
05 CLI-FONO-CASA PIC X(10).
05 CLI-FONO-OFICINA PIC X(10).
05 CLI-FAX PIC X(10).
Regards
Bruce
I'm also not that famillar with cobol, so please bear with me.
I got a copybook from a mainframer that is in production, so I suspect that the copybook is really valid.
following are the copybook details:
002400 01 COBL-XREF-REC. 00003210
002450 05 XREF-HEADER. 00003306
002500* COMBINED BILLING SORT CODE 00003406
002600 10 CB-SORT-CODE PIC X. 00003506
002700* STATISTICAL INDICATOR 00003606
002800 10 STATISTICAL-IND PIC X. 00003706
002900* HEADER PORTION LENGTH 00003806
003000 10 HDR-PORTION-LENGTH PIC XX. 00003906
003100* POLICY BODY LENGTH 00004006
003200 10 POL-BODY-LENGTH PIC XX. 00004106
003300 10 XBOLG-HEX REDEFINES 00004206
003350 POL-BODY-LENGTH PIC 9(02) COMP. 00004306
003400* OVERFLOW LENGTH 00004406
003500 10 OVERFLOW-LENGTH PIC XX. 00004506
003600* ARRANGEMENT TYPE 00004606
003700 10 ARRANGEMENT-TYPE PIC X. 00004706
003800* ARRANGEMENT NUMBER 00004806
003900 10 ARRANGEMENT-NUMB PIC 9(05) COMP-3. 00004906
004000* PAY POINT NUMBER 00005006
004100 10 PAY-POINT-NUMB PIC 9(03) COMP-3. 00005106
004200* RECORD COUNT 00005206
004300* 10 XRCCT PIC 9(01) COMP-3. 00005306
004305 10 RECORD-COUNT PIC X. 00005412
004310 88 ONEREC VALUE X'F1'. 00005512
004330 88 FIRSTREC VALUE X'01'. 00005612
004400* CSO 00005706
004500 10 CSO PIC X. 00005806
004600* STATUS CODE 00005906
004700 10 STATUS-CD PIC X. 00006006
when i am trying to convert it using CB2xml then it gives me following exception:
expecting: number88, number not88, alphanumeric literal, numeric literal, all, high values, is, low values, nulls, quotes, spaces, zeros
I am using cb2xml_094 code base.
Above bold line contains error. if i removed "X" from that line then xml parsing is done successfully.
But I want to parse the file including "X" so,
please let me know the fixed for it.
Thanks in advance.
Hello I am getting the same errors as well. Is there any solution to this? Here is the copybook i am using:
[00001] ********* 00010000
[00002] * INPUT REQUEST FOR SERVICE A048/A049 * 00020000
[00003] * * 00030000
[00004] * THE FOLLOWING ARE REQUIRED FIELDS * 00040000
[00005] * 1. GROUP * 00050000
[00006] * 2. SUBGROUP * 00060000
[00007] * 3. MEMBER * 00070000
[00008] * 4. CURRENT LOCATION * 00080000
[00009] RP0603 ADD TABLE OF PHONE, FAX, EMAIL TO RESP * 00081000
[00010] ********* 00090000
[00011] PB0306============================================================== 00091000
[00012] PB0306 * 00092000
[00013] PB0306 * 00093000
[00014] PB0306 M O D I F I C A T I O N H I S T O R Y * 00094000
[00015] PB0306 --------------------------------------- * 00095000
[00016] PB0306 * 00096000
[00017] PB0306 USERID DATE DESCRIPTION * 00097000
[00018] PB0306 ------- -------- -------------------------------------- 00098000
[00019] PB0306 P548PHB 03/01/06 PTS 0504459 - DEFECT 104 - RETURN * 00099000
[00020] PB0306 PRIMARY NUMBER IN 1ST OCCURENCE OF * 00099100
[00021] PB0306 PHONE, & EXTRA ALTERNATE IDENTIFIER * 00099200
[00022] RP1107 P548R5 09/07/07 PTS 0701043 - RMO IND/RMO EMAIL ADDR * 00099306
[00023] RP1107 PHONE/FAX NEW 35 BYTE CHAR FIELD * 00099406
[00024] PK0213 P09768 01/02/13 NEW VERSION * 00099407
[00025] ==============================================================* 00099506
[00026] 05 A048-DATA. 00100000
[00027] 10 A048-GROUP PIC X(03). 00110000
[00028] 10 A048-SUB-GROUP PIC X(15). 00120000
[00029] RP0402 10 A048-MEMBER PIC X(20). 00130000
[00030] 10 A048-MORE-PHYSPRCT PIC 9(09). 00140000
Okay so now I have some copybook files that work and others that do not, here is an example of one that does work:
Last edit: Bruce Martin 2021-12-01
Could it be that it needs an "End of copybook" section for all copybooks, or is it something else?
Which version of cb2xml are you using ??? and how did you run cb2xml
I just ran it with
and it worked with my current version (version 1.01.5_trial) on cb2xml (see attached)