I have COBOL files the definition follows, I need to read the data inside
When I try testSQL it gives Error Code 139264, SQLState 22000
java.sql.Exception: does not match pattern 9(4).
are some simbols from the file.
Are these files compatible with httx jdbc drivers, do I need to specify some special parameter?
thank you.
Paolo
000010 SELECT OPTIONAL FANADIP ASSIGN TO FILE-ANADIP
000020 LOCK MODE IS MANUAL with lock on multiple records
000030 ORGANIZATION IS INDEXED ACCESS IS DYNAMIC
000040 RECORD KEY IS COD-DIP
000050 ALTERNATE RECORD KEY IS Tessera-Dip
000060 ALTERNATE RECORD KEY IS DEX-DIP WITH DUPLICATES
000070 FILE STATUS IS STATO-FILE.
000010 FD FANADIP IS EXTERNAL.
000030 01 REC-DIP.
000040 02 COD-DIP.
000041 03 Azienda-Dip pic 9(4).
000042 03 Matricola-Dip PIC 9(6).
000050 02 Tessera-Dip.
000051 03 Prefisso-Dip pic 9(4).
000052 03 KEY-TESS PIC 9(13).
000060 02 DEX-DIP PIC X(25).
000070 02 SESSO PIC X.
000080 02 IND-DIP PIC X(25).
000090 02 CAP-DIP PIC 9(5).
000100 02 CITTA-DIP PIC X(25).
000110 02 PROV-DIP PIC X(4).
000120 02 TEL-DIP PIC X(20).
000130 02 DATA-INS-DIP PIC 9(8).
000140 02 KEY-QUA-DIP PIC 999.
000150 02 LIV-DIP PIC XX.
000160 02 REP-DIP PIC 999.
000170 02 Causale-Dip pic 9.
000180 02 CON-DIP PIC 9.
000190 02 FIGLI-DIP PIC 99.
000200 02 AVI-DIP PIC 9.
000210 02 NOTE-DIP PIC X(25).
000220 02 CICLO-DIP PIC 999.
000230 02 C-COSTO-DIP PIC 999.
000250 02 Flag-Ritardo-Dip PIC 9.
000251 02 PIC xx.
000252 02 Turno-Dip PIC 99.
000260 02 COD-FISC-DIP PIC X(16).
000270 02 DIST-DIP PIC X.
000280 02 STATO-DIP PIC 9.
000290 02 DAT-ATT-GRP PIC 9(8).
000300 02 FLAG-AUTO PIC 9.
000310 02 MIN-AUTO PIC 999.
000320 02 DATA-CESS-DIP PIC 9(8).
000330 02 INAIL-DIP PIC X(11) OCCURS 3.
000340 02 Cod-Paghe pic 9(6).
000350 02 Data-Nascita pic 9(8).
000360 02 Paga-Oraria pic 9(6)v99.
000370 02 Luogo-Nascita pic x(30).
000380 02 Libretto-Lav pic x(20).
000390 02 Data-Libretto pic 9(8).
000400 02 Comune-Libretto pic x(30).
000410 02 Data-Comunic-Ass pic 9(8).
000420 02 Sede-Impiego pic x(40).
000430 02 Tipo-Assunz pic x(20).
000440 02 Tipo-Contr pic x(20).
000450 02 Periodo-Prova.
000460 03 Prova-Ini pic 9(8).
000470 03 Prova-End pic 9(8).
000480 02 Mansioni-Dip pic x(30).
000490 02 Detraz-Imposta pic 9(9)v99.
000500 02 Causale-Cessaz pic x(30).
000510 02 Login-Vis-Dip pic x(11).
000520 02 Pwd-Vis-Dip pic x(11).
000521 02 Bollato-Dip pic 9.
000522 02 Impronta-Dip pic x(23).
000523 02 Turno-P-Dip pic 9.
000524 02 Agg-Impr-Dip pic 9.
000525 02 Flag-Exp-Dip pic 9.
000526 02 Ritardo-Cau-Dip pic 999.
000540 02 Ricerca-Personale pic x(80).
000541 02 Titolo-Studio pic x(80).
000542 02 Tempo-Medio-RStr pic 9(4).
000543 02 PIC X(46).
|
>Are these files compatible with httx jdbc drivers, do I need to specify
> some special parameter?
Yeah. HXTT Cobol has automatically parsed your COBOL code correctly.
>I have COBOL files the definition follows, I need to read the data inside
>java.sql.Exception: does not match pattern 9(4).
It means that HXTT Cobol find some record, which contains spaces doesn't match pattern 9(4). It should happen for one of three following colums.
000041 03 Azienda-Dip pic 9(4).
000051 03 Prefisso-Dip pic 9(4).
000542 02 Tempo-Medio-RStr pic 9(4).
If your data file is small, and you can zip and email that with your Cobol source file, so that we can check it.
|
|
Checked. Your sample should be RM Cobol index file, which is unsupported by now. We will try to crack it soon.
|
|
Thank you. I'll look for improvement.
|
Supported. Please download http://www.hxtt.com/cobol.zip . v2.0.028 supports query on RM-Cobol RMKF index file.
For instance, the following sqls will utilize index:
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip where "Azienda-Dip"=2 and "Matricola-Dip"=113;
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip where "Prefisso-Dip"=2 and "KEY-TESS"=79;
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip where "Prefisso-Dip"=1;
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip where "COD-DIP"=(1,84);
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip order by "DEX-DIP";
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip where "DEX-DIP" like 'MAROTTA W%';
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip where "DEX-DIP"='ZANATTA EDI';
select "COD-DIP","Tessera-Dip","DEX-DIP",* from aaa.anadip where "DEX-DIP" in ('ZANATTA EDI','MAROTTA WILLIAM');
|
For new samples, the following sqls will utilize index:
select * from aaa.test where "Azienda-Mov"=1 and "DIP-MOV"=1 and "DATA-MOV" in (20020910,20021121);
select * from aaa.ferie where "Key-Azi-Ferie"=1 and "KEY-DIP-FERIE"=14 and "ANNO-FERIE"=2003;
|
Main
webmaster@hxtt.com